Ich versuche, ein VBA-Makro in Outlook abzurufen, mit dem der Anhang einer E-Mail in einem bestimmten Ordner gespeichert und das Datum hinzugefügt wirdempfangen auf den Dateinamen.

Mein Googeln hat mich so weit gebracht:

Public Sub saveAttachtoDisk (itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String
    Dim dateFormat As String
    saveFolder = "C:\Temp\"
    dateFormat = Format(Now, "yyyy-mm-dd H-mm")

    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
        Set objAtt = Nothing
    Next 
End Sub

Das erste offensichtliche Ding ist, dass es die aktuelle Zeit auf den Dateinamen anstatt auf die empfangene Zeit anwendet, aber ich kann es scheinbar nicht ändern. Meine Theorie ist, dass das Outlook.Attachment kein hatReceivedTime und dass die E-Mail selbst referenziert werden muss.

Zweitens scheint das überhaupt nicht zu funktionieren, ha! Es hat am ersten Tag funktioniert, als ich angefangen habe zu basteln, aber danach hat es aufgehört, Dateien zu speichern.