Cookies tgħinna jagħti servizzi tagħna. Bl-użu tas-servizzi tagħna, inti taqbel li l-użu tagħna ta 'cookies.
Tip: Lingwi oħra huma tradotti minn Google. Tista 'żżur il - English verżjoni ta 'din ir-rabta.
log in
x
or
x
x
reġistru
x

or

Kif tikkontrolla l-indirizzi tar-reċipjent qabel tibgħat l-Outlook?

F'xi drabi, tista 'titlifda żżid xi riċevituri importanti f'oqsma ta' To, CC jew BCC waqt li tibgħat E-mails permezz ta 'Outlook. Hawnhekk, nista 'ndaħħal metodu biex tivverifika jekk l-indirizzi tal-email speċifiċi ġewx miżjuda qabel ma bagħtet l-Outlook.

Iċċekkja l-indirizzi qabel ma tibgħat il-kodiċi VBA

Irrispondi għal kulħadd jeskludi lilu nnifsu fil-prospetti

Meta nużaw it-Tweġiba għall-funzjonijiet kollha fl-Outlook, nistgħu żidna l-kontijiet tagħna f'Agħalek ukoll jekk l-emails li tirċievi jkun fih żewġ kontijiet oħra. F'dan il-każ, tista 'tkun trid tneħħi l-kontijiet tiegħek mill-oqsma To u CC. Ktools għall-Outlook's Ismijiet Tiegħi Tista 'tagħmel inti favur is-soluzzjoni ta' dan ix-xogħol malajr. Biss ikklikkja waħda, il-kontijiet myselft kollha fl-Outlook se jitneħħew mill-oqsma To u CC. Ikklikkja għal ġranet 45 mingħajr prova!
Ir-risposta tad-doc teskludi l-kont
doc arrow dowm

It-tweġiba tad-doc teskludi l-kont 2
Kutools għall-Outlook: ma 'tużżani ta' Outlook add-ins handy, ħielsa li jippruvaw mingħajr limitazzjoni fil-ġranet 45.

Iċċekkja l-indirizzi qabel ma tibgħat il-kodiċi VBA

Hawnhekk għandi żewġ kodiċijiet jistgħu jgħinuk issolvi dan ix-xogħol, tista 'tagħżel lil kulħadd kif għandek bżonn.

1. Istampa Alt + F11 keys biex jippermettu Microsoft Visual Basic għall-Applikazzjonijiet tieqa.

2. Double click Din is-Sessjoni ta 'l-Otezzjoni minn Project1 ħġieġa biex tiftaħ l-editur tal-kodiċi, kopja u paste taħt il-kodiċi għall-editur.

VBA: Iċċekkja l-indirizz tar-reċipjent fil-kaxxa A qabel ma tibgħat

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) "UpdatebyExtendoffice20180523 Dim xAddressArr () Bħala Varjant Dim xAddress Kif String Dim xRecipient Bħala Reċipjent Dim xPrompt Kif String Dim xYesNo Kif Integer Dim xDictionary Kif Scripting.Dictionary Fuq Error Resume Sett li jmiss xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Għal i = LBound (xAddressArr) Lil UBound (xAddressArr) xDictionary. Aġġorna xAddressArr (i ), True Next i Għal Kull xRecipient Fil-Punt. Reċipjenti Jekk xRecipient.Type = olTo Imbagħad Jekk xDictionary.Exists (xRecipient.Address) Imbagħad xDictionary.Remove xRecipient.Address End Jekk Next Jekk xDictionary.Count = 0 Imbagħad GoTo L1 Għal i = 0 Biex xDictionary.Count - 1 Jekk xAddress = "" Imbagħad xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "M'intix qed tibgħat dan biex: "& xAddress &". Inti żgur li trid tibgħat il-Mail? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Jekk xYesNo = vbNo Imbagħad Ikkanċella = Veru L1: Issettja xRecipient = Xejn Set xDictionary = Xejn End Sub

id-dokument jiċċekkja l-indirizz tar-reċipjent qabel ma jibgħat 1

Fil-kodiċi, tista 'tbiddel ("example1@126.com", "example2@126.com", "example3@126.com") għar-reċipjenti reali li għandek bżonn.

3. Imbagħad ukoll fil - Microsoft Visual Basic għall-Applikazzjonijiet tieqa, ikklikkja għodod > Referenzi. Iċċekkja Microsoft Scripting Runtime checkbox fil Referenzi-Proġett1 dialog.

id-dokument jiċċekkja l-indirizz tar-reċipjent qabel ma jibgħat 2 doc vleġġa dritt id-dokument jiċċekkja l-indirizz tar-reċipjent qabel ma jibgħat 3

4. ikklikkja OK u ssalva l-kodiċi.

Issa Jekk ir-riċevituri speċifikati ma jidhrux fil-kaxxa A waqt li tibgħat l-emails, jinbeda djalogu biex tfakkrek jekk tibgħat l-email.
id-dokument jiċċekkja l-indirizz tar-reċipjent qabel ma jibgħat 4

Bil-kodiċi ta 'hawn fuq, huwa biss jiċċekkja l-indirizzi tal-posta elettronika fi Lil qasam, jekk trid tivverifika Lil, CC u BCC oqsma, tista 'tuża taħt il-kodiċi.

VBA: Iċċekkja l-indirizz tar-reċipjent f'oqsma To / CC / BCC qabel ma tibgħat

Private Sub Application_ItemSend (ByVal Item As Object, Ikkanċella Boolean) "UpdatebyExtendoffice20180523 Dim xRecipients Kif Outlook.Recipients Dim xRecipient Bħala Outlook.Recipient Dim xPos Kif Integer Dim xYesNo As Integer Dim xPrompt As String Dim xAddress Kif String Fuq Error Resume Li jmiss Jekk Punt. Klassi <> olMail Imbagħad Eżitu Sub Set xRecipients = Oġġett.Reċipjenti xAddress = "example1@gmail.com" Għal Kull xRecipjent F'xRecipjenti xPos = InStr (LCase (xRecipient.Address), xAddress) Jekk xPos = 0 Imbagħad xPrompt = "Int tibgħat dan għal "& xAddress &". Int żgur li trid tibgħatha? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Jekk xYesNo = vbNo Imbagħad Ikkanċella = True End Jekk Next xRecipient End Sub

B'din il-kodiċi, m'għandekx bżonn tikkontrolla Microsoft Scripting Runtime checkbox, sempliċement issejvja direttament il-kodiċi biex tidħol fis-seħħ.



Kutools għall-Outlook

Aktar minn Funzjonijiet Avvanzati ta '100 għal Outlook 2010, 2013, 2016, 2019 u 365

kutools ta &#39;screen shot għall-prospetti ċkejkna għall-bandiera 201812

Karatteristiċi Aktar | Free download | Biss $ 39.00 għal mijiet ta 'funzjonijiet

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.