Comment empêcher les utilisateurs d’envoyer des e-mails sans avoir saisi d’objet dans Outlook ?

Lorsque vous envoyez un e-mail via Outlook, il arrive parfois d’oublier de renseigner l’objet — une habitude qu’il vaut mieux éviter. Existe-t-il un moyen d’obliger les utilisateurs à inclure un objet avant d’envoyer un message dans Outlook ?

Empêcher l’envoi d’e-mails sans objet à l’aide de VBA

---

Empêcher l’envoi d’e-mails sans objet à l’aide de VBA

Il n’existe aucune autre solution à ce problème que l’utilisation d’un code VBA.

1. Ouvrez Outlook, puis appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Double-cliquez sur ThisOutlookSession dans le volet Project1, puis copiez-collez le code ci-dessous dans le script vierge.

VBA : Empêcher l’envoi d’un e-mail sans objet

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. Enregistrez le code. Désormais, si vous tentez d’envoyer un e-mail sans objet, une boîte de dialogue s’affichera pour vous rappeler d’en saisir un.

Remarque : Ce code VBA fonctionne avec tous les comptes configurés dans Outlook.