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

Author Sun Last modified 2025-08-26

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 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.

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 notizie: Kutools per Outlook lancia la versione gratuita!

Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!

🤖 Kutools AI : Utilizza una tecnologia AI avanzata per gestire le email senza sforzo, inclusa la risposta, la sintesi, l’ottimizzazione, l’estensione, la traduzione e la composizione dei messaggi.

📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio Email / CC/BCC automatico tramite Regola durante l’invio delle Email / Inoltro automatico (Regola avanzata) / Aggiungi Saluto automaticamente / Dividi automaticamente Email multi-destinatario in messaggi singoli ...

📨 Gestione Email: Richiama Email / Blocca Email fraudulent (tramite Oggetto e altri parametri) / Elimina Email Duplicato / Ricerca Avanzata / Organizza cartelle ...

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

🌟 Magia Interfaccia: 😊Più emoji belle e divertenti / Notifiche per le email importanti in arrivo / Riduci Outlook al posto di chiuderlo ...

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

👩🏼‍🤝‍👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate / Dividi un Gruppo di Contatti in Gruppi singoli / Rimuovi promemoria di compleanno ...

Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

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

Tabella Unidimensionale di Kutools per Outlook Scarica ora Vai a Acquista

🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office

Consigliato: Kutools per Office (5-in-1)

Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!

✅ Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite