Outlook Warnung wenn Betreff leer

Wie kann ich in Out­look eine Warn­mel­dung aus­geben, wenn der Betr­e­ff leer ist? Bis Out­look 2010 war dies noch nicht von Hause aus möglich und musste via Makro gelöst wer­den.

Ich ver­wende dieses Makro auch in Out­look 2016 im Office-365-Abo, da ich tat­säch­lich ver­hin­dern kann, dass eine Mail ohne Betr­e­ff abge­sendet wird.

Fol­gende War­nung erscheint in Out­look, wenn man keinen Betr­e­ff in ein­er Mail ein­gibt. Klickt man auf “Trotz­dem senden”, dann wird die Mail den­noch ohne Betr­e­ff versendet.

Dies möchte ich in Geschäfts­mail in jedem Fall ver­mei­den, so dass den­noch das Makro zum Ein­satz kommt. Wenn näm­lich dann auf trotz­dem senden klicke, wenn ich keinen Betr­e­ff in der Mail angegeben habe, erscheint eine weit­ere Fehler­mel­dung und die Mail ver­lässt nicht meinen Rech­n­er.

Wie kann das Makro im eigenen Outlook integriert werden.

 

Dazu unter
Extras -> Makros -> Visu­al Basic-Edi­tor
den Edi­tor öff­nen.

Es öffnet sich ein neues Fen­ster. Im linken Teil des Fen­sters unter Projekt1 den Verze­ich­nis­baum öff­nen. Es zeigen sich die Punk­te Microsoft Office Out­look und anschließend ThisOut­look­Ses­sion.

Im Haupt­fen­ster wird das eigentliche Skript einge­fügt:

Private Sub Application_ItemSend _ 
   (ByVal Item As Object, Cancel As Boolean) 
     Dim strMsg As String 
     Dim res As Long 
     If Item.Subject = "" Then 
         Cancel = True 
         strMsg = "Bitte Betreff eingeben" 
         MsgBox strMsg, _ 
                vbExclamation + vbSystemModal, "Kein Betreff vorhanden" 
         Item.Display 
     End If 
 End Sub

Spe­ich­ern. Anschließend unter Start -> Pro­gramme -> Microsoft Office -> Microsoft Office Tools -> Dig­i­tales Zer­ti­fikat für VBA-Pro­jek­te auswählen und ein neues Zer­ti­fikat anle­gen (ab Win­dows 8 find­et sich der Menüpunkt in den Apps. Dafür im Kachel­bild­schirm nach unten scrollen und dann ggf. nach rechts). Nun ein­fach einen beliebi­gen Namen in das Textfeld eingeben und mit Okay bestäti­gen.

Dann wieder zum Vba-Edi­tor wech­seln. Dort unter Extras -> Dig­i­tale Sig­natur -> Wählen die ger­ad erstellte Sig­natur auswählen. Alle Fen­ster inklu­sive Out­look schließen und nach Auf­forderung spe­ich­ern.

Nun Out­look wieder starten und nach Auf­forderung Allen Doku­menten von diesem Her­aus­ge­ber ver­trauen auswählen.

Nun kann ohne Aus­nahme keine E‑Mail ohne Betr­e­ff abge­sendet wer­den.