Anhang vergessen…? (EDT 05/25/10)

  • Article

Ich war letztens bei einer Freundin die mich allen ernstes gefragt hat “gibt es eine Möglichkeit zu prüfen, ob ich Anhänge in meiner Mail vergessen habe?”. Sie wollte also, dass Outlook instinktiv weiß, dass sie eine Datei anhängen wollte und sie warnt, falls das dann doch nicht passiert. Gute Frage. Nun ja… Gehen wir mal davon aus, dass man in Mails, an die man was anheften will, irgendwie das Wort “Anhang” oder “Anlage” verwendet. Dann könnte man beim Versand durchaus den Mailinhalt nach Schlüsselworten durchsuchen, die genau danach suchen und eine Warnung ausgeben, falls dann keine Dateien im Anhang gefunden werden. Genial einfach, ist aber sehr, sehr nützlich!

Wer das noch nicht hat, der kann über die Optionen im Outlook das Ribbon-Band für Developertools einschalten um in den Code-Editor für VBA-Script zu gelangen. Im Editor selbst, kann man links zur aktuellen Outlook-Session wechseln und dann im Code-Fenster auf die Methode Application / ItemSend wechseln. Es wird ein Methoden-Rumpf erstellt, der mit folgendem Code gefüllt wird.

VBA-Editor

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim mail As MailItem

    Set mail = Item

    If (InStr(1, mail.Body, "Anhang", vbTextCompare) > 0 _

        Or InStr(1, mail.Body, "Anhänge", vbTextCompare) > 0 _

        Or InStr(1, mail.Body, "Anlage", vbTextCompare) > 0) _

        And mail.Attachments.Count = 0 Then

        If MsgBox("Anhang vergessen? :)", vbYesNo) = vbYes Then

            Cancel = True

        End If

    End If

End Sub

 

Der Code bewirkt, dass eine Nachricht angezeigt wird, falls die Mail das Wort Anhang, Anhänge oder Anlage enthält und sich keine Datei im Anhang befindet. Sie fragt nach, ob man sicher ist, dass alles ok ist. Beantwortet man mit Nein, wird der Sendevorgang erstmal abgebrochen und man kann noch schnell die Dateien anfügen.