Slapukai padeda mums pristatyti mūsų paslaugomis. Naudodamiesi mūsų paslaugomis, jūs sutinkate su mūsų slapukų naudojimą.
Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip patikrinti gavėjo adresus prieš siunčiant per "Outlook"?

Kai kuriais atvejais galite praleisti kai kuriuos svarbius gavėjus įtraukti į "To, CC" arba "BCC" laukus, kai siunčiate el. Laiškus per "Outlook". Čia galiu įvesti metodą, skirtą patikrinti, ar konkrečių el. Pašto adresų buvo pridėta prieš siunčiant per "Outlook".

Patikrinkite adresus prieš siunčiant su VBA kodu

Atsakyti visiems išskirti save iš perspektyvos

Kai "Outlook" naudojame funkciją "Atsakyti visiems", galime pridėti savo paskyras lauke "To", jei jūsų priimamuose el. Laiškuose yra dar dvi jūsų paskyros. Šiuo atveju galbūt norėsite pašalinti savo paskyras iš laukų "Kam" ir "CC". "Ktools for Outlook"'s Mano vardas gali jums padėti greitai spręsti šį darbą. Reikia tik vieno paspaudimo, visos "myselft" paskyros "Outlook" bus pašalintos iš To ir CC laukų. Spustelėkite 45 dienų nemokamą bandomąją versiją!
doc atsakymas neįtraukia sąskaitos
doc arrow dowm

doc atsakymas neįtraukia paskyros 2
"Kutools for Outlook": su daugybe patogių priedų Outlook, galite nemokamai pabandyti be apribojimų per 45 dienas.

Patikrinkite adresus prieš siunčiant su VBA kodu

Čia aš turiu du kodus, kurie gali padėti jums išspręsti šį darbą, galite pasirinkti bet ką, ko jums reikia.

1. Paspauskite Alt + F11 keys įjungti "Microsoft Visual Basic for Applications" langas.

2. Dukart spustelėkite ThisOutlookSession nuo Project1 kad atidarytumėte kodo redaktorių, nukopijuokite ir įklijuokite kodą į redaktorių.

VBA: prieš siunčiant patikrinkite gavėjo adresą

Private Sub Application_ItemSend (ByVal Item As Object, Cancel as Boolean) "UpdatebyExtendoffice20180523 Dim xAddressArr () Kaip Variantas Dim xAddress Kaip String Dim xRecipient Kaip Gavėjas Dim xPrompt Kaip Styginiai Dim xYesNo Kaip Integer Dim xDictionary Kaip Scripting.Dictionary On Error Resume Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Jei i = LBound (xAddressArr) UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Kiekvienam xRecipient Item.Recipients Jei xRecipient.Type = olTo Tada, jei xDictionary.Exists (xRecipient.Address) Tada xDictionary.Remove xRecipient.Address End Jei Next Jei xDictionary.Count = 0 Tada GoTo L1 Jei i = 0 į xDictionary.Count - 1 Jei xAddress = "", tuomet xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Baigti, jei Next i xPrompt = "Jūs nesiunčia to: "& xAddress &". Ar tikrai norite siųsti laišką? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Jei xYesNo = vbNo Tada Atšaukti = Tikras L1: Nustatyti xRecipient = Nieko Nustatyti xDictionary = Nieko End Sub

doc patikrinti gavėjo adresą prieš siunčiant 1

Į kodą galite keisti ("example1@126.com", "example2@126.com", "example3@126.com") reikiamiems gavėjams.

3. Tada taip pat "Microsoft Visual Basic for Applications" langas, spustelėkite Įrankiai > Nuorodos, Patikrinkite Microsoft skriptų vykdymo laikas pažymėkite langelį Nuorodos-Project1 dialogas.

doc patikrinti gavėjo adresą prieš siunčiant 2 doc rodyklė dešinėn doc patikrinti gavėjo adresą prieš siunčiant 3

4. spragtelėjimas OK ir išsaugokite kodą.

Dabar Jei nurodytuosius gavėjus ne pasirodys lauke Kam, siunčiant el. Laiškus, pasirodys dialogo langas, primenantis jums, ar norite siųsti el. Laišką.
doc patikrinti gavėjo adresą prieš siunčiant 4

Su pirmiau nurodytu kodu tik patikrina el. Pašto adresus Iki lauke, jei norite užsiregistruoti Iki, CC ir BCC laukus, galite naudoti žemiau kodo.

VBA: prieš siunčiant patikrinkite gavėjo adresą To / CC / BCC laukuose

Private Sub Application_ItemSend (ByVal Item As Object, Cancel as Boolean) "UpdatebyExtendoffice20180523 Dim xRecipients kaip Outlook.Recipients Dim xRecipient Kaip Outlook.Recipient Dim xPos kaip Integer Dim xYesNo kaip Integer Dim xPrompt Kaip String Dim xAddress Kaip String On Klaida Tęsti toliau Jei Item. Klasė <> olMail tada Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Kiekvienam xRecipient xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Jei xPos = 0 Tada xPrompt = "Jūs siunčiate tai "& xAddress &". Ar tikrai norite jį išsiųsti? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Jei xYesNo = vbNo Tada atšaukite = True End Jei toliau xRecipient End Sub

Su šiuo kodu jums nereikia tikrinti Microsoft skriptų vykdymo laikas žymės langelį, tiesiog išsaugokite kodą, kad jis įsigalios.



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 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.