Kuidas kiiresti oma Outlooki meiliteksti adressaatide nimesid sisestada

Kui soovite meili koostamisel kiiresti adressaatide nimed kehasse sisestada, lugege seda artiklit. Siin tutvustame teile mugavat meetodit.

Mõnikord peate meili koostamisel sisestama kõigi adressaatide nimed kehasse. Kahtlemata on nimede käsitsi ükshaaval väljavõtmine ja sisestamine märkimisväärselt tüütu ja tülikas. Seetõttu jagame teile siin tõhusat vahendit, et aidata teil seda kiiresti saavutada. Selle üksikasjalike sammude saamiseks lugege edasi.

Sisestage adressaatide nimed e-posti sisusse

1. Alustuseks avage VBA redaktor klahvikombinatsiooniga „Alt + F11”.
2. Seejärel lubage aknas „Microsoft Visual Basic for Applications” valik „MS Word Object Library” vastavalt juhistele „Kuidas lisada VBA-s objektiteegi viidet".
3. Järgmisena kopeerige allolev VBA kood tühja moodulisse.

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. Järgmisena lisage see makro sõnumiakna kiirpääsu tööriistaribale vastavalt valikulisele sammule jaotises "Kuidas Outlookis VBA-koodi käivitada".
4. Pärast seda väljuge aknast.
5. Lõpuks tehke võte.

• Esmalt koostage meil ja sisestage adressaadid.
• Seejärel vajutage kiirpääsuribal makronuppu.
• Kui makro on lõppenud, on adressaatide nimed sisestatud meili kehasse, nagu on näidatud alloleval joonisel.

Kaitse Outlooki kahjustuste eest

Kuna Outlook on haavatav, on Outlooki kahjustuste eest raske kaitsta. Kahtlemata peate olema vastumeelne kohtumise suhtes PST korruptsioon. Seetõttu peaksite võtma tõhusaid ettevaatusabinõusid. Näiteks peate tegema Outlooki jaoks järjepidevaid andmete varukoopiaid, olema kursis postkasti parandustööriista kasutamisega ja hoidma läheduses võimsat välist tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server määrata ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom