Як перевірити адреси одержувачів перед надсиланням через Outlook?
Іноді ви можете пропустити додавання деяких важливих одержувачів у поля Кому, CC або BCC під час надсилання електронних листів через Outlook. Тут я можу представити метод перевірки, чи були додані конкретні адреси електронної пошти перед надсиланням через Outlook.
Перевірте адреси перед надсиланням за допомогою коду VBA
Перевірте адреси перед надсиланням за допомогою коду 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 = New Scripting.Dictionary
xAddressArr = Array("", "", "")
For i = LBound(xAddressArr) To UBound(xAddressArr)
xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
If xRecipient.Type = olTo Then
If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
If xAddress = "" Then
xAddress = xDictionary.Keys(i)
Else
xAddress = xAddress + "; " & xDictionary.Keys(i)
End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
Set xRecipient = Nothing
Set xDictionary = Nothing
End Sub
У коді ви можете змінити ("""""") реальним одержувачам, які вам потрібні.
3. Тоді також у Microsoft Visual Basic для додатків вікна, натисніть Tools > посилання, Перевірити Виконання сценаріїв Microsoft прапорець у Список літератури-Проект1 діалог
4. клацання OK і збережіть код.
Тепер, якщо вказані одержувачі не відображаються в полі Кому під час надсилання електронних листів, з’явиться діалогове вікно, яке нагадуватиме вам, чи слід надсилати електронне повідомлення.
З наведеним вище кодом він перевіряє лише адреси електронної пошти в До поле, якщо ви хочете зареєструватися До, 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 As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = ""
For Each xRecipient In xRecipients
xPos = InStr(LCase(xRecipient.Address), xAddress)
If xPos = 0 Then
xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End If
Next xRecipient
End Sub
За допомогою цього коду вам не потрібно перевіряти Виконання сценаріїв Microsoft , просто безпосередньо збережіть код, щоб він набрав чинності.
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.