Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas seoltaí faighteoirí a sheiceáil sula gcuirfear isteach Outlook?

I roinnt uaireanta, b'fhéidir go gcailleann tú roinnt faighteoirí tábhachtacha isteach i réimsí To, CC nó BCC agus seoltaí ríomhphoist á sheoladh trí Outlook. Anseo, is féidir liom modh a thabhairt isteach chun a sheiceáil an bhfuil seoltaí sonracha ríomhphoist curtha isteach sula gcuirfí Outlook orthu.

Seol seoltaí sula gcuirfidh tú cód VBA

Fág Freagra do Chách mé féin in ionchas

Nuair a úsáidfimid Freagra don fheidhm ar fad in Outlook, féadfaimis ár gcuntas a chur isteach i réimse A freisin má tá dhá chuntas níos mó ag na ríomhphoist a gheobhaidh tú. Sa chás seo, b'fhéidir gur mhaith leat do chuid cuntais a bhaint as na réimsí Go agus CC. Ktools le haghaidh Outlook's Mo Ainmneacha is féidir leat babhtáil a dhéanamh leat maidir leis an bpost seo a réiteach go tapa. Ní gá ach cliceáil amháin, bainfear gach cuntais féin in Outlook ó réimsí To agus CC. Cliceáil le haghaidh triail saor ó laethanta 45!
freagra doc eisiamh cuntas
doc arrow dowm

eisíonn an freagra doc cuntas 2
Kutools for Outlook: le mórán de bhreiseáin Outlook handy, saor in aisce chun iarracht gan aon teorannú a dhéanamh i laethanta 45.

Seol seoltaí sula gcuirfidh tú cód VBA

Anseo, tá dhá chód agam, is féidir leat cabhrú leat an post seo a réiteach, is féidir leat duine ar bith a roghnú de réir mar is gá duit.

1. Brúigh Alt + F11 keys a chumasú Microsoft Visual Basic d'Iarratais fhuinneog.

2. Cliceáil dúbailte ThisOutlookSession ó Project1 cuir le do thoil an eagarthóir cód a oscailt, cóip agus greamaigh an cód thíos chuig an eagarthóir.

VBA: seol seoladh an fhaighteora a sheiceáil i réimse A roimh sheoladh

Private Sub Application_ItemSend (ByVal Item As Object, Cealaigh Mar Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Mar a Athraíonn Dim Éagsúil mar String Dim XRecipient Mar Faighteoir Dim xPrompt As String Dim xYesNo Mar Comhtháthú Dim xDictionary As Scripting.Dictionary On Error Lean Ar Aghaidh Socraigh xDictionary = Scripting Nua.Deirmiúil xAddressArr = Eagrán ("example1@126.com", "example2@126.com", "example3@126.com") I gcás i = LBound (xAddressArr) Chun UBound (xAddressArr) xDictionary.Add xAddressArr (i ), Fíor Ar Aghaidh i Le haghaidh gach XRecipient In Item.Recipients Má xRecipient.Type = olTo Ansin Má xDictionary.Exists (xRecipient.Address) Ansin xDictionary.Remove xRecipient.Address End If Next Má xDictionary.Count = 0 Ansin GoTo L1 I gcás i = 0 Go xDictionary.Count - 1 Má xAddress = "" Ansin xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Deireadh Má Next i xPrompt = "Níl tú seo á sheoladh chuig: "& xAddress &" An bhfuil tú cinnte gur mhaith leat an Ríomhphost a sheoladh? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Má xYesNo = vbNo Ansin Cealaigh = Fíor L1: Socraigh xRecipient = Níl Socraigh XDictionary = Ní dhéanfaidh aon ní Deireadh

seiceáil an seoladh faighteora roimh 1 a sheoladh

Sa chód, is féidir leat athrú ("example1@126.com", "example2@126.com", "example3@126.com") leis na faighteoirí fíor is gá duit.

3. Ansin sa Microsoft Visual Basic d'Iarratais fuinneog, cliceáil uirlisí > tagairtí. Seiceáil Microsoft Scripting Runtime bosca seiceála i Tagairtí-Project1 dialóg.

seiceáil an seoladh faighteora roimh 2 a sheoladh doc arrow ceart seiceáil an seoladh faighteora roimh 3 a sheoladh

4. cliceáil OK agus an cód a shábháil.

Anois Mura bhfuil na faighteoirí sonraithe le feiceáil i réimse A agus iad ag seoladh ríomhphoist, nochtfar dialóg chun tú a chur i gcuimhne duit an ríomhphost a sheoladh.
seiceáil an seoladh faighteora roimh 4 a sheoladh

Leis an gcód thuas, seiceáil sé ach na seoltaí ríomhphoist Chun réimse, más mian leat seiceáil isteach Chun, CC agus BCC réimsí, is féidir leat úsáid a bhaint as cód thíos.

VBA: seol seoladh faighteora i réimsí To / CC / BCC sula gcuirfear isteach é

Private Sub Application_ItemSend (ByVal Item As Object, Cealaigh Mar Boolean) 'UpdatebyExtendoffice20180523 Dim XRecipients Mar Outlook.Recipients Dim xRecipient Mar Outlook.Recipient Dim xPos Mar Comhtháthú Dim xYesNo Mar Comhtháthú Dim xPrompt As String Dim xAddress Mar String On Error Lean Ar Aghaidh Má Mír. Aicme <> olMail Ansin Socraigh Fo-Shocrú xRecipients = Mír.Ríomhairí xAddress = "example1@gmail.com" Do gach XRecipient In xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Má xPos = 0 Ansin xPrompt = "Tá tú ag seoladh seo le "& xAddress &". An bhfuil tú cinnte gur mhaith leat é a sheoladh? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Más rud é xYesNo = vbNo Ansin Cealaigh = Fíorchríoch Má tá an t-Ar Aghaidh

Leis an gcód seo, ní gá duit a sheiceáil Microsoft Scripting Runtime Bosca Seiceála, ach an cód a shábháil go díreach chun éifeacht a chur i bhfeidhm.



Kutools le haghaidh Outlook

Níos mó ná 100 Feidhmeanna Casta le haghaidh Outlook 2010, 2013, 2016, 2019 agus 365

Scáileán ar nósanna imeachta le haghaidh dearcadh bídeach don bhratach 201812

Gnéithe níos mó | Free Download | Níl ach $ 39.00 ar na céadta feidhmeanna

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.