Як отримати попередження під час надсилання електронної пошти на зовнішній домен в Outlook?
Використовуючи Outlook, як можна запобігти випадковій надсиланні електронних листів одержувачам за межами вашої компанії? Насправді, ви можете відображати вікно попередження під час надсилання електронної пошти на зовнішній домен в Outlook. У цій статті буде представлено метод VBA для його досягнення.
Отримайте попередження під час надсилання електронного листа на зовнішній домен із кодом VBA
Отримайте попередження під час надсилання електронного листа на зовнішній домен із кодом VBA
Наступний код VBA може допомогти вам отримати попередження під час надсилання електронної пошти на зовнішній домен в Outlook. Будь ласка, виконайте наступне.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікно, двічі клацніть ThisOutlookSession відкрити ThisOutlookSession (Код) вікно, а потім скопіюйте нижче код VBA у вікно. Дивіться знімок екрана:
Код VBA: отримуйте попередження під час надсилання електронного листа на зовнішній домен
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
примітки: У коді "@ addin99.com”- це внутрішній домен електронної пошти, на який ви будете надсилати електронні листи. Будь ласка, змініть його, як вам потрібно.
Відтепер при натисканні кнопки «Надіслати» для надсилання електронних листів на зовнішній домен електронної пошти (а не на внутрішній домен електронної пошти, який ви вказали в коді VBA) з’явиться вікно попередження, як показано нижче.
Статті по темі:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!