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
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:
AI Mail Assistant v aplikaci Outlook: Chytřejší odpovědi, jasnější komunikace (kouzlo na jedno kliknutí!) UVOLNIT
Zjednodušte své každodenní úkoly Outlooku pomocí AI Mail Assistant od Kutools pro Outlook. Tento výkonný nástroj se učí z vašich minulých e-mailů, aby nabídl inteligentní a přesné odpovědi, optimalizoval obsah vašich e-mailů a pomohl vám bez námahy navrhovat a upravovat zprávy.
Tato funkce podporuje:
- Chytré odpovědi: Získejte odpovědi vytvořené z vašich minulých konverzací – přizpůsobené, přesné a připravené k použití.
- Vylepšený obsah: Automaticky upravte text e-mailu tak, aby byl srozumitelný a účinný.
- Skládání bez námahy: Stačí zadat klíčová slova a nechat AI, aby se postarala o zbytek, s několika styly psaní.
- Inteligentní rozšíření: Rozšiřte své myšlenky pomocí kontextových návrhů.
- Shrnutí: Získejte okamžitě stručné přehledy dlouhých e-mailů.
- Globální dosah: Snadno překládejte své e-maily do jakéhokoli jazyka.
Tato funkce podporuje:
- Chytré e-mailové odpovědi
- Optimalizovaný obsah
- Koncepty založené na klíčových slovech
- Inteligentní rozšíření obsahu
- Emailová sumarizace
- Vícejazyčný překlad
Nejlepší ze všeho je, že tato funkce je zcela uvolnit navždy! Nečekej —stáhněte si AI Mail Assistant nyní a užívejte si!
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Připomenout e-maily / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Připomeňte si, když přijdou důležité e-maily / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
