Finalità
Questo esempio di codice VBA si limita ad una semplice verifica, ossia al controllo che l'oggetto di un messaggio che si sta per inviare contenga effettivamente qualche cosa (non importa cosa, ma solo che non sia vuoto).
Può essere utile a tutti quegli utenti che a volte si dimenticano di riempire quel campo (importante, ed utile ad identificare velocemente il contenuto di un messaggio).
Breve descrizione della procedura
Il codice è scritto all'interno della procedura di evento ItemSend dell'oggetto Application, evento predefinito del sistema che viene scatenato dopo la pressione del tasto "Invia" di un messaggio. In questa fase è ancora possibile sospendere l'invio settando la variabile locale Cancel al valore TRUE. La procedura controlla la proprietà .Subject (oggetto) del messaggio ed in caso di assenza di contenuto presenta una finestra di dialogo che chiede all'utente se annullare l'invio oppure procedere ugualmente.
Dim I As Integer
'controlla se l'oggetto del messaggio è vuoto...
If Item.Subject = "" Then
'chiede all'utente se annullare l'invio oppure procedere.
I = MsgBox("Attenzione: l'oggetto del messaggio è vuoto! Annullare l'invio?" _
, vbQuestion + vbYesNo, "Oggetto vuoto")
If I = vbYes Then
'annulla l'invio.
Cancel = True
End If
End If
End Sub
