Outlook Warnung wenn Betreff leer

Wie kann ich in Out­look eine Warn­mel­dung aus­ge­ben, wenn der Betreff leer ist? Bis Out­look 2010 war dies noch nicht von Hau­se aus mög­lich und muss­te via Makro gelöst wer­den.

Ich ver­wen­de die­ses Makro auch in Out­look 2016 im Office-365-Abo, da ich tat­säch­lich ver­hin­dern kann, dass eine Mail ohne Betreff abge­sen­det wird.

Fol­gen­de War­nung erscheint in Out­look, wenn man kei­nen Betreff in einer Mail ein­gibt. Klickt man auf “Trotz­dem sen­den”, dann wird die Mail den­noch ohne Betreff ver­sen­det.

Dies möch­te 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 sen­den kli­cke, wenn ich kei­nen Betreff in der Mail ange­ge­ben habe, erscheint eine wei­te­re Feh­ler­mel­dung und die Mail ver­lässt nicht mei­nen Rech­ner.

Wie kann das Makro im eigenen Outlook integriert werden.

 

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

Es öff­net sich ein neu­es Fens­ter. Im lin­ken Teil des Fens­ters unter Projekt1 den Ver­zeich­nis­baum öff­nen. Es zei­gen sich die Punk­te Micro­soft Office Out­look und anschlie­ßend This­Out­look­Ses­si­on.

Im Haupt­fens­ter wird das eigent­li­che Skript ein­ge­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

Spei­chern. Anschlie­ßend unter Start -> Pro­gram­me -> Micro­soft Office -> Micro­soft Office Tools -> Digi­ta­les Zer­ti­fi­kat für VBA-Pro­jek­te aus­wäh­len und ein neu­es Zer­ti­fi­kat anle­gen (ab Win­dows 8 fin­det sich der Menü­punkt in den Apps. Dafür im Kachel­bild­schirm nach unten scrol­len und dann ggf. nach rechts). Nun ein­fach einen belie­bi­gen Namen in das Text­feld ein­ge­ben und mit Okay bestä­ti­gen.

Dann wie­der zum Vba-Edi­tor wech­seln. Dort unter Extras -> Digi­ta­le Signa­tur -> Wäh­len die gerad erstell­te Signa­tur aus­wäh­len. Alle Fens­ter inklu­si­ve Out­look schlie­ßen und nach Auf­for­de­rung spei­chern.

Nun Out­look wie­der star­ten und nach Auf­for­de­rung Allen Doku­men­ten von die­sem Her­aus­ge­ber ver­trau­en aus­wäh­len.

Nun kann ohne Aus­nah­me kei­ne E‑Mail ohne Betreff abge­sen­det wer­den.