Come impedire l’invio di email a un indirizzo specifico in Outlook?

AutoreXiaoyang Data di modifica2024-09-18

In generale, Outlook invia email a tutti gli indirizzi email standard e non offre la possibilità di bloccare l’invio verso un indirizzo specifico. Tuttavia, in alcuni casi potrebbe essere necessario impedire l’invio di messaggi a un determinato indirizzo email in Outlook. In tal caso, questa guida presenta un codice VBA per risolvere il problema.

Blocca le email in uscita verso un indirizzo specifico con codice VBA

Il seguente codice VBA può esserti d’aiuto; procedi come segue:

1. Avvia Outlook, quindi tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Dopodiché, fai doppio clic su ThisOutlookSession nel riquadro Project-Project1, quindi copia e incolla il codice seguente nella finestra vuota:

Codice VBA: Blocca le email in uscita verso un indirizzo specifico

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub

Nota: Nel codice riportato sopra, ricordati di sostituire Indirizzo Email con il tuo indirizzo.

doc-block-email-to-an-address-1

3. Salva e chiudi questa finestra del codice. Ora, quando invii un'email, se lo specifico indirizzo email viene rilevato nell’elenco dei destinatari, apparirà un messaggio di avviso come mostrato nello screenshot seguente. Fai clic su No e lo specifico indirizzo email verrà immediatamente rimosso.

doc-block-email-to-an-address-2

4.Dopo aver inviato l’email, puoi verificare i destinatari nella cartella Elementi inviati, dove il particolare Indirizzo Email è stato escluso dai destinatari, come illustrato nello screenshot:

doc-block-email-to-an-address-3

Assistente email IA in Outlook: risposte più intelligenti, comunicazione più chiara (magia con un clic!)

Ottimizza le tue attività quotidiane in Outlook con l’Assistente email IA di Kutools per Outlook: uno strumento potente che impara dalle tue email precedenti per suggerirti risposte intelligenti e precise, ottimizzare il contenuto dei messaggi e aiutarti a scrivere e perfezionare le tue email in modo rapido e senza sforzo.

Questa funzionalità supporta:

Risposte intelligenti: ottieni risposte generate dalle tue conversazioni precedenti—personalizzate, precise e pronte all’uso.
Contenuto migliorato: affina automaticamente il testo delle tue email per renderlo più chiaro ed efficace.
Composizione senza sforzo: inserisci solo alcune parole chiave e lascia che l’IA si occupi del resto, con più stili di scrittura.
Estensioni intelligenti: amplia i tuoi pensieri con suggerimenti contestuali.
Sintesi: ottieni subito una panoramica rapida e concisa delle email più lunghe.
Portata globale: traduci le tue email in qualsiasi lingua con estrema facilità.

Questa funzionalità supporta:

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

Non aspettare—scarica subito l’Assistente email IA e approfitta di!

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

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

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook Scarica ora Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

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

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite