Vidakuzi vinatusaidia kutoa huduma zetu. Kwa kutumia huduma zetu, unakubaliana na matumizi yetu ya kuki.
Kidokezo: Lugha zingine ni Google-Ilitafsiriwa. Unaweza kutembelea English toleo la kiungo hiki.
Ingia
x
or
x
x
Daftari
x

or

Jinsi ya kuangalia anwani za mpokeaji kabla ya kutuma kupitia Outlook?

Katika nyakati nyingine, unaweza kukosa kuongeza wapokeaji muhimu katika To, CC au BCC wakati wa kupeleka barua pepe kupitia Outlook. Hapa, ninaweza kuanzisha njia ya kuchunguza ikiwa anwani za barua pepe maalum zimeongezwa kabla ya kutuma kupitia Outlook.

Angalia anwani kabla ya kutuma na msimbo wa VBA

Jibu kwa Wote Jijitenga katika mtazamo

Tunapotumia Jibu kwa kazi zote katika Outlook, tunaweza kuongeza akaunti zetu kwenye Shamba pia ikiwa barua pepe unazopokea ina akaunti zako mbili zaidi. Katika kesi hii, unaweza kutaka kuondoa akaunti zako kutoka kwenye maeneo ya To na CC. Ktools kwa Outlook's Majina Yangu inaweza kukufaidika kutatua kazi hii haraka. Inahitaji tu click moja, akaunti zangu zote za nje katika Outlook zitaondolewa kutoka kwa To na CC. Bofya kwa majaribio ya bure ya 45 siku!
jibu la doc uondoe akaunti
futa mshale

jibu la doc uondoe akaunti 2
Kutools kwa Outlook: pamoja na vitu vingi vinavyotumika vyema vya Outlook, bila kujaribu bila kupunguzwa kwa siku za 45.

Angalia anwani kabla ya kutuma na msimbo wa VBA

Hapa nina kanuni mbili zinaweza kukusaidia kutatua kazi hii, unaweza kuchagua mtu yeyote kama unahitaji.

1. Bonyeza Alt + F11 keys ili kuwezesha Microsoft Visual Msingi kwa Maombi dirisha.

2. Bonyeza mara mbili HiiOutlookSession kutoka Project1 pane ili kufungua mhariri wa kificho, nakala na ushirike chini ya kificho kwa mhariri.

VBA: angalia anwani ya mpokeaji kwenye Shamba kabla ya kutuma

Jumuiya ya Maombi ya Maombi_ItemSend (Vikwazo vya ToVal kama Kitu, Futa Kama Boolean) 'Mwisho wa MwishoTangu ya Msajili xMUMX Dim xAddressArr () Kama Mchanganyiko Dim xAddress Kama String Dim xRipipient Kama Mpokeaji Dim xPrompt Kama Mstari Dim xYesNo Kama Integer Dim xDictionary Kama Scripting.Kuonyesha Juu ya Hitilafu Resume Next Itaja xDictionary = New Scripting.Kuonyesha xAddressArr = Array ("mfano20180523@1.com", "mfano126@2.com", "mfano126@3.com") Kwa i = LBound (xAddressArr) Ili Unda (xAddressArr) xDictionary.Kongeza xAddressArr (i ), Kweli Ifuatayo Kwa Kila Mpokeaji Katika Kitabu.Waadhibu Kama Mpokeaji.Type = Halafu Ikiwa ni xDictionary.Exists (xRecipient.Address) Kisha xDictionary.Kuondoa xRecipient.Address Mwisho Kama Ijayo Kama xDictionary.Count = 126 Kisha kwenda L0 Kwa i = 1 Kwa xDictionary.Count - 0 Kama xAddress = "" Kisha xAddress = xDictionary.Kizi (i) Nyingine xAddress = xAddress + ";" & xDictionary.Kizi (i) Mwisho Kama Ijayo i xPrompt = "Hutumii hii kwa: "& xAddress &". Una uhakika unataka kutuma Mail? " xYesNo = MsgBox (xPrompt, vBQuestion + vbKu Hapana, "Kutools kwa Outlook") Kama xYesNo = vbNo Kisha kufuta = Kweli L1: Weka xRecipient = Hakuna Kuweka xDictionary = Hakuna Mwisho Sub

tazama anwani ya mpokeaji kabla ya kutuma 1

Katika kanuni, unaweza kubadilisha ("example1@126.com", "example2@126.com", "example3@126.com") kwa wapokeaji halisi unahitaji.

3. Kisha pia katika Microsoft Visual Msingi kwa Maombi dirisha, bonyeza zana > Marejeo. Angalia Runtime ya Microsoft Scripting cheza cha kuingia Marejeo-Project1 mazungumzo.

tazama anwani ya mpokeaji kabla ya kutuma 2 fanya mshale wa kulia tazama anwani ya mpokeaji kabla ya kutuma 3

4. Bonyeza OK na uhifadhi msimbo.

Sasa ikiwa wapokeaji maalum hawaonekani kwenye Shamba wakati wa kutuma barua pepe, mazungumzo yatakuja kukukumbusha ikiwa kutuma barua pepe.
tazama anwani ya mpokeaji kabla ya kutuma 4

Kwa kanuni ya hapo juu, inatafuta anwani za barua pepe tu Kwa shamba, ikiwa unataka kuingia Kwa, CC na BCC mashamba, unaweza kutumia chini ya kificho.

VBA: angalia anwani ya mpokeaji kwenye maeneo ya To / CC / BCC kabla ya kutuma

Maombi ya kibinafsi Maombi_ItemSend (Object ByVal Item kama Kitu, Futa Kama Boolean) 'Mwisho wa MwishoTangu ya Msajili20180523 Dim xRecipients Kama Outlook.Wazamaji Dim XRipipient Kama Outlook.Mpokeaji Dim XPos Kama Integer Dim xYesNo Kama Integer Dim XPrompt Kama String Dim xAddress Kama String On Error Resume Next If Item. Hatari <> olMail kisha Toka Sub Set SetRecipients = Item.Recipients xAddress = "mfano1@gmail.com" Kwa kila Mpokeaji Katika Watazamaji xPos = InStr (LCase (xRecipient.Address), xAddress) Kama xPos = 0 Kisha xPrompt = "Unatuma hii kwa "& xAddress &". Una uhakika unataka kutuma? " xYesNo = MsgBox (xPrompt, vbYes No + vbQuestion + 4096, "Kutools kwa Outlook") Kama xYesNo = vbNo Halafu Futa = Mwisho Mwisho Kama Next xPokeje Mwisho Sub

Kwa msimbo huu, huna haja ya kuangalia Runtime ya Microsoft Scripting cheki cha kuzingatia, salama moja kwa moja msimbo utumie.



Kutools kwa Outlook

Zaidi ya kazi za 100 za Juu kwa Outlook 2010, 2013, 2016, 2019 na 365

skrini ya kutosha ya skrini kwa vidogo vidogo vya bendera 201812

Makala zaidi | bure Download | Tu $ 39.00 kwa mamia ya kazi

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.