Hoe te voorkomen dat gebruikers e-mails verzenden zonder dat het onderwerp in Outlook is ingevoerd?

Terwijl u een e-mail verzendt via Outlook, kunt u soms e-mails verzenden zonder dat u het onderwerp hoeft in te voeren, wat misschien geen goede gewoonte is. Is er een manier om gebruikers te dwingen e-mail met een onderwerp in Outlook te verzenden?

Voorkom het verzenden van e-mails zonder onderwerp ingevoerd met VBA

Voorkom het verzenden van e-mails zonder onderwerp ingevoerd met VBA

Er is geen andere manier dan VBA-code om dit probleem op te lossen.

1. Schakel Outlook in, druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

2. Dubbelklik DezeOutlookSessie in de Project1 -paneel, kopieer en plak vervolgens onderstaande code in het lege script.

VBA: voorkom het 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

doc voorkomen verzenden zonder onderwerp 1

3. Sla de code op. Als de e-mail die u verstuurt zonder onderwerp, verschijnt er een dialoogvenster om u eraan te herinneren het onderwerp in te voeren.

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