Come impedire agli utenti di inviare email in Outlook senza aver inserito l’oggetto?

Quando si invia un'email tramite Outlook, a volte può capitare di farlo senza aver inserito l’oggetto, il che potrebbe non essere una buona abitudine. Esiste un modo per obbligare gli utenti a inserire sempre un oggetto prima di inviare un'email in Outlook?

Impedisci l’invio di email senza oggetto utilizzando VBA

---

Impedisci l’invio di email senza oggetto utilizzando VBA

L’unica soluzione a questo problema è tramite codice VBA.

1. Avvia Outlook e premi Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fare doppio clic su ThisOutlookSession nel riquadro Project1, quindi copiare e incollare il codice seguente nello script vuoto.

VBA: Impedisci l’invio di email senza oggetto

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. Salvare il codice: d’ora in poi, ogni volta che si tenta di inviare un'email senza oggetto, verrà visualizzata una finestra di dialogo che richiede di inserirlo.

Nota: Questo codice VBA funziona con tutti gli account configurati in Outlook.