Mailanhänge im Outlook automatisch speichern

Um Mailanhänge automatisch per Mail-Regel in einen Ordner auf der Festplatte abzulegen, bietet sich ein VBA-Skript an.

Dazu wird im Outlook mit Alt-F11 der VB-Editor geöffnet.

Nun kann unter "This Outlook Session" folgendes Skript eingefügt werden :

 

Public Sub AnhangSpeichern(myItem As Outlook.MailItem)
Dim mAtts As Attachments
Dim mAtt As Attachment
    Set mAtts = myItem.Attachments
    While mAtts.Count > 0
        Set mAtt = mAtts(1)
        mAtt.SaveAsFile "C:\Dokument-Archiv\" & mAtt.DisplayName
        mAtts.Remove 1
    Wend
    Set mAtt = Nothing
    Set mAtts = Nothing
End Sub

 


Wichtig ist , das jetzt unter Extras / Digitale Signatur dieses Projekt mit einem vorher erstellten Code-Signing-Zertifikat signiert wird.

Wie man ein Code-Signing-Zertifikat erstell erfahrt ihr hier : Codesigning-Zertifikat.

Jetzt kann eine Regel erstellt werden, die bei Anwendung ein Skript ausführt.

In neueren Office-Versionen muss diese Option vorher per Registry-Key freigeschaltet werden.

Das erfolgt mit folgendem Registry Key :

MSO 2016

HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security

DWORD: EnableUnsafeClientMailRules
Wert : 1

MSO 2013

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Security

DWORD: EnableUnsafeClientMailRules
Wert : 1

 
Nun kann eine Regel erstellt werden, die das Skript ausführt :

Die größte Hürde bei der ganzen Aktion ist das Zertifikat. Sollte die Regel nicht funktionieren, ist euch hier ein Fehler unterlaufen.