Wie kann verhindert werden, dass Benutzer E-Mails ohne Betreff senden, der in Outlook eingegeben wurde?

Während Sie eine E-Mail über Outlook senden, können Sie in einigen Fällen E-Mails ohne Betreff eingeben, was möglicherweise keine gute Angewohnheit ist. Gibt es eine Möglichkeit, Benutzer zum Senden von E-Mails mit einem Betreff in Outlook zu zwingen?

Verhindern Sie das Senden von E-Mails ohne Betreff, der mit VBA eingegeben wurde

Verhindern Sie das Senden von E-Mails ohne Betreff, der mit VBA eingegeben wurde

Es gibt keine andere Möglichkeit als VBA-Code, um dieses Problem zu lösen.

1. Aktivieren Sie Outlook und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

2. Doppelklick DieseOutlookSession der Project1 Kopieren Sie den folgenden Code und fügen Sie ihn in das leere Skript ein.

VBA: Verhindern Sie das Senden von E-Mails 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

doc verhindern das Senden ohne Betreff 1

3. Speichern Sie den Code. Wenn Sie die E-Mail ohne Betreff senden, wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, den Betreff einzugeben.

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