Bonbon ede nou delivre sèvis nou yo. Lè l sèvi avèk sèvis nou yo, ou dakò pou nou sèvi ak bonbon.
Ide: Lòt lang yo se Google-tradui. Ou ka vizite a English vèsyon nan lyen sa a.
Ouvri yon sesyon
x
or
x
x
enskri
x

or

Ki jan yo tcheke adrès moun k ap resevwa anvan voye nan Outlook?

Nan kèk tan, ou ka manke ajoute kèk benefisyè enpòtan nan An, CC oswa BCC jaden pandan y ap voye E-may nan Outlook. Isit la, mwen ka prezante yon metòd yo tcheke si adrès espesifik imel yo te ajoute anvan voye nan pespektiv.

Tcheke adrès yo anvan ou voye ak kòd VBA

Reply to tout eskli tèt mwen nan pespektiv

Lè nou itilize Reply nan tout fonksyon nan pespektiv, nou ka ajoute kont nou an nan jaden twò si Imèl yo ou receievd gen de plis kont ou. Nan ka sa a, ou ka vle retire kont ou nan jaden yo Pou ak CC. Ktools pou pespektiv's Non mwen ka fè ou yon favè sou rezoud travay sa a byen vit. Se sèlman bezwen yon sèl klike sou, tout kont myselft nan Outlook yo pral retire nan jaden yo ak CC. Klike sou jou jijman gratis 45!
doc reponn eskli kont
doc flèch dowm

doc reponn eskli kont 2
Kutools pou Outlook: ak plizyè douzèn sou la men pespektiv ajoute-ins, gratis eseye ki pa gen okenn limit nan jou 45.

Tcheke adrès yo anvan ou voye ak kòd VBA

Men mwen gen de kòd ka ede w rezoud travay sa a, ou ka chwazi nenpòt moun jan ou bezwen.

1. Peze Alt + F11 key yo pèmèt Microsoft Visual Basic pou aplikasyon pou fenèt.

2. Double klike sou ThisOutlookSession soti nan Pwojè1 fenèt yo louvri editè a postal, kopye epi kole anba a kòd editè.

VBA: tcheke adrès moun k ap resevwa nan jaden Anvan voye

Prive Sub Application_ItemSend (ByVal Item Kòm objè, Anile Kòm Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Kòm Variant Dim xAddress Kòm String Dim xRipipient Kòm Benefisyan Dim xPrompt Kòm String Dim xYesNo Kòm Integer Dim xDictionary Kòm Scripting.Dictionary sou kourikouloum-vite Erè Next Set xDictionary = New scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Pou mwen = LBound (xAddressArr) Pou UBound (xAddressArr) xDictionary.Add xAddressArr (mwen ), Vrè suiv mwen pou chak xRipipient nan atik.Repipi yo Si xRecipient.Type = olyo Lè sa a Si xDictionary.Exists (xRecipient.Address) Lè sa a, xDictionary.Remove xRecipient.Address Fen Si Next Si xDictionary.Count = 0 Lè sa a, GoTo L1 Pou mwen = XDUMX Pou xDictionary.Count - 0 Si xAddress = "" Lè sa a xAddress = xDictionary.Keys (mwen) Lòt xAddress = xAddress + ";" & xDictionary.Keys (i) Fen Si Next mwen xPrompt = "Ou pa voye sa a: "& xAddress &" èske ou sèten ou vle voye Mail la? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools pou pespektiv") Si xYesNo = vbNo Lè sa a Anile = Vrè L1: Mete xRecipient = Pa gen anyen Mete xDictionary = Pa gen anyen Fen Sub

doc tcheke moun k ap resevwa adrès anvan voye 1

Nan kòd la, ou ka chanje ("example1@126.com", "example2@126.com", "example3@126.com") pou benefisyè reyèl ou bezwen yo.

3. Lè sa a, tou nan la Microsoft Visual Basic pou aplikasyon pou fenèt, klike Zouti > Referans. Tcheke Microsoft Scripting ègzekutabl kazye nan Referans-Project1 dyalòg.

doc tcheke moun k ap resevwa adrès anvan voye 2 doc flèch dwa doc tcheke moun k ap resevwa adrès anvan voye 3

4. Klike sou OK epi sove kòd la.

Koulye a, si benefisyè yo espesifye pa parèt nan jaden pandan y ap voye Imèl, yon dyalòg pral pòp soti fè ou sonje si yo voye imèl la.
doc tcheke moun k ap resevwa adrès anvan voye 4

Avèk pi wo a kòd, li sèlman tcheke adrès imel yo nan Pou jaden, si ou vle tcheke pous Pou, CC ak BCC jaden, ou ka itilize anba a kòd.

VBA: tcheke adrès moun k ap resevwa nan domèn / CC / BCC anvan ou voye

Prive Sub Application_ItemSend (ByVal Item Kòm objè, Anile Kòm Boolean) 'UpdatebyExtendoffice20180523 Dim xRipipi Kòm Outlook.RepipiEn Dim xRipipient Kòm Outlook.Recipient Dim xPos Kòm Integer Dim xYesNo Kòm Integer Dim xPrompt Kòm String Dim xAddress Kòm String Sou Erè Kourikouloum-vite Next Si Item. Gwoup <> olMail Lè sa a, Exit Sub Set xRipipients = Item.Repipients xAddress = "example1@gmail.com" Pou chak xRipipient Nan xRipipient xPos = InStr (LCase (xRecipient.Address), xAddress) Si xPos = 0 Lè sa a, xPrompt = "Ou voye sa a nan "& xAddress &" .. ou sèten ou vle voye li? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools pou Outlook") Si xYesNo = vbNo Lè sa a Anile = Vrè Fen Si Next xRecipient End Sub

Avèk kòd sa a, ou pa bezwen tcheke Microsoft Scripting ègzekutabl kaz, jis dirèkteman sove kòd la yo pran efè.



Kutools pou pespektiv

Plis pase 100 Fonksyon avanse pou pespektiv 2010, 2013, 2016, 2019 ak 365

ekran piki kutools pou pespektiv ti pou banyè 201812

Plis Features | Telechaje gratis | Se sèlman $ 39.00 pou dè santèn de fonksyon

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.