VBA: segnalare l'assenza dell'Oggetto

Martedì 23 Gennaio 2007 01:00 Roberto
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
Tags:

Articoli correlati

Ultimo aggiornamento ( Venerdì 03 Settembre 2010 16:39 )