Cookies ни помагат да постигнем нашите услуги. С помощта на нашите услуги, Вие се съгласявате да използвате нашите бисквитки.
Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да проверите адресите на получателите, преди да ги изпратите през Outlook?

В някои случаи може да пропуснете добавянето на важни получатели в полета To, CC или BCC, докато изпращате електронни писма чрез Outlook. Тук мога да въведа метод, който да проверява дали конкретните имейл адреси са добавени преди изпращане чрез Outlook.

Проверете адресите преди изпращане с код VBA

Отговорете на всички, за да изключите себе си в Outlook

Когато използваме функцията "Отговор на всички" в Outlook, можем да добавим и нашите профили в полето До, ако имейлите, които получавате, съдържат още два профила ви. В този случай може да искате да премахнете профилите си от полета До и СС. Ktools за Outlook's Моето име е може да ви помогне бързо да разрешите тази работа. Необходимо е само едно кликване, всички профили в Outlook ще бъдат премахнати от полета То и СС. Кликнете за 45 дни безплатно пробен период!
Документът за отговор изключва профила
док стрелка dowm

Документът отговори изключва профила 2
Kutools за Outlook: с десетки удобни добавки на Outlook, свободни да се опитат без ограничение в 45 дни.

Проверете адресите преди изпращане с код VBA

Тук имам два кода, които могат да ви помогнат да разрешите тази работа, можете да изберете някой, колкото ви е нужно.

1. Натиснете Alt + F11 keys да се даде възможност Microsoft Visual Basic за приложения прозорец.

2. Кликнете два пъти ThisOutlookSession от Project1 панел, за да отворите редактора на кода, копирайте и поставете код под редактора.

VBA: проверете адреса на получателя в полето До, преди да го изпратите

Частично Sub Application_ItemSend (ByVal елемент като обект, Отказ като булев) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Като вариант Dim xAddress As String Dim xRecipient Като получател Dim xPrompt As String Dim xYesNo като цяло число Dim xDictionary As Scripting.Dictionary On Error Resume Следващ Set xDictionary = Ново скриптово устройство. Дисплей xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") За i = LBound (xAddressArr) В UBound (xAddressArr) xDictionary.Add xAddressArr ), 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) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "Вие не изпращате това на: "& xAddress &". Сигурни ли сте, че искате да изпратите пощата? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools за Outlook") Ако xYesNo = vbNo Тогава Cancel = Истина L1: Задава xRecipient = Нищо не е зададено xDictionary =

doc проверете адреса на получателя, преди да изпратите 1

В кода можете да промените ("example1@126.com", "example2@126.com", "example3@126.com") към реалните получатели, от които се нуждаете.

3. Тогава и в Microsoft Visual Basic за приложения прозорец, кликнете Инструменти > Препратки. Проверка Време за изпълнение на Microsoft Scripting в полето за отметка Позоваването-Project1 диалогов прозорец.

doc проверете адреса на получателя, преди да изпратите 2 Док стрелка надясно 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 като цяло число Dim xYesNo като цяло число Dim xPrompt As String Dim xAddress As String On Error Възобновяване Следващ Ако елемент. След това xPos = 1 След това xPrompt = "Изпращате се на адрес" x " това да "& xAddress &". Сигурни ли сте, че искате да го изпратите? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 0, "Kutools за Outlook") Ако xYesNo = vbNo След това Cancel = True End Ако Next xRecipient End Sub

С този код не е необходимо да проверявате Време за изпълнение на Microsoft Scripting поставете отметка, просто директно запазете кода, за да влезе в сила.



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.