Próbuję pobrać, a następnie otworzyć załącznik arkusza kalkulacyjnego programu Excel w wiadomości e-mail programu Outlook przy użyciu języka VBA w programie Excel. Jak mogę:

Ściągnij jedyny załącznik z pierwszego e-maila (najnowszy e-mail) w mojej skrzynce odbiorczej programu OutlookZapisać załącznik w pliku o określonej ścieżce (np .: „C: ...”)Zmień nazwę załącznika na:bieżąca data + poprzednia nazwa plikuZapisz wiadomość e-mail w innym folderze ze ścieżką taką jak „C: ...”Oznacz wiadomość e-mail w programie Outlook jako „czytaj”otwarty załącznik Excel w Excelu

Chcę także móc zapisać następujące elementy jako pojedyncze ciągi przypisane do poszczególnych zmiennych:

Adres e-mail nadawcyData otrzymaniaData wysłaniaPrzedmiotWiadomość e-mail

chociaż może być lepiej zapytać osobnym pytaniem / poszukać go osobiście.

Kod, który mam obecnie, pochodzi z innych forów online i prawdopodobnie nie jest zbyt pomocny. Jednak oto kilka fragmentów, nad którymi pracowałem:

Sub SaveAttachments()
    Dim olFolder As Outlook.MAPIFolder
    Dim att As Outlook.Attachment
    Dim strFilePath As String
    Dim fsSaveFolder As String

    fsSaveFolder = "C:\test\"

    strFilePath = "C:\temp\"

    Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

    For Each msg In olFolder.Items
        While msg.Attachments.Count > 0
            bflag = False
            If Right$(msg.Attachments(1).Filename, 3) = "msg" Then
                bflag = True
                msg.Attachments(1).SaveAsFile strFilePath & strTmpMsg
                Set msg2 = Application.CreateItemFromTemplate(strFilePath & strTmpMsg)
            End If
            sSavePathFS = fsSaveFolder & msg2.Attachments(1).Filename


    End If
End Sub