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

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

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.

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.

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

Scopri il nuovo Kutools per Outlook con oltre100 funzionalità incredibili! Clicca per scaricare ora!

🤖 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) / Programmazione invio email / CC/BCC automatico tramite regola durante l’invio dell’email / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddivisione automatica delle email con più destinatari in email individuali ...

📨 Gestione email: Richiama Email / Blocca email di truffa tramite Oggetto e altro / Elimina Email duplicate / Ricerca Avanzata / Organizza cartelle ...

📁 Allegati Pro: Salvataggio in batch / Distacco in batch / Compressione in batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...

🌟 Magia dell’interfaccia: 😊Più emoji belle e simpatiche / Ti avvisa quando arrivano email importanti / Minimizza Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a Tutti con Allegati / Email Anti-phishing / 🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e Calendario: Aggiunta massiva dei contatti dalle email selezionate / Dividi un Gruppo di Contatti in gruppi individuali / Rimuovi promemoria di compleanno ...

Usa Kutools nella lingua che preferisci: supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

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

Elenco delle funzionalità di Kutools per Outlook Scarica ora Vai ad Acquista