Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako preveriti naslove prejemnikov, preden pošljete prek programa Outlook?

V nekaterih primerih lahko med pošiljanjem e-pošte prek Outlooka zamudite dodajanje pomembnih prejemnikov v polja To, CC ali BCC. Tukaj lahko uvedem metodo, s katero preverim, ali so bili določeni e-poštni naslovi dodani pred pošiljanjem prek Outlooka.

Pred pošiljanjem s kodo VBA preverite naslove

Odgovori vsem, izključite sebe v perspektivi

Ko uporabljamo odgovor na vse funkcije v programu Outlook, lahko naše račune dodamo tudi v polje To, če e-poštna sporočila, ki jih prejemate, vsebujejo še dva vašega računa. V tem primeru boste morda želeli odstraniti vaše račune iz polj To in CC. KTools za Outlook's Moje ime je vam lahko pomaga pri reševanju tega posla hitro. Potrebujete le en klik, vsi računi myselft v Outlooku bodo odstranjeni iz polj To in CC. Kliknite za brezplačni preskus 45 dni!
doc odgovor izključi račun
doc arrow dowm

doc odgovor izključi račun 2
Kutools for Outlook: z več desetimi priročnimi dodatki Outlook, lahko brezplačno poskusite brez omejitev v dnevih 45.

Pred pošiljanjem s kodo VBA preverite naslove

Tukaj imam dve kodi, ki vam lahko pomagajo rešiti to delo, lahko izberete kogarkoli, kot ga potrebujete.

1. Pritisnite Alt + F11 keys omogočiti Microsoft Visual Basic za aplikacije okno.

2. Dvojni klik ThisOutlookSession iz Project1 okno, da odprete urejevalnik kode, kopirajte in prilepite kodo pod kodo v urejevalnik.

VBA: pred pošiljanjem preverite naslov prejemnika v polje Za

Private Sub Application_ItemSend (ByVal Element As Object, Prekliči kot Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Kot Variant Dim xAddress As String Dim xRecipient kot prejemnik Dim xPrompt As String Dim xYesNo As Integer Dim xDictionary Kot Scripting.Dictionary On Error Resume Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("primer1@126.com", "primer2@126.com", "primer3@126.com") Za i = LBound (xAddressArr) Za UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Za vsak xRecipient v elementu.Recipients Če xRecipient.Type = olTo Če je xDictionary.Exists (xRecipient.Address) Potem xDictionary.Remove xRecipient.Address End Če Next Če xDictionary.Count = 0 Potem GoTo L1 Za i = 0 Na xDictionary.Count - 1 Če xAddress = "" Potem xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Končaj Če je Next i xPrompt = "Ne pošiljate to na: "& xAddress &". Ali ste prepričani, da želite poslati pošto? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Če xYesNo = vbNo Potem Cancel = True L1: Nastavi xRecipient = Nič ni nastavljen xDictionary = Nič konec pod

doc preveri naslov prejemnika, preden pošlje 1

V kodi lahko spremenite ("example1@126.com", "example2@126.com", "example3@126.com") za resnične prejemnike, ki jih potrebujete.

3. Potem tudi v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference. Check Microsoft Scripting Runtime potrditveno polje v Reference-Project1 dialog.

doc preveri naslov prejemnika, preden pošlje 2 doc arrow desno doc preveri naslov prejemnika, preden pošlje 3

4. klik OK in shranite kodo.

Zdaj Če se navedeni prejemniki med pošiljanjem e-poštnih sporočil ne pojavijo v polju, se bo pojavilo pogovorno okno, ki vas opomni, ali želite poslati e-poštno sporočilo.
doc preveri naslov prejemnika, preden pošlje 4

Z zgornjo kodo preveri samo e-poštne naslove v Da polje, če se želite prijaviti Da, CC in BCC polja, lahko uporabite spodnjo kodo.

VBA: pred pošiljanjem preverite naslov prejemnika v poljih To / CC / BCC

Private Sub Application_ItemSend (ByVal Element As Object, Prekliči kot Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients kot Outlook.Recipients Dim xRecipient Kot Outlook.Recipient Dim xPos kot Integer Dim xYesNo As Integer Dim xPrompt As String Dim xAddress As String On Resume Next Če element. Razred <> olMail Potem zapustite podskupino xRecipients = Item.Recipients xAddress = "primer1@gmail.com" Za vsak xRecipient v xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Če xPos = 0 Potem xPrompt = "Pošiljate to na »& xAddress &«. Ali ste prepričani, da ga želite poslati? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Če je xYesNo = vbNo Potem Cancel = True End Če naslednja xRecipient End Sub

S to kodo vam ni treba preverjati Microsoft Scripting Runtime potrdite polje, šele neposredno shranite kodo, da začne veljati.



Kutools za Outlook

Več kot 100 napredne funkcije za Outlook 2010, 2013, 2016, 2019 in 365

zaslon strel kutools za napovedi majhen za banner 201812

Več funkcij | Brezplačen prenos | Samo $ 39.00 za stotine funkcij

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.