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

or

Як праверыць адрасы атрымальнікаў перад адпраўкай праз Outlook?

У некалькі разоў, вы можаце прапусціць некаторыя важныя дадання атрымальнікаў Into To, CC або BCC палёў пры адпраўцы паведамленняў электроннай пошты з дапамогай Outlook. Тут я магу ўвесці метад, каб праверыць, калі канкрэтныя адрасы электроннай пошты, якія былі дададзены перад адпраўкай праз Outlook.

Праверыць адрасы перад адпраўкай з кодам VBA

Адказаць усім выключыць сябе ў перспектыве

Калі мы выкарыстоўваем Адказаць на ўсе функцыі ў Outlook, мы можам дадаць нашы рахункі ў поле Каму таксама, калі электронная пошта вы receievd змяшчае яшчэ два вашых рахункаў. У гэтым выпадку, вы можаце выдаліць свае акаўнты з палёў і CC. Ktools для Outlook,'s Мае імёны можа зрабіць вам ласку на рашэнне гэтай працы хутка. Толькі трэба адзін пстрычка, усе рахункі myselft ў Outlook, будуць выдаленыя з Да і CC поля. Націсніце для 45 дзён бясплатнай пробнай версіі!
дакумент адказ выключыць уліковы запіс
док стрэлка DOWM

дакумент адказ выключыць кошт 2
Kutools для Outlook: з дзесяткамі зручнага Outlook, надбудовы, бясплатна паспрабаваць без якіх-небудзь абмежаванняў у 45 дзён.

Праверыць адрасы перад адпраўкай з кодам VBA

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

1. прэс Alt + F11 даEYS, каб уключыць Microsoft Visual Basic для прыкладанняў акна.

2. двайны пстрычка ThisOutlookSession ад Project1 панэль, каб адкрыць рэдактар ​​кода, скапіруйце і ўстаўце ніжэй код у рэдактары.

VBA: праверыць адрас атрымальніка ў поле Каму перад адпраўкай

Private Sub Application_ItemSend (ByVal Item As Object, Адмяніць As Boolean) «UpdatebyExtendoffice20180523 Dim xAddressArr () As Variant Dim xAddress As String Dim xRecipient Як атрымальніку Dim xPrompt As String Dim xYesNo As Integer Dim xDictionary Як Scripting.Dictionary On Error Resume Next Set xDictionary = новы Scripting.Dictionary xAddressArr = Array ( "example1@126.com", "example2@126.com", "example3@126.com") Для я = 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 If Next Калі xDictionary.Count = 0 Тады GoTo L1 Для г = 0 для xDictionary.Count - 1 Калі xAddress = "" Тады xAddress = xDictionary.Keys (я) Else xAddress = xAddress + ";" & xDictionary.Keys (я) End If Next я xPrompt = «Вы не пасылаеце гэта: «& xAddress &». вы ўпэўненыя, што хочаце адправіць пошту? » xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools для Перспектывы") Калі xYesNo = vbNo Тады Адмяніць = True L1: Set xRecipient = Nothing Set xDictionary = Nothing End Sub

праверка док адрас атрымальніка перад адпраўкай 1

У кодзе, вы можаце змяніць ("example1@126.com", "example2@126.com", "example3@126.com") да рэальных адрасатам вам трэба.

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

праверка док адрас атрымальніка перад адпраўкай 2 дакумент стрэлка направа праверка док адрас атрымальніка перад адпраўкай 3

4. пстрычка OK і захаваць код.

Цяпер калі названыя атрымальнікі не будуць адлюстроўвацца ў поле Каму пры адпраўцы паведамленняў электроннай пошты, з'явіцца дыялогавае акно, каб нагадаць вам, калі адправіць па электроннай пошце.
праверка док адрас атрымальніка перад адпраўкай 4

З вышэй кодзе, ён толькі правярае адрасы электроннай пошты ў да поле, калі вы хочаце праверыць у да, CC і BCC поля, вы можаце выкарыстоўваць код, прыведзены ніжэй.

VBA: праверка адрасу атрымальніка ў To / CC / BCC палёў перад адпраўкай

Private Sub Application_ItemSend (ByVal Item As Object, Адмяніць As Boolean) «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 On Error Resume Next Калі дэталь. клас <> olMail Then Exit Sub Set 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 для Outlook,") Калі xYesNo = vbNo Тады Адмяніць = True End If Next End Sub xRecipient

З дапамогай гэтага кода, вам не трэба правяраць Microsoft Scripting час выканання сцяжок, толькі непасрэдна захаваць код ўступіў у сілу.



Kutools для Outlook,

Больш 100 Пашыраныя функцыі для Перспектывы 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.