Jak získat varování při odesílání e-mailů na externí doménu v aplikaci Outlook?

Jak můžete při používání Outlooku zabránit náhodnému odesílání e-mailů příjemcům mimo vaši společnost? Ve skutečnosti můžete zobrazit výstražné pole při odesílání e-mailů na externí doménu v aplikaci Outlook. Tento článek představí metodu VBA, jak toho dosáhnout.

Získejte upozornění při odesílání e-mailů na externí doménu pomocí kódu VBA

Získejte upozornění při odesílání e-mailů na externí doménu pomocí kódu VBA

Následující kód VBA vám pomůže dostat upozornění při odesílání e-mailů na externí doménu v aplikaci Outlook. Postupujte prosím následovně.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession k otevření ThisOutlookSession (kód) okno a poté zkopírujte pod kód VBA do okna. Viz screenshot:

Kód VBA: Při odesílání e-mailu na externí doménu se zobrazí upozornění

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
    xRecipientAddress = xRecipients.Item(i).Address
    xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
    If xPos <= 0 Then Exit For
    Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub

Pozor: V kódu, “@ addin99.com„Je interní e-mailová doména, na kterou budete posílat e-maily. Změňte to prosím podle potřeby.

Od této chvíle, když kliknete na tlačítko Odeslat a odešlete e-maily na externí e-mailovou doménu (nikoli na interní e-mailovou doménu, kterou jste zadali v kódu VBA), zobrazí se okno s upozorněním, jak je uvedeno níže.

---

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!

Související články:

• Jak získat výzvu nebo potvrzení před odesláním e-mailů v aplikaci Outlook?