Hur man snabbt sätter in mottagarnamn i e-postkroppen i din Outlook

Om du snabbt vill infoga mottagarnamnen i kroppen när du skapar ett e-postmeddelande kan du läsa den här artikeln. Här presenterar vi dig en bekväm metod.

Ibland kan du behöva ange namnen på alla mottagare i kroppen när du skriver ett e-postmeddelande. Utan tvekan är det väldigt tråkigt och besvärligt att extrahera och infoga namnen i kroppen en efter en manuellt. Därför, för att hjälpa dig att uppnå det snabbt, delar vi dig här på ett effektivt sätt. Läs vidare för att få detaljerade steg.

Infoga mottagarnamn i e-postkroppen

1. För somtart, öppna VBA-redigeraren via “Alt + F11”.
2. Aktivera sedan “MS Word Object Lib” i fönstret “Microsoft Visual Basic for Applications”rary ”enligt”Hur man lägger till ett objekt Library Referens i VBA".
3. Kopiera sedan VBA-koden nedan till en tom modul.

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. Lägg sedan till detta makro i snabbåtkomstverktygsfältet i meddelandefönstret enligt det valfria steget i “Hur du kör VBA-kod i din Outlook".
4. Stäng sedan fönstret efter det.
5. Slutligen ta ett skott.

• Först och främst, skriv ett e-postmeddelande och fyll i mottagare.
• Tryck sedan på makroknappen i snabbåtkomstverktygsfältet.
• När makrot är klart har mottagarnamnen infogats i e-postkroppen, som visas i figuren nedan.

Skydd mot Outlook-skador

Eftersom Outlook är sårbart är det svårt att skydda Outlook från skador. Utan tvekan måste du vara ovillig att möta PST-korruption. Därför borde du ta några effektiva försiktighetsåtgärder. Du måste till exempel göra konsekventa säkerhetskopior för Outlook, vara bekant med hur du använder reparationsverktyget för inkorgen samt hålla ett kraftfullt externt verktyg i närheten, till exempel DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL Server fast och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com