VBA Skript erstellen
- Outlook VBA IDE starten (Alt+F11)Basis-Code
- Neues Modul erstellen und eine der folgenden Codevarianten einfügen
Public Sub saveAttachtoDisk (itm As Outlook.MailItem)Datum in Dateinamen
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\temp\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub
Public Sub saveAttachtoDisk (itm As Outlook.MailItem)Nur bestimmte Dateiendungen
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
dateFormat = Format(Now, "yyyy-mm-dd H-mm")
saveFolder = "c:\temp\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
dateFormat = Format(Now, "yyyy-mm-dd H-mm")
saveFolder = "D:\test\"
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".rar") Then
objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
End If
Set objAtt = Nothing
Next
End Sub
Outlook-Regel erstellen
1. Neue Regel erstellen
2. Nach Erhalt einer Nachricht
3. Mit einer Anlage
4. Skript ausführen
5. Hier sollte jetzt “Projekt1.saveAttachtoDisk” wählbar sein