Как получить предупреждение при отправке электронной почты на внешний домен в Outlook?
Как при использовании Outlook предотвратить случайную отправку электронных писем получателям за пределами вашей компании? Фактически, вы можете отображать окно предупреждения при отправке электронной почты на внешний домен в Outlook. В этой статье будет представлен метод VBA для достижения этой цели.
Получать предупреждение при отправке электронной почты на внешний домен с кодом VBA
Получать предупреждение при отправке электронной почты на внешний домен с кодом VBA
Следующий код VBA может помочь вам получить предупреждение при отправке электронной почты на внешний домен в Outlook. Пожалуйста, сделайте следующее.
1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook для открытия ThisOutlookSession (Код) window, а затем скопируйте ниже код 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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
