Kako hitro vstaviti imena prejemnikov v telo e-pošte v Outlooku

Če bi radi hitro vstavili imena prejemnikov v telo pri sestavljanju e-poštnega sporočila, lahko preberete ta članek. Tukaj vam bomo predstavili priročno metodo.

Včasih boste morda morali v telo vnesti imena vseh prejemnikov, ko sestavljate e-pošto. Nedvomno je precej dolgočasno in okorno ročno pridobivanje in vstavljanje imen v telo enega za drugim. Zato, da bi vam pomagali hitro doseči, vam bomo tukaj delili učinkovito sredstvo. Preberite o njegovih podrobnih korakih.

V telo e-pošte vstavite imena prejemnikov

1. Za začetek dostopite do urejevalnika VBA s pritiskom na »Alt + F11«.
2. Nato v oknu »Microsoft Visual Basic for Applications« omogočite »Knjižnico objektov MS Word« v skladu z »Kako dodati referenco knjižnice objektov v VBA".
3. Nato kopirajte spodnjo kodo VBA v prazen 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. Nato dodajte ta makro v orodno vrstico za hitri dostop okna za sporočila v skladu z neobveznim korakom v »Kako zagnati kodo VBA v Outlooku".
4. Po tem zapustite okno.
5. Končno posnemite strel.

• Najprej sestavite e-poštno sporočilo in vnesite prejemnike.
• Nato pritisnite gumb makra v orodni vrstici za hitri dostop.
• Ko se makro konča, so imena prejemnikov vstavljena v telo e-pošte, kot je prikazano na spodnji sliki.

Zaščita pred poškodbami Outlooka

Ker je Outlook ranljiv, je Outlook težko zaščititi pred poškodbami. Brez dvoma se morate neradi srečati PST korupcija. Zato je bolje, da upoštevate nekaj učinkovitih varnostnih ukrepov. Izdelati morate na primer dosledne varnostne kopije podatkov za Outlook, se seznaniti z uporabo orodja za popravilo prejete pošte in imeti v bližini zmogljivo zunanje orodje, kot je npr. DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server fiksna in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com