• Ingrandisci carattere
  • Dimensione predefinita
  • Riduci carattere
Home Esempi di codice VBA: segnalare l'assenza dell'Oggetto

VBA: segnalare l'assenza dell'Oggetto

E-mail Stampa

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.

 

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

   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
Ultimo aggiornamento ( Venerdì 03 Settembre 2010 16:39 )