Skip to main content

Conas gach ainm faighteora a chur isteach sa chomhlacht ríomhphoist in Outlook?

Uaireanta, b’fhéidir go mbeidh ort ainmneacha na bhfaighteoirí uile a chur isteach sa chorp teachtaireachta agus ríomhphost á chumadh in Outlook. Ar ndóigh, is féidir leat na hainmneacha a chóipeáil agus a ghreamú isteach sa chorp ceann ar cheann. Ach, tá sé an-tedious má tá an iliomad ainmneacha faighteora caithfear a ghreamú. An t-alt seo, labhróidh mé faoi bhealach éasca chun an post seo a réiteach in Outlook.

Cuir gach ainm faighteora isteach sa chomhlacht ríomhphoist le cód VBA in Outlook


Cuir gach ainm faighteora isteach sa chomhlacht ríomhphoist le cód VBA in Outlook

Is féidir leis an gcód VBA seo a leanas cabhrú leat gach ainm faighteora ó To field a chur isteach sa chorp teachtaireachta, déan mar seo le do thoil:

1. Seoladh an Outlook, agus ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Cuir ainmneacha an fhaighteora isteach sa chorp teachtaireachta:

Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
    xRecipAddress = xRecipient.Address
    Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    For i = 1 To 3
        xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
        Set xFoundContact = xItems.Find(xFilterAddr)
        If Not (xFoundContact Is Nothing) Then
           xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
           Exit For
        End If
    Next
    If (xFoundContact Is Nothing) Then
       xRecipName = Split(xRecipAddress, "@")(0)
       xRecipNames = xRecipNames & xRecipName & Chr(10)
    End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub

3. Agus ansin fós sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil uirlisí > tagairtí dul go dtí an Tagairtí-Tionscadal1 bosca dialóige, agus seiceáil Leabharlann Réada Microsoft Word rogha ón Tagairtí atá ar Fáil bosca liosta, féach an scáileán:

4. Ansin cliceáil OK chun an dialóg a dhúnadh, anois, ba cheart duit an cód seo a chur leis an Barra Uirlisí Rochtana Tapa.

5. Cruthaigh teachtaireacht nua trí chliceáil Ríomhphost Nua, I Teachtaireacht fuinneog, cliceáil Saincheap Barra Uirlisí Rochtana Tapa deilbhín, agus roghnaigh Tuilleadh Orduithe, féach ar an scáileán:

6. Sa an Roghanna Outlook bosca dialóige:

(1.) Roghnaigh Macraí ó na Roghnaigh orduithe ó liosta anuas;

(2.) Agus ansin roghnaigh an t-ainm cód VBA atá curtha isteach agat díreach anois;

(3.) Cliceáil Cuir cnaipe chun an cód a chur isteach sa Saincheap Barra Uirlisí Rochtana Tapa bosca liosta.

7. Agus ansin taispeántar macra-íocón isteach sa Barra Uirlisí Rochtana Tapa mar a thaispeántar an pictiúr seo a leanas:

8. Anois, nuair a chliceálann tú an macra deilbhín, cuirfear ainmneacha an fhaighteora ón réimse To isteach sa chorp teachtaireachta mar a thaispeántar an scáileán a leanas:


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations