VBA - Как работать с ".msg" пунктами в локальной папке? - PullRequest
Новая
       29

VBA - Как работать с ".msg" пунктами в локальной папке?

0 голосов
/ 11 июня 2019

Я хотел бы получить некоторые атрибуты из писем, хранящихся в локальной папке.Я знаю, как сделать это для электронных писем в Outlook.folder, но я думаю, что методы не одинаковы в этом случае.

Я не могу найти способ работать с элементами .msg, как если бы они былиэлектронные письма.

Я ничего не пробовал, так как понимаю, что проблема в несовместимости классов объектов, но я не знаю, что использовать.Кроме того, я не смог найти руководство по элементу ".msg", это может быть полезно 

Private Sub email_listing()
    On Error GoTo ErrHandler

    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")

    ' CREATE AND SET A NameSpace OBJECT.
    Dim objNSpace As Object
    ' THE GetNameSpace() METHOD WILL REPRESENT A SPECIFIED NAMESPACE.
    Set objNSpace = objOutlook.GetNamespace("MAPI")

    ' CREATE A FOLDER OBJECT.
    Dim myFolder, fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set myFolder = fs.GetFolder("C:\Users\boris\Desktop\Mail Test\")

    Dim Item As Object
    Dim iRows, iCols As Integer
    iRows = 2

    ' LOOP THROUGH EACH ITEM IN THE FOLDER.
    For Each Item In myFolder.Files
        If Item.Type = "Outlook Item" Then

            Dim objMail As Outlook.MailItem
            Set objMail = Item 'THE BUG

            Cells(iRows, 1) = objMail.SenderEmailAddress
            Cells(iRows, 2) = objMail.To
            Cells(iRows, 3) = objMail.Subject
            Cells(iRows, 4) = objMail.ReceivedTime
            Cells(iRows, 5) = objMail.Body
        End If

        iRows = iRows + 1
    Next
    Set objMail = Nothing

    ' RELEASE.
    Set objOutlook = Nothing
    Set objNSpace = Nothing
    Set myFolder = Nothing
ErrHandler:
    Debug.Print Err.Description
End Sub

Я ожидаю, что атрибуты для каждого письма в моей электронной таблице.

Пока чтоостановка кода на линии 27

1 Ответ

0 голосов
/ 11 июня 2019

Используйте Namespace.OpenSharedItem для открытия автономных файлов MSG.

...