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 SubPoznámka: 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.
Související články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
