Jak uzyskać ostrzeżenie podczas wysyłania wiadomości e-mail do domeny zewnętrznej w Outlooku?
Jak podczas korzystania z programu Outlook można zapobiec przypadkowemu wysyłaniu wiadomości e-mail do odbiorców spoza firmy? W rzeczywistości możesz wyświetlić pole ostrzegawcze podczas wysyłania wiadomości e-mail do domeny zewnętrznej w programie Outlook. W tym artykule przedstawimy metodę VBA, aby to osiągnąć.
Otrzymuj ostrzeżenie podczas wysyłania wiadomości e-mail do domeny zewnętrznej z kodem VBA
Otrzymuj ostrzeżenie podczas wysyłania wiadomości e-mail do domeny zewnętrznej z kodem VBA
Poniższy kod VBA może pomóc w wyświetleniu ostrzeżenia podczas wysyłania wiadomości e-mail do domeny zewnętrznej w programie Outlook. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook otworzyć ThisOutlookSession (kod) a następnie skopiuj poniższy kod VBA do okna. Zobacz zrzut ekranu:
Kod VBA: Otrzymuj ostrzeżenie podczas wysyłania wiadomości e-mail do domeny zewnętrznej
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
Note: W kodzie „@ addin99.com”To wewnętrzna domena e-mail, do której będziesz wysyłać e-maile. Zmień to, jak potrzebujesz.
Odtąd po kliknięciu przycisku Wyślij w celu wysłania wiadomości e-mail do zewnętrznej domeny e-mail (nie do wewnętrznej domeny e-mail określonej w kodzie VBA), pojawi się okno ostrzegawcze, jak pokazano poniżej.
Podobne artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!