Wie verhindert man, dass Benutzer E-Mails ohne Betreff in Outlook versenden?

Wenn Sie eine E-Mail über Outlook versenden, kommt es gelegentlich vor, dass Nachrichten ohne Betreff versendet werden – was keine gute Angewohnheit ist. Gibt es eine Möglichkeit, Benutzer zu zwingen, in Outlook stets einen Betreff anzugeben?

Verhindern des Versands von E-Mails ohne Betreff mithilfe von VBA

---

Verhindern des Versands von E-Mails ohne Betreff mithilfe von VBA

Abgesehen von VBA-Code gibt es keine Möglichkeit, dieses Problem zu lösen.

1. Öffnen Sie Outlook und drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Bereich Project1 auf ThisOutlookSession und kopieren Sie anschließend den folgenden Code in das leere Skriptfenster.

VBA: Verhindern des E-Mail-Versands ohne Betreff

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180511
Dim xObject As Object
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xObject = CreateObject("VBScript.Regexp")
With xObject
    .Global = True: .Pattern = "^\x20*$"
    If .test(Item.Subject) = True Then
        MsgBox "No subject entered", vbInformation, "Kutools for Outlook"
        Cancel = True
    End If
End With
End Sub

3. Speichern Sie den Code. Sobald Sie nun eine E-Mail ohne Betreff versenden möchten, erscheint ein Dialogfeld, das Sie daran erinnert, einen Betreff einzugeben.

Hinweis: Dieser VBA-Code funktioniert für alle Konten in Outlook.