Экспортируйте электронные письма Outlook из папки Publi c, чтобы поместить в лист Excel

Question

Я пытаюсь экспортировать электронные письма из общедоступной папки c в лист Excel, но где-то в моем коде обнаружена ошибка:

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace(“MAPI”)
Set Folder = Session.Folders(strMailboxName)

Как ее решить?

Кроме того, есть ли способ извлечь адрес электронной почты отправителя, который будет включен в «email_Sender»?

Спасибо.

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim strMailboxName As String
Dim i As Integer

strMailboxName = “DCASecure”

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace(“MAPI”)
Set Folder = Session.Folders(strMailboxName)
Set Folder = Folder.Folders(“Inbox”)

i = 1

For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range(“From_date”).Value Then
Range(“email_Subject”).Offset(i, 0).Value = OutlookMail.Subject
Range(“email_Subject”).Offset(i, 0).Columns.AutoFit
Range(“email_Subject”).Offset(i, 0).VerticalAlignment = xlTop
Range(“email_Date”).Offset(i, 0).Value = OutlookMail.ReceivedTime
Range(“email_Date”).Offset(i, 0).Columns.AutoFit
Range(“email_Date”).Offset(i, 0).VerticalAlignment = xlTop
Range(“email_Sender”).Offset(i, 0).Value = OutlookMail.SenderName
Range(“email_Sender”).Offset(i, 0).Columns.AutoFit
Range(“email_Sender”).Offset(i, 0).VerticalAlignment = xlTop

i = i + 1
End If
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub

Answer 1

Проверьте, не добавили ли вы ссылку на «Библиотеку объектов Microsoft Office 16.0» . Если нет, выполните следующие действия:

1. Нажмите Alt + F11 (чтобы открыть представление разработчика)
2. Нажмите «Инструменты», а затем «Ссылки» (Или Alt -> T -> R)
3. Убедитесь, что вы проверили «Библиотеку объектов Microsoft Office 16.0»