Как получить предупреждение при отправке электронной почты на внешний домен в 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), появится окно предупреждения, как показано на снимке экрана ниже.

AI Mail Assistant в Outlook: умные ответы, более четкое общение (волшебство в один клик!) бесплатно

Оптимизируйте свои ежедневные задачи Outlook с помощью AI Mail Assistant от Kutools for Outlook. Этот мощный инструмент изучает ваши прошлые электронные письма, чтобы предлагать разумные и точные ответы, оптимизировать содержимое электронной почты и помогать вам без особых усилий составлять и уточнять сообщения.

Эта функция поддерживает:

• Умные ответы: получайте ответы, созданные на основе ваших прошлых разговоров — адаптированные, точные и готовые к использованию.
• Расширенный контент: автоматически уточняйте текст электронного письма, чтобы он был понятнее и эффектнее.
• Легкое составление: просто укажите ключевые слова, а все остальное сделает ИИ, используя несколько стилей написания.
• Интеллектуальные расширения. Расширьте свои мысли с помощью контекстно-зависимых предложений.
• Подведение итогов: мгновенно получайте краткие обзоры длинных писем.
• Глобальный охват: с легкостью переводите свои электронные письма на любой язык.

Эта функция поддерживает:

• Умные ответы по электронной почте
• Оптимизированный контент
• Черновики на основе ключевых слов
• Интеллектуальное расширение контента
• Обобщение электронной почты
• Многоязычный перевод

Самое приятное то, что эта функция полностью бесплатно навсегда! Не жди—скачайте AI Mail Assistant прямо сейчас и наслаждайтесь!

Статьи по теме:

• Как получить подсказку или подтверждение перед отправкой писем в Outlook?