Ich versuche, mithilfe von VBA in Excel einen Excel-Tabellenanhang in einer Outlook-E-Mail herunterzuladen und dann zu öffnen. Wie kann ich:

Herunterladen Der einzige Anhang aus der ersten E-Mail (der neuesten E-Mail) in meinem Outlook-Posteingangsparen den Anhang in einer Datei mit einem angegebenen Pfad (zB: "C: ...")Benennen Sie den Anhangsnamen um mit:aktuelles Datum + vorheriger DateinameSpeichern Sie die E-Mail in einem anderen Ordner mit einem Pfad wie "C: ..."Markieren Sie die E-Mail in Outlook als "gelesen"Öffnen die Excel-Anlage in Excel

Ich möchte auch Folgendes als einzelne Zeichenfolgen speichern können, die einzelnen Variablen zugewiesen sind:

E-Mail-Adresse des AbsendersEmpfangsdatumDatum gesendetGegenstandDie Nachricht der E-Mail

obwohl dies vielleicht besser ist, in einer separaten Frage nachzufragen / selbst danach zu suchen.

Der Code, den ich derzeit habe, stammt aus anderen Online-Foren und ist wahrscheinlich nicht sehr hilfreich. Hier sind jedoch einige Dinge, an denen ich gearbeitet habe:

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