Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i wirio cyfeiriadau derbynwyr cyn anfon Outlook?

Mewn rhai adegau, efallai y byddwch yn colli ychwanegu rhai derbynwyr pwysig i gaeau To, CC neu BCC wrth anfon E-bost trwy Outlook. Yma, gallaf gyflwyno dull i wirio a yw'r cyfeiriadau e-bost penodol wedi'u hychwanegu cyn anfon Outlook.

Gwiriwch gyfeiriadau cyn anfon gyda chod VBA

Mae Ateb i Bawb yn eithrio Fi fy hun mewn rhagolwg

Pan fyddwn yn defnyddio Ateb i bob swyddogaeth yn Outlook, efallai y byddwn yn ychwanegu ein cyfrifon i maes I hefyd os yw'r negeseuon e-bost a dderbyniwyd gennych yn cynnwys dau eich cyfrifon yn fwy. Yn yr achos hwn, efallai y byddwch am gael gwared ar eich cyfrifon o feysydd I a CC. Ktools ar gyfer Outlook's Fy Enwau Gall eich gwneud yn ffafr wrth ddatrys y swydd hon yn gyflym. Dim ond un clic sydd ei angen, bydd yr holl gyfrifon personol yn Outlook yn cael eu tynnu oddi ar feysydd I a CC. Cliciwch ar gyfer treialon 45 am ddim!
ateb ateb yn eithrio cyfrif
doc arrow dowm

Mae ateb doc yn eithrio'r cyfrif 2
Kutools for Outlook: gyda dwsinau o ychwanegu Outlook defnyddiol, am ddim i geisio heb gyfyngiad mewn diwrnodau 45.

Gwiriwch gyfeiriadau cyn anfon gyda chod VBA

Yma mae gen i ddau gôd i'ch helpu chi i ddatrys y swydd hon, gallwch ddewis unrhyw un fel y mae arnoch ei angen.

1. Gwasgwch Alt + F11 keys i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch ddwywaith ThisOutlookSession o Project1 Pane i agor golygydd y cod, copïwch a gludwch y cod isod i olygydd.

VBA: gwirio cyfeiriad y derbynnydd yn I maes cyn anfon

Preifat Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Fel Amrywiant Dim XAddress As String Dim xRecipient Fel Dim Derbyniwr xPrompt As String Dim xYesNo Fel Integer Dim xDictionary Fel Scripting.Dictionary On Error Trafod Nesaf Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Am i = LBound (xAddressArr) I UBound (xAddressArr) xDictionary.Add xAddressArr (i ), Gwir Nesaf i Ar gyfer pob XRecipient In Item.Recipients Os xRecipient.Type = olTo Then If xDictionary.Exists (xRecipient.Address) Yna xDictionary.Remove xRecipient.Address End If Next Os xDictionary.Count = 0 Yna GoTo L1 Am i = 0 I xDictionary.Count - 1 Os xAddress = "" Yna xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Diwedd Os Next i xPrompt = "Nid ydych yn anfon hyn at: "& xAddress &". Ydych chi'n siŵr eich bod am anfon y Post? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Os xYesNo = vbNo Yna Canslo = Gwir L1: Gosod xRecipient = Dim Set xDictionary = Does dim Is End

docio cyfeiriad derbyniwr cyn anfon 1

Yn y cod, gallwch chi newid ("example1@126.com", "example2@126.com", "example3@126.com") i'r derbynnwyr go iawn sydd eu hangen arnoch.

3. Yna hefyd yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau. Gwirio Microsoft Scripting Runtime blwch siec i mewn Cyfeiriadau-Project1 deialog.

docio cyfeiriad derbyniwr cyn anfon 2 doc arrow i'r dde docio cyfeiriad derbyniwr cyn anfon 3

4. Cliciwch OK ac achub y cod.

Nawr Os nad yw'r derbynnydd penodedig yn ymddangos yn y maes I wrth anfon negeseuon e-bost, bydd dialog yn dod allan i'ch atgoffa os anfonwch yr e-bost.
docio cyfeiriad derbyniwr cyn anfon 4

Gyda'r cod uchod, dim ond gwirio'r cyfeiriadau e-bost yn I maes, os ydych chi eisiau gwirio i mewn I, CC ac BCC caeau, gallwch chi ddefnyddio cod isod.

VBA: gwirio cyfeiriad derbynydd yn I / CC / meysydd BCC cyn anfon

Preifat Sub Application_ItemSend (Gan Erthygl Fel Gwrthwynebu, Diddymu Fel Boolean) 'UpdatebyExtendoffice20180523 Dim XRecipients Fel Outlook.Recipients Dim XRecipient Fel Outlook.Recipient Dim xPos Fel Integer Dim xYesNo Fel Integer Dim xPrompt As String Dim xAddress Wrth String On Error Ewch ymlaen Nesaf Os Eitem. Dosbarth <> olMail Yna Eithriad Is-Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Ar gyfer pob x Yn amlwg mewn xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Os xPos = 0 Yna xPrompt = "Rydych yn anfon hyn i "& xAddress &". Ydych chi'n siŵr eich bod am ei anfon? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Os xYesNo = vbNo Yna Canslo = Gwir Diwedd Os Nesaf Isaf XRecipient End

Gyda'r cod hwn, nid oes angen i chi wirio Microsoft Scripting Runtime blwch siec, dim ond yn achub y cod i ddod i rym.



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

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.