Kuinka lisätä kaikkien vastaanottajien nimet sähköpostin runkoon Outlookissa?
Joskus saatat joutua lisäämään kaikkien vastaanottajien nimet viestitekstiin, kun kirjoitat sähköpostia Outlookissa. Voit tietysti kopioida ja liittää nimet runkoon yksitellen. Mutta se on erittäin tylsää, jos vastaanottajien nimiä on liitettävä kymmeniä. Tässä artikkelissa puhun helposta tavasta ratkaista tämä työ Outlookissa.
Lisää kaikkien vastaanottajien nimet sähköpostin runkoon VBA-koodilla Outlookissa
Lisää kaikkien vastaanottajien nimet sähköpostin runkoon VBA-koodilla Outlookissa
Seuraava VBA-koodi voi auttaa sinua lisäämään kaikkien vastaanottajien nimet Vastaanottaja-kentästä viestin runkoon, toimi seuraavasti:
1. Käynnistä Outlook ja pidä sitten -näppäintä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Klikkaus liite > Moduulitja liitä seuraava koodi tiedostoon Moduulit Ikkuna.
VBA-koodi: Lisää vastaanottajien nimet viestin runkoon:
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. Ja sitten vielä sisällä Microsoft Visual Basic for Applications -ikkunassa Työkalut > Viitteet mennä Referenssit-Projekti1 valintaikkuna ja tarkista Microsoft Word -objektikirjasto Vaihtoehto Saatavilla olevat referenssit luetteloruutu, katso kuvakaappaus:
4. Napsauta sitten OK sulkeaksesi valintaikkunan, sinun tulee nyt lisätä tämä koodi Pikavalinta-työkalurivi.
5. Luo uusi viesti napsauttamalla uusi sähköposti, Ja Viesti -ikkunassa Muokkaa pikakäyttötyökaluriviä -kuvaketta ja valitse Lisää komentoja, katso kuvakaappaus:
6. Vuonna Outlook-asetukset valintaikkuna:
(1.) Valitse Makrot mistä Valitse komennot pudotusvalikosta;
(2.) Valitse sitten VBA-koodinimi, jonka olet juuri lisännyt;
(3.) Napsauta Lisää -painiketta lisätäksesi koodin Muokkaa pikakäyttötyökaluriviä luetteloruutuun.
7. Ja sitten makrokuvake tulee näkyviin Pikavalinta-työkalurivi kuten seuraava kuvakaappaus näkyy:
8. Nyt kun napsautat makrokuvaketta, vastaanottajien nimet Vastaanottaja-kentästä lisätään viestin runkoon seuraavan kuvakaappauksen mukaisesti:
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
