Preskoči na glavno vsebino

Kako v Outlook vstaviti vsa imena prejemnikov v telo e-pošte?

Včasih boste morali pri sestavljanju e-pošte v Outlooku v telo sporočila vstaviti imena vseh prejemnikov. Imena lahko seveda kopirate in prilepite v telo enega za drugim. Vendar je zelo dolgočasno, če je treba nalepiti na desetine imen prejemnikov. V tem članku bom govoril o enostavnem načinu reševanja tega dela v programu Outlook.

V Outlook vstavite vsa imena prejemnikov v telo e-pošte s kodo VBA


V Outlook vstavite vsa imena prejemnikov v telo e-pošte s kodo VBA

Naslednja koda VBA vam lahko pomaga, da v telo sporočila vstavite vsa imena prejemnikov iz polja To, naredite naslednje:

1. Zaženite Outlook in pridržite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Vstavite imena prejemnikov v telo sporočila:

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. In potem še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference Pojdite na Reference-Projekt1 pogovorno okno in preverite Knjižnica predmetov Microsoft Word možnost iz Razpoložljive reference seznam, glej posnetek zaslona:

4. Nato kliknite OK če želite zapreti pogovorno okno, bi morali dodati to kodo v Orodna vrstica za hitri dostop.

5. S klikom ustvarite novo sporočilo nova elektronska poštaV Sporočilo okno, kliknite Prilagodite orodno vrstico za hitri dostop in izberite Več ukazov, glej posnetek zaslona:

6. v Outlook Možnosti pogovorno okno:

(1.) Izberite Makri Iz Izberite ukaze iz spustni seznam;

(2.) In nato izberite kodno ime VBA, ki ste ga pravkar vstavili;

(3.) Kliknite Dodaj , da dodate kodo v Prilagodite orodno vrstico za hitri dostop seznamsko polje.

7. Nato se v mapo prikaže ikona makra Orodna vrstica za hitri dostop kot je prikazan naslednji posnetek zaslona:

8. Zdaj, ko kliknete ikono makra, bodo imena prejemnikov iz polja Za vstavljena v telo sporočila, kot je prikazan naslednji posnetek zaslona:


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

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