Jeden Morgen erhalte ich eine E-Mail von einer Person, die eine Tabellenkalkulation als Anhang enthält. Ich habe es geschafft, eine Outlook-Regel zu erstellen, die diese E-Mails abfängt. Ist es nun möglich, den Anhang jeder dieser E-Mails automatisch in einem lokalen Ordner mit dem Dateinamen JJJJ-MM-TT.xls zu speichern?
Der Anhang in der E-Mail hat einen zufällig generierten Dateinamen, daher muss das Datum des Versands der E-Mail verwendet werden, um einen Dateinamen auszuwählen. NB: Dies ist auf meinem Laptop, daher besteht die Möglichkeit, dass die E-Mail an einem anderen Tag gesendet wird als dem Tag, an dem ich sie erhalte (z. B. wenn ich das Gerät für einen Tag ausschalte). Daher ist die Verwendung des „heutigen Datums“ keine praktikable Option.
BEARBEITEN: Verwenden von Windows 7 mit Outlook 2013
Antwort1
Um das zu erreichen, was Sie möchten, müssen Sie ein wenig VBA und Regeln mischen. Ich bin mir nicht sicher, welche Outlook-Version Sie verwenden, daher gibt es hier keine Garantien. Dies wurde mit Outlook 2010 getestet.
Dieser Artikel hilft Ihnen bei der Einrichtung -Regel zum automatischen Speichern von Anhängen in Outlook.
Der folgende Code wird speziell für das Speichern der Datei im Namensformat geändert yyyy-mm-dd.
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
Sobald Sie diese Regel zum Ausführen dieses Skripts eingerichtet haben, werden bei jedem Empfang eines Anhangs von dieser Person diese gespeichert (und mit einer .xlsErweiterung versehen). Wenn Sie dies ändern möchten, müssen Sie Ihre Regel ändern oder deaktivieren.