Как извлечь данные из электронной почты - PullRequest
Новая
       0

Как извлечь данные из электронной почты

0 голосов
/ 07 декабря 2018

У меня есть электронные письма со следующими данными:

Ваше измерение EagleView готово к следующему заказу: •
• Идентификатор отчета: 26048369 (Premium, $ 60,00, 4740 кв. Футов) •Адрес: 123 Apple St, City, FL 32456 - ####

Мне нужно взять уличный адрес «123 Apple St» и поместить его в переменную для последующего вызова.

Я получаю ошибку времени выполнения 13 несоответствующего типа при запуске.Это код, который я использую "

Sub Extract()
'Define Variables
Dim sFileName As String
Dim Address As Variant

Set myfolder = Outlook.ActiveExplorer.CurrentFolder

For i = 1 To myfolder.Items.Count
Set myitem = myfolder.Items(i)
msgtext = myitem.Body

'Search for specific Text
delimitedMessage = Replace(msgtext, "Address: ", "###")
delimitedMessage = Replace(delimitedMessage, ",", "###")
Address = Split(delimitedMessage, "###")

'Alert box showing if the code worked
MsgBox "The Address is: " + Address

Next
End Sub

Заранее благодарим за любую помощь, которую вы можете оказать!

1 Ответ

0 голосов
/ 07 декабря 2018

'Адрес' - это массив строк, поэтому он выдает ошибку, когда вы пытаетесь отобразить его.Вам нужен четвертый элемент массива с нулевым индексом.Просто замените MsgBox "The Address is: " + Address на MsgBox "The Address is: " + Address(3)

...