Kako brzo umetnuti imena primatelja u tijelo e-pošte u Outlooku

Ako želite brzo umetnuti imena primatelja u tijelo prilikom sastavljanja e-pošte, možete pročitati ovaj članak. Ovdje ćemo vam predstaviti pogodnu metodu.

Ponekad ćete možda morati da unesete imena svih primalaca u tijelo kada sastavljate e-poštu. Bez sumnje, prilično je zamorno i glomazno ručno izvlačiti i umetati imena u tijelo jedno po jedno. Stoga, kako bismo vam pomogli da to brzo postignete, ovdje ćemo vam podijeliti efikasno sredstvo. Čitajte dalje da biste dobili detaljne korake.

Umetnite imena primatelja u tijelo e-pošte

1. Za početak, pristupite VBA editoru putem "Alt + F11".
2. Zatim, u prozoru „Microsoft Visual Basic for Applications“ omogućite „MS Word Object Library“ prema uputstvu „Kako dodati referencu biblioteke objekata u VBA".
3. Zatim kopirajte VBA kod ispod u prazan 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. Zatim dodajte ovaj makro na alatnu traku za brzi pristup prozora poruke prema opcionom koraku u “Kako pokrenuti VBA kod u vašem Outlooku".
4. Nakon toga izađite iz prozora.
5. Konačno, pucajte.

• Prvo, sastavite email i popunite primaoce.
• Zatim pritisnite dugme za makro na traci sa alatkama za brzi pristup.
• Kada se makro završi, imena primaoca su umetnuta u tijelo e-pošte, kao što je prikazano na slici ispod.

Zaštitite se od oštećenja Outlooka

Budući da je Outlook ranjiv, teško je zaštititi Outlook od oštećenja. Bez sumnje, morate biti nevoljni u susretu PST korupcija. Stoga je bolje da preduzmete neke efikasne mjere opreza. Na primjer, potrebno je da napravite dosljedne sigurnosne kopije podataka za Outlook, da budete upoznati s korištenjem alata za popravak pristigle pošte, kao i da držite moćni vanjski alat u blizini, kao npr. DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popraviti i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com