Уважаемые коллеги!
Мне нужно выгрузить адреса получателей из папки Отправленные Outlook в файл Excel.
Написал следующий макрос:
Все работает хорошо, но вместо электронного адреса часто выдаются ФИО получателя.
У атрибутов To, CC и BCC дочерних атрибутов нет.
Подскажите, пожалуйста, как выгрузить именно электронный адрес?
Ведь в системе электронный адрес имеется (см. скриншот в приложении). И выгрузка Файл - Импорт и экспорт также показывает и ФИО, и электронный адрес.
Как можно получить этот электронный адрес, зная ФИО?
Мне нужно выгрузить адреса получателей из папки Отправленные Outlook в файл Excel.
Написал следующий макрос:
| Код |
|---|
Sub main2() 'запускаем эту процедуру из Excel
Dim olApp As Object 'Outlook.Application
Dim fldr As Object 'Outlook.Folder
Set olApp = CreateObject("Outlook.Application")
'обрабатываем папку Отправленные
PrintInCell ("Адресаты из папки Отправленные")
Set fldr = olApp.Session.GetDefaultFolder(5) '5 = olFolderSentMail
For Each Item1 In fldr.Items
'Выписываем адресатов
If Item1.Class = 43 Then 'сообщения - Class = 43
str1 = Item1.To
PrintInCell (str1)
str1 = Item1.CC
PrintInCell (str1)
str1 = Item1.BCC
PrintInCell (str1)
End If
Next
End Sub
Sub PrintInCell(val1 As String)
'Пользовательская функция записи
ActiveCell.Value = val1
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub |
Все работает хорошо, но вместо электронного адреса часто выдаются ФИО получателя.
У атрибутов To, CC и BCC дочерних атрибутов нет.
Подскажите, пожалуйста, как выгрузить именно электронный адрес?
Ведь в системе электронный адрес имеется (см. скриншот в приложении). И выгрузка Файл - Импорт и экспорт также показывает и ФИО, и электронный адрес.
Как можно получить этот электронный адрес, зная ФИО?
