Vor Mails ohne Betreff warnen

Outlook-Express warnt den Benutzer, wenn er eine E-Mail ohne Betreff abschicken möchte. In Outlook® fehlt diese Funktion, die Sie aber mit dem folgenden Code oder dem Tool AttachmentsManager nachrüsten können.

Zur Verwendung dieses Beispiels beachten Sie bitte die wichtigen Hinweise, sowie den Workshop VBA in Outlook® verwenden. Den Code bitte in ein neues Modul kopieren (Einfügen -> Modul im VBA-Editor).

Für Outlook® 2000, Outlook® 2002, Outlook® 2003, Outlook® 2007

Option Explicit
 
Public Function EmptySubject(ByRef Item As Object) As Boolean
 
    '=====================================================================
    ' Gibt eine Warnung aus, wenn eine E-Mail keinen Betreff enthält
    ' (c) Peter Marchert - http://www.outlook-stuff.com
    ' 2008-11-21 Version 1.0.0
    '=====================================================================
 
    '---------------------------------------------------------------------
    ' Betreff fehlt?
    '---------------------------------------------------------------------
    If Trim(Item.Subject) = "" Then
 
        '-----------------------------------------------------------------
        ' Bei Word als E-Mail-Editor sieht man die Meldung nicht, daher
        ' wird die E-Mail minimiert.
        '-----------------------------------------------------------------
        If Outlook.ActiveInspector.IsWordMail Then
            Outlook.ActiveInspector.WindowState = olMinimized
        End If
 
        '-----------------------------------------------------------------
        ' Nachfrage, ob E-Mail dennoch gesendet werden soll
        '-----------------------------------------------------------------
        If MsgBox("E-Mail ohne Betreff senden?", vbQuestion + vbYesNo + _
            vbDefaultButton2, "E-Mailprüfung") = vbNo Then EmptySubject = True
 
        '-----------------------------------------------------------------
        ' E-Mail wieder anzeigen (Vollbild, da olNormalWindow nicht funktioniert)
        '-----------------------------------------------------------------
        If Outlook.ActiveInspector.IsWordMail Then
            Outlook.ActiveInspector.WindowState = olMaximized
        End If
 
    End If
 
End Function

Der Aufruf erfolgt aus dem Modul DieseOutlookSitzung im Application_ItemSend-Ereignis:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    '=====================================================================
    ' Diese Prozedur wird unmittelbar vor dem Senden einer E-Mail aufge-
    ' rufen. Ist "Cancel" wahr, wird das Senden der E-Mail abgebrochen.
    ' (c) 2008 Peter Marchert - http://www.outlook-stuff.com
    '=====================================================================
 
    '---------------------------------------------------------------------
    ' Vor leerem Betreff warnen
    '---------------------------------------------------------------------
    Cancel = EmptySubject(Item)
 
    '---------------------------------------------------------------------
    ' Referenz auf E-Mail löschen
    '---------------------------------------------------------------------
    Set Item = Nothing
 
End Sub

Siehe auch Beitrag Funktionen kombinieren