Hoe voorkomt u dat gebruikers e-mails verzenden zonder een onderwerpregel in Outlook?

Wanneer u een e-mail verzendt via Outlook, komt het soms voor dat u e-mails verzendt zonder onderwerp in te vullen, wat geen goede gewoonte is. Bestaat er een manier om gebruikers te dwingen een onderwerp op te geven bij het verzenden van een e-mail in Outlook?

Voorkom het verzenden van e-mails zonder onderwerp met VBA

---

Voorkom het verzenden van e-mails zonder onderwerp met VBA

Er is geen andere oplossing voor dit probleem dan het gebruik van VBA-code.

1. Start Outlook en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik op ThisOutlookSession in het deelvenster Project1 en plak de onderstaande code in het lege scriptvenster.

VBA: Voorkom verzenden van e-mail zonder onderwerp

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. Sla de code op. Vanaf nu verschijnt er automatisch een dialoogvenster wanneer u een e-mail probeert te verzenden zonder onderwerp, met de vraag om alsnog een onderwerp in te voeren.

Opmerking: Deze VBA-code werkt voor alle accounts in Outlook.