Note: The other languages of the website are Google-translated. Back to English

Jak blokovat odchozí e-maily na konkrétní adresu v Outlooku?

Obecně řečeno, Outlook odesílá e-maily na všechny normální e-mailové adresy a nemůže blokovat odesílání e-mailů na konkrétní e-mailovou adresu. Někdy však možná budete muset zabránit odesílání e-mailů na konkrétní e-mailovou adresu v aplikaci Outlook. V tomto případě tento tutoriál představí kód VBA pro řešení tohoto úkolu.


Blokujte odchozí e-maily na konkrétní adresu pomocí kódu VBA

Následující kód VBA vám může udělat laskavost, postupujte takto:

1. Spusťte aplikaci Outlook a podržte ji ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. Poté poklepejte ThisOutlookSession z Projekt-Projekt1 podokno a poté zkopírujte a vložte níže uvedený kód do prázdného okna kódu:

Kód VBA: Blokujte odchozí e-maily na konkrétní adresu

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
Poznámka: Ve výše uvedeném kódu byste měli změnit e-mailovou adresu na svou vlastní.

3. Poté toto okno s kódem uložte a zavřete. Pokud je nyní při odesílání e-mailu konkrétní e-mailová adresa nalezena v seznamu příjemců, zobrazí se výzva, jak je uvedeno níže. Klikněte Ne, konkrétní e-mailová adresa bude okamžitě smazána.

4. Po odeslání e-mailu můžete zkontrolovat jeho příjemce v Odeslané položky složka, určitá e-mailová adresa byla vyloučena z příjemců, viz snímek obrazovky:


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění