Kuinka nopeasti lisätä vastaanottajien nimiä sähköpostin runkoon Outlookissasi

Jos haluat nopeasti lisätä vastaanottajien nimet tekstin tekstiin, kun kirjoitat sähköpostia, voit lukea tämän artikkelin. Tässä esittelemme sinulle kätevän menetelmän.

Toisinaan saatat joutua syöttämään kaikkien vastaanottajien nimet tekstiosaan, kun kirjoitat sähköpostia. Epäilemättä on huomattavan työlästä ja vaivalloista poimia ja lisätä nimet runkoon yksitellen manuaalisesti. Siksi autamme sinua saavuttamaan sen nopeasti, jaamme sinulle tehokkaan keinon. Lue lisää saadaksesi sen yksityiskohtaiset vaiheet.

Lisää vastaanottajien nimet sähköpostin runkoon

1. Aloita avaamalla VBA-editori painamalla Alt + F11.
2. Ota sitten ”Microsoft Visual Basic for Applications” -ikkunassa käyttöön ”MS Word Object Library” kohdan ”Objektikirjastoviittauksen lisääminen VBA:ssa".
3. Kopioi seuraavaksi alla oleva VBA-koodi tyhjään moduuliin.

Sub CopyRecipientNamesToBody()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim strRecipAddress As String
    Dim strRecipName As String
    Dim objContacts As Outlook.Items
    Dim i As Integer
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
    Dim strRecipNames As String
    Dim objMailDocument As Word.Document
 
    'Get the current email
    Set objMail = Application.ActiveInspector.CurrentItem
    objMail.Recipients.ResolveAll
 
    For Each objRecipient In objMail.Recipients
        strRecipAddress = objRecipient.Address
 
        'Get the corresponding contact name
        Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
        For i = 1 To 3
            strFilter = "[Email" & i & "Address] = " & strRecipAddress
            Set objFoundContact = objContacts.Find(strFilter)
            If Not (objFoundContact Is Nothing) Then
               strRecipNames = strRecipNames & objFoundContact.FullName & vbCr
               Exit For
            End If
        Next
 
        'If there isn't associated contact
        'Extract name from email address
        If objFoundContact Is Nothing Then
           strRecipName = Split(strRecipAddress, "@")(0)
           strRecipName = UCase(Left(strRecipName, 1)) & Right(strRecipName, Len(strRecipName) - 1)
           strRecipNames = strRecipNames & strRecipName & vbCr
        End If
    Next
 
    'Insert the names at the beginning of email
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range(0, 0).InsertAfter strRecipNames
End Sub

3. Lisää seuraavaksi tämä makro Viesti-ikkunan pikatyökaluriville valinnaisen vaiheen mukaisestiKuinka suorittaa VBA-koodi Outlookissa".
4. Tämän jälkeen poistu ikkunasta.
5. Lopuksi ota laukaus.

• Kirjoita ensin sähköposti ja täytä vastaanottajat.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Kun makro on valmis, vastaanottajien nimet on lisätty sähköpostin runkoon alla olevan kuvan mukaisesti.

Suojaa Outlookin vaurioilta

Koska Outlook on haavoittuvainen, Outlookia on vaikea suojata vaurioilta. Epäilemättä sinun täytyy olla haluton kohtaamaan PST-korruptio. Siksi sinun on parempi ryhtyä tehokkaisiin varotoimiin. Sinun on esimerkiksi tehtävä johdonmukaisia ​​tietojen varmuuskopioita Outlookia varten, tunnettava Saapuneet-kansion korjaustyökalun käyttö sekä pidettävä lähellä tehokasta ulkoista työkalua, kuten esim. DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korjata ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com