Note: The other languages of the website are Google-translated. Back to English

Как заблокировать исходящие электронные письма на определенный адрес в Outlook?

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


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

Следующий код VBA может оказать вам услугу, сделайте следующее:

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

2. Затем дважды щелкните ThisOutlookSession из Проект-Проект1 панели, а затем скопируйте и вставьте приведенный ниже код в пустое окно кода:

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

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

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


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места