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!
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
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.
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.
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è.