Приложение определило проблему экспорта Outlook в Excel - PullRequest
Новая
       6

Приложение определило проблему экспорта Outlook в Excel

0 голосов
/ 22 февраля 2019

У меня ошибка Application defined or Object defined в той части, где я хочу получить содержимое почты в Outlook.Вот мой код 

Sub Import_Outlook_to_Excel()
    Dim oitem As outlook.MailItem
    Dim i As Long
    Dim Body As String
    Dim olapp As outlook.Application
    Dim olappns As outlook.Namespace
    Dim oinbox As outlook.Folder
    Dim oFolder As outlook.MAPIFolder

    i = 2    outlook
    Set olapp = New outlook.Application
    Set olappns = olapp.GetNamespace("MAPI")
    Set oinbox = olappns.GetDefaultFolder(olFolderInbox).Folders("Winautomation")

    For Each oitem In oinbox.Items
        Sheets(1).Cells(i, 5).Value = oitem.Subject
        Sheets(1).Cells(i, 6).Value = oitem.Body
        i = i + 1
    Next
End Sub
...