Печенье помочь нам доставить наши услуги. Пользуясь нашими услугами, Вы соглашаетесь на использование нами куки.
Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Вход
x
or
x
x
Регистрация
x

or

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

В некоторых случаях вы можете пропустить добавление важных получателей в поля To, CC или BCC при отправке электронной почты через Outlook. Здесь я могу ввести метод проверки, были ли добавлены конкретные адреса электронной почты перед отправкой через Outlook.

Проверять адреса перед отправкой с кодом VBA

«Ответ всем» исключает себя в мировоззрение

Когда мы используем функцию «Ответить всем» в Outlook, мы можем добавлять наши учетные записи в поле «Кому», если в письмах, которые вы получили, содержится еще две ваши учетные записи. В этом случае вы можете удалить свои учетные записи из полей To и CC. Ktools для Outlook's Меня зовут может оказать вам услугу по быстрому решению этой задачи. Только один клик, все учетные записи myselft в Outlook будут удалены из полей To и CC. Нажмите для бесплатной пробной версии 45!
doc ответ исключить аккаунт
doc arrow dowm

doc ответ исключить аккаунт 2
Kutools for Outlook: с десятками удобных надстроек Outlook, без ограничений в 45-дни.

Проверять адреса перед отправкой с кодом VBA

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

1. Нажмите Alt + F11 keys для включения Microsoft Visual Basic для приложений окна.

2. Двойной клик ThisOutlookSession от Project1 чтобы открыть редактор кода, скопировать и вставить под кодом в редактор.

VBA: проверьте адрес получателя в поле «Кому» перед отправкой

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () As Variant Dim xAddress As String Dim xRecipient As Recipient Dim xPrompt As String Dim xYesNo As Integer Dim xDictionary As Scripting.Dictionary On Error Resume Next Set xDictionary = Новый скрипт. Словарь xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Для i = LBound (xAddressArr) для UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Для каждого xRecipient В Item.Recipients Если xRecipient.Type = olTo Then If xDictionary.Exists (xRecipient.Address) Затем xDictionary.Remove xRecipient.Address End If Next Если xDictionary.Count = 0 Затем GoTo L1 Для i = 0 К xDictionary.Count - 1 Если xAddress = "" Затем xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "Вы не отправляете это: "& xAddress &". Вы действительно хотите отправить почту? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, «Kutools for Outlook») Если xYesNo = vbNo Then Cancel = True L1: Установить xRecipient = Nothing Set xDictionary = Nothing End Sub

doc проверить адрес получателя перед отправкой 1

В коде вы можете изменить ("example1@126.com", "example2@126.com", "example3@126.com") для реальных получателей, которые вам нужны.

3. Затем также в Microsoft Visual Basic для приложений окна, нажмите Инструменты > дело. Проверить Время выполнения Microsoft Scripting флажок в Ссылки-Project1 Диалог.

doc проверить адрес получателя перед отправкой 2 doc arrow right doc проверить адрес получателя перед отправкой 3

4. Нажмите OK и сохраните код.

Теперь, если указанные адресаты не отображаются в поле «Кому» при отправке писем, появится диалоговое окно, напоминающее вам, если отправить письмо.
doc проверить адрес получателя перед отправкой 4

С помощью вышеуказанного кода он проверяет только адреса электронной почты в к поле, если вы хотите проверить к, CC и BCC полей, вы можете использовать код ниже.

VBA: проверьте адрес получателя в полях To / CC / BCC перед отправкой

Private Sub Application_ItemSend (объект ByVal как объект, отменить как логическое) «UpdatebyExtendoffice20180523 Dim xRecipients Как Outlook.Recipients Dim xRecipient Как Outlook.Recipient Dim xPos As Integer Dim xYesNo As Integer Dim xPrompt As String Dim xAddress As String При ошибке Продолжить Next If Item. Класс <> olMail Затем выйдите из подмножества xRecipients = Item.Recipients xAddress = "example1@gmail.com" Для каждого xRecipient В xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Если xPos = 0 Затем xPrompt = "Вы отправляете это «& xAddress &». Вы уверены, что хотите его отправить? » xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, «Kutools for Outlook») Если xYesNo = vbNo Then Cancel = True End If Next xRecipient End Sub

С помощью этого кода вам не нужно проверять Время выполнения Microsoft Scripting checkbox, просто сохраните код, чтобы он вступил в силу.



Kutools for Outlook

Более чем расширенные функции 100 для Outlook 2010, 2013, 2016, 2019 и 365

снимок экрана kutools для внешнего вида крошечный для баннера 201812

Дополнительные функции | Скачать бесплатно | Только $ 39.00 для сотен функций

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.