Как заблокировать отправку писем на определённый адрес в Outlook?

АвторСяоянДата изменения2024-09-18

В общем случае Outlook отправляет письма на любые стандартные адреса электронной почты и не позволяет блокировать отправку на конкретный адрес. Однако иногда может возникнуть необходимость запретить отправку писем на определённый адрес электронной почты в Outlook. В этом случае данное руководство предложит решение с помощью кода VBA.

Блокировка исходящих писем на определённый адрес с помощью кода VBA

Приведённый ниже код VBA поможет вам в этом — выполните следующие действия:

1. Запустите Outlook и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Далее дважды щёлкните по элементу ThisOutlookSession в области Проект — Project1 и вставьте приведённый ниже код в открывшееся пустое окно редактора:

Код VBA: Блокировка исходящих писем на определённый адрес

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub

Примечание: В приведённом выше коде замените Адрес электронной почты на свой собственный.

doc-block-email-to-an-address-1

3. Сохраните и закройте окно кода. Теперь при отправке письма, если указанный адрес электронной почты обнаружен в списке получателей, появится предупреждающее сообщение, как показано на скриншоте ниже. Нажмите Нет, и указанный адрес электронной почты будет немедленно удалён.

doc-block-email-to-an-address-2

4. После отправки письма вы можете проверить его получателей в папке Отправленные, где указанный адрес электронной почты уже исключён из списка получателей (см. скриншот):

doc-block-email-to-an-address-3

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

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

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

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

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

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

Не ждите —скачайте AI Mail Assistant прямо сейчас и наслаждайтесь!

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для простой работы с электронной почтой: ответы, резюмирование, оптимизация, расширение, перевод и создание писем.

📧Автоматизация электронной почты: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отзыв письма / Блокировка мошеннических писем по темам и другим параметрам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебный интерфейс: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса в один клик: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные / Удаление напоминания о дне рождения…

Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним кликом! Не теряйте времени — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook Скачать сейчас Перейти к покупке

🚀 Скачать одним кликом — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним кликом пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

✅Удобство в один клик: Скачайте все пять установочных пакетов одним щелчком.
🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете ⬇ Скачать пакет 💳 Приобрести пакет