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 Pro: Shrani 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č.