Kex hjálpa okkur að veita þjónustuna. Með því að nota þjónustu okkar, samþykkir þú að notkun okkar á kökum.
Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að athuga viðtakanda áður en þú sendir í gegnum Outlook?

Í sumum tilfellum gætir þú misst af því að bæta við mikilvægum viðtakendum í Til, CC eða BCC reiti meðan þú sendir tölvupóst í gegnum Outlook. Hér get ég kynnt aðferð til að athuga hvort tilteknar netföng hafi verið bætt við áður en sent er í gegnum Outlook.

Athugaðu heimilisföng áður en þú sendir með VBA kóða

Svara Allir útiloka mig sjálfur í sjónarhornum

Þegar við notum Svara alla virka í Outlook, getum við bætt reikningum okkar inn í Til reitinn líka ef tölvupósturinn sem þú færð inniheldur tvö fleiri reikninga. Í þessu tilfelli gætirðu viljað fjarlægja reikningana þína úr reitunum Til og CC. Ktools fyrir Outlook's Ég heiti getur hjálpað þér að leysa þetta starf fljótt. Einungis þörf á einum smelli, allar myselft reikninga í Outlook verða fjarlægðar úr To og CC sviðum. Smelltu fyrir 45 daga ókeypis prufa!
doc svara útiloka reikning
doc ör dowm

doc svar útiloka reikning 2
Kutools for Outlook: með heilmikið af handhægum Outlook viðbótum, ókeypis að reyna án takmörkunar á 45 daga.

Athugaðu heimilisföng áður en þú sendir með VBA kóða

Hér hef ég tvær kóðar sem geta hjálpað þér að leysa þetta starf, þú getur valið einhvern sem þú þarft.

1. Ýttu á Alt + F11 kEys að gera Microsoft Visual Basic fyrir forrit gluggi.

2. Tvísmella ThisOutlookSession frá Project1 glugganum til að opna kóðaritlinann, afritaðu og límdu neðan kóða í ritstjóra.

VBA: Athugaðu viðtakanda heimilisfang í Til reit áður en þú sendir

Private Sub Application_ItemSend (ByVal Liður sem hlutur, Hætta við sem Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Eins og Variant Dim xAddress sem String Dim xRecipient sem viðtakandi Dim xPrompt sem String Dim xYesNo sem heiltöluljós xDictionary sem Scripting.Dictionary á villa halda áfram að setja Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Fyrir i = LBound (xAddressArr) Til UBound (xAddressArr) xDictionary.Add xAddressArr ), True Next I Fyrir hverja xRecipient.Type = olTo Þá Ef xDictionary.Exists (xRecipient.Address) Þá xDictionary.Remove xRecipient.Address End Ef Next Ef xDictionary.Count = 0 Þá GoTo L1 Fyrir i = 0 To xDictionary.Count - 1 Ef xAddress = "" Þá xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Enda Ef Next I xPrompt = "Þú sendir þetta ekki til: "& xAddress &". Ertu viss um að þú viljir senda póstinn? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Ef xYesNo = vbNo Þá Hætta við = True L1: Setja xRecipient = Ekkert sett xDictionary = Ekkert End Sub

Skjal skaltu athuga viðtakanda heimilisfang áður en þú sendir 1

Í kóðanum er hægt að breyta ("example1@126.com", "example2@126.com", "example3@126.com") til alvöru viðtakenda sem þú þarft.

3. Þá líka í Microsoft Visual Basic fyrir forrit glugga, smella Verkfæri > Tilvísanir. Athuga Microsoft Scripting Runtime kassi inn Tilvísanir-Project1 valmynd.

Skjal skaltu athuga viðtakanda heimilisfang áður en þú sendir 2 doc ör hægri Skjal skaltu athuga viðtakanda heimilisfang áður en þú sendir 3

4. smellur OK og vista kóðann.

Nú Ef tilgreindir viðtakendur birtast ekki í Til reit þegar tölvupóstur er sendur birtist gluggi til að minna þig á að senda tölvupóstinn.
Skjal skaltu athuga viðtakanda heimilisfang áður en þú sendir 4

Með ofangreindri kóða skoðuðu aðeins netföngin í Til sviði, ef þú vilt skrá þig inn Til, CC og BCC sviðum, þú getur notað neðan kóða.

VBA: Athugaðu viðtakanda heimilisfang í To / CC / BCC reiti áður en þú sendir

Private Sub Application_ItemSend (ByVal Atriði sem hlutur, Hætta við sem Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients Eins og Outlook.Recipients Dim xRecipient Eins og Outlook.Recipient Dim xPos sem heiltölur Dim xYesNo sem heiltöluljós xPrompt sem strengur Dim xAddress sem strengur á Villa halda áfram á eftir ef hlutur. Flokkur <> olMail Þá Hætta undir Setja xRecipients = Item.Recipients xAddress = "example1@gmail.com" Fyrir hverja xRecipient í xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Ef xPos = 0 Þá xPrompt = "Þú sendir þetta til "& xAddress &". Ertu viss um að þú viljir senda það? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Ef xYesNo = vbNo Þá Cancel = True End Ef Next xRecipient End Sub

Með þessum kóða þarftu ekki að athuga Microsoft Scripting Runtime kassi, veldu bara beint kóða til að taka gildi.



Kutools fyrir Outlook

Meira en 100 Advanced Aðgerðir fyrir Outlook 2010, 2013, 2016, 2019 og 365

skjár skot kutools fyrir horfur lítið fyrir borði 201812

Fleiri eiginleikar | Ókeypis niðurhal | Aðeins $ 39.00 fyrir hundruð virka

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.