Outlook 2010 - Automatisches Speichern von Attachments

Zu dieser Methode bleibt zu sagen, dass es sich um eine reine Client-Regel handelt. Somit muss der konfigurierte Outlook-Client laufen, damit das Skript ausgeführt und die Anhänge gespeichert werden.  

VBA Skript erstellen

- Outlook VBA IDE starten (Alt+F11)
- Neues Modul erstellen und eine der folgenden Codevarianten einfügen

Basis-Code

Public Sub saveAttachtoDisk (itm As Outlook.MailItem)
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

Datum in Dateinamen

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 = "c:\temp\"
   For Each objAtt In itm.Attachments
      objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
      Set objAtt = Nothing
   Next
End Sub

Nur bestimmte Dateiendungen

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