Печиво допомогти нам доставити наші послуги. Користуючись нашими послугами, Ви погоджуєтесь на використання нами куки.
Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
увійти
x
or
x
x
Реєстрація
x

or

Як перевірити адреси одержувачів перед надсиланням через Outlook?

У деяких випадках ви можете пропустити додавання деяких важливих одержувачів у поле Кому, CC або BCC під час надсилання електронних повідомлень через Outlook. Тут я можу ввести метод, щоб перевірити, чи додані конкретні електронні адреси перед надсиланням через Outlook.

Перевірте адреси перед надсиланням коду VBA

Відповісти всім виключити себе в світогляді

Коли ми використовуємо функцію «Відповідь усім» у програмі Outlook, ми можемо додати свої облікові записи у поле «Кому», якщо у ваших електронних листах містяться ще два ваших облікових записів. У цьому випадку ви можете видалити свої облікові записи з полів "До" та "CC". Ktools для Outlook's Моє ім'я може допомогти вам швидко вирішити цю роботу. Потрібно лише один клік, усі облікові записи myselft у Outlook буде видалено з полів "Кому" та "CC". Натисніть для безкоштовної пробної версії 45 днів!
doc відповідь виключити обліковий запис
Док arrow стрибка

doc відповідь виключає обліковий запис 2
Kutools for Outlook: з десятками зручних надбудов Outlook, які можна безкоштовно спробувати без обмежень в днях 45.

Перевірте адреси перед надсиланням коду VBA

Тут у мене два коди можуть допомогти вам вирішити цю роботу, ви можете вибрати когось, як вам потрібно.

1. прес Alt + F11 kщоб включити Microsoft Visual Basic для додатків вікна.

2 Подвійне клацання ThisOutlookSession від Project1 щоб відкрити редактор коду, скопіюйте та вставте код нижче в редактор.

VBA: перевірте адресу одержувача в поле Кому перед надсиланням

Private Sub Application_ItemSend (ByVal Item As Object, Cancel as Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Як Variant Dim xAddress як String Dim xRecipient Як одержувач Dim xPrompt Як String Dim xYesNo Як Integer Dim xDictionary Як Scripting.Dictionary На Error Resume Next Налаштувати xDictionary = New Scripting.Dictionary 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 Тоді Якщо xDictionary.Exists (xRecipient.Address) Тоді xDictionary.Remove xRecipient.Address End Якщо Next Якщо xDictionary.Count = 0 Тоді GoTo L1 Для i = 0 до xDictionary.Count - 1 Якщо xAddress = "", то xAddress = xDictionary.Keys (i) Інший xAddress = xAddress + ";" & xDictionary.Keys (i) Кінець Якщо Далі i xPrompt = "Ви не надсилаєте це: "& xAddress &". Ви впевнені, що хочете відправити пошту? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Якщо xYesNo = vbNo Тоді Скасувати = True L1: встановити xRecipient = нічого не встановити xDictionary = нічого не закінчити Sub

Документ перевірити адресу одержувача перед надсиланням 1

У коді ви можете змінити ("example1@126.com", "example2@126.com", "example3@126.com") для справжніх одержувачів, які вам потрібні.

3 Тоді теж у Microsoft Visual Basic для додатків вікна, натисніть інструменти > посилання, Перевірити Microsoft Scripting Runtime прапорець в Довідники-Project1 діалог

Документ перевірити адресу одержувача перед надсиланням 2 Док-стрілка праворуч Документ перевірити адресу одержувача перед надсиланням 3

4. клацання OK і збережіть код.

Тепер, якщо вказані одержувачі не з'являтимуться в полі «Поле» при надсиланні електронних листів, з'явиться діалогове вікно, щоб нагадувати вам, чи потрібно надіслати електронний лист.
Документ перевірити адресу одержувача перед надсиланням 4

З наведеним вище кодом він перевіряє лише електронні адреси в До поле, якщо ви хочете зареєструватися До, CC і BCC поля, ви можете використовувати код нижче.

VBA: перевірте адресу одержувача у полях To / CC / BCC перед надсиланням

Private Sub Application_ItemSend (ByVal Item As Object, Cancel as Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients As Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos як Integer Dim xYesNo як Integer Dim xPrompt Як String Dim xAddress Як String On Error Продовжити Якщо пункт. Клас <> olMail Тоді Вихід із набору xRecipients = Item.Recipients xAddress = "example1@gmail.com" Для кожного xRecipient In xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Якщо xPos = 0 Тоді xPrompt = "Ви надсилаєте це "& xAddress &". Ви впевнені, що хочете його відправити? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Якщо xYesNo = vbNo, то Скасувати = True End, якщо наступний xRecipient End Sub

За допомогою цього коду вам не потрібно перевіряти Microsoft Scripting Runtime прапорець, просто збережіть код, щоб він набрав чинності.



Kutools для 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.