Wie speichere ich einen bestimmten Anhang mit Datumsstempel aus dem Outlook-Posteingang in einem bestimmten Ordner? - E-Mail, Microsoft-Outlook, VBA, E-Mail-Filter, Microsoft-Outlook-2016

Jeden Morgen erhalte ich eine E-Mail mit 3 Dateien:

"Daily MILH Checks e.xls"
"Daily Unit Linked .pdf"
"Daily Unit Linked.xls"

Das ist 2x .xls und ein PDF. Dateinamen ändern sich nie.

Die E-Mail kommt von "[email protected]" mit der flieĂźenden Betreffzeile:

"IA083A - (Date: May 23, 2016)"

Ich habe eine Regel erstellt, die jedes Mal ein Makro ausfĂĽhrt, wenn eine E-Mail von empfangen wird "[email protected]" mit "IA083A" in der Betreffzeile.

Klicken Sie hier, um das Bild anzuzeigen

Ich kenne den Code geschrieben Hier ist ein Ausgangspunkt fĂĽr das, was ich brauche.

Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat

dateFormat = Format(Now, "yyyy-mm-dd")

"Change this path to the your folder location
saveFolder = "c:temp"

objAtt.SaveAsFile saveFolder & "" & dateFormat & ".xls"

Set objAtt = Nothing

End Sub

Das Obige unterscheidet nicht zwischen verschiedenen Dateien. Jede meiner 3 Dateien muss in einem separaten Ordner gespeichert werden.

Mit dem obigen Befehl wird die Datei vor dem Speichern in "JJJJ-MM-TT" umbenannt. Ich möchte, dass ein Teil des Dateinamens erhalten bleibt und das Datum am Ende hinzugefügt wird. z.B. "Prüfbericht 23-05-2016"

Antworten:

0 fĂĽr Antwort â„– 1

Auf den anderen Post, auf den Sie verweisen, wird verwiesen PixelChelf Hier finden Sie alle Elemente, die Sie benötigen, um jede Datei mit einem Datumsstempel in ihren jeweiligen Ordnern zu speichern.


0 fĂĽr Antwort â„– 2

Sie können eine Fledermausdatei schreiben, um diese Anhänge vom gespeicherten Pfad an Ihren Zielort zu verschieben. Und Sie können diese Fledermausdatei von diesem Code oben aufrufen.


Lies jetzt