Skip to main content

Come verificare gli indirizzi dei destinatari prima di inviare tramite Outlook?

Author: Sun Last Modified: 2025-05-29

A volte, potresti dimenticare di aggiungere alcuni destinatari importanti nei campi A, CC o CCN mentre invii email tramite Outlook. Qui ti mostro un metodo per verificare se determinati indirizzi email sono stati aggiunti prima di inviare tramite Outlook.

Verifica gli indirizzi prima dell'invio con il codice VBA


Verifica gli indirizzi prima dell'invio con il codice VBA

Qui ho due codici che possono aiutarti a risolvere questo compito, puoi sceglierne uno in base alle tue esigenze.

1. Premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications.

2. Fai doppio clic su ThisOutlookSession nel riquadro Project1 per aprire l'editor del codice, copia e incolla il codice sottostante nell'editor.

VBA: verifica l'indirizzo del destinatario nel campo A prima dell'invio

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
xAddressArr = Array("example1@126.com", "example2@126.com", "example3@126.com")
For i = LBound(xAddressArr) To UBound(xAddressArr)
    xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

doc check recipient address before sending 1

Nel codice, puoi cambiare ("example1@126.com", "example2@126.com", "example3@126.com") con i veri destinatari di cui hai bisogno.

3. Poi, sempre nella finestra Microsoft Visual Basic for Applications, fai clic su Strumenti > Riferimenti. Seleziona la casella di controllo Microsoft Scripting Runtime nella finestra di dialogo Riferimenti-Project1.

doc check recipient address before sending 2 doc arrow right doc check recipient address before sending 3

4. Clicca su OK e salva il codice.

Ora, se i destinatari specificati non appaiono nel campo A durante l'invio delle email, verrà visualizzata una finestra di dialogo per ricordarti se vuoi inviare l'email.
doc check recipient address before sending 4

Con il codice sopra, viene controllato solo il campo A; se desideri controllare anche i campi A, CC e CCN, puoi utilizzare il codice sottostante.

VBA: verifica l'indirizzo del destinatario nei campi A/CC/CCN prima dell'invio

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim xPos As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = "example1@gmail.com"
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

Con questo codice, non è necessario selezionare la casella di controllo Microsoft Scripting Runtime, basta salvare direttamente il codice per renderlo effettivo.

Assistente AI per la Posta in Outlook: Risposte più intelligenti, comunicazione più chiara (magia con un clic!) GRATIS

Semplifica le tue attività quotidiane di Outlook con l'Assistente AI per la Posta di Kutools per Outlook. Questo potente strumento impara dalle tue email precedenti per offrire risposte intelligenti e accurate, ottimizzare il contenuto delle tue email e aiutarti a redigere e perfezionare i messaggi senza sforzo.
doc ai email handle

Questa funzione supporta:

  • Risposte Intelligenti: Ottieni risposte create a partire dalle tue conversazioni passate—personalizzate, precise e pronte all'uso.
  • Contenuto Migliorato: Perfeziona automaticamente il testo delle tue email per chiarezza e impatto.
  • Composizione Senza Sforzo: Fornisci solo delle parole chiave e lascia che l'IA si occupi del resto, con diversi stili di scrittura.
  • Estensioni Intelligenti: Espandi i tuoi pensieri con suggerimenti contestuali.
  • Riassunti: Ottieni sintesi concise di email lunghe istantaneamente.
  • Portata Globale: Traduci le tue email in qualsiasi lingua con facilità.

Questa funzione supporta:

  • Risposte intelligenti alle email
  • Contenuto ottimizzato
  • Bozze basate su parole chiave
  • Estensione intelligente del contenuto
  • Riassunto delle email
  • Traduzione multilingue

Il meglio di tutto è che questa funzione è completamente gratuita per sempre! Non aspettare—scarica subito Assistente AI per la Posta e goditela


I migliori strumenti per la produttività in Office

Ultime novità: Kutools per Outlook lancia la versione gratuita!

Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!

🤖 Kutools AI : Sfrutta una tecnologia AI avanzata per gestire le email senza sforzo, tra cui rispondere, riassumere, ottimizzare, estendere, tradurre e scrivere email.

📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...

📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...

📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...

🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...

👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...

👩🏼‍🤝‍👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...

Sblocca subito Kutools per Outlook con un solo clic. Non aspettare, scaricalo ora e aumenta la tua efficienza!

kutools for outlook features1 kutools for outlook features2