Outlook 2010 - VB Script per Quickstep / Button

h00bi

Fleet Admiral
Registriert
Aug. 2006
Beiträge
20.369
Hallo zusammen,

ich suche eine Möglichkeit dieses VB Script in Outlook auf einen Button oder einen Quickstep zu legen.
Das Skript legt die Mailanhänge in deinem vordefinierten Order ab.
Code:
Public Sub Anhaenge_handeln(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 "X:\Path\" & mAtt.DisplayName
        mAtts.Remove 1
    Wend
End Sub
Quelle: https://blog.soprani.at/2015/09/11/outlook-anhaenge-automatisch-speichern-ordnungmusssein/

Der Link erklärt nur wie man dieses Skript per Regel ausführt. Das klappt auch wunderbar.
Ich hätte jetzt gerne die Möglichkeit einen Anhang per Mausklick direkt in einen vordefinierten Ordner zu speichern.
Jemand ne Idee wie man das umsetzen kann?
 
Zurück
Oben