Anhang vergessen…? (EDT 05/25/10)
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.
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.
Comments
Anonymous
May 25, 2010
The comment has been removedAnonymous
May 25, 2010
Denn paß mal auf, daß Google Dich nicht wegen Featurenachbau verklagt. ;) Aber ich bräuchte sowas auch öfter, als mir lieb ist.Anonymous
September 28, 2010
The comment has been removed