Jak rychle vložit jména příjemců do těla e-mailu v aplikaci Outlook

Pokud chcete při psaní e-mailu rychle vložit jména příjemců do těla, můžete si přečíst tento článek. Zde vám představíme pohodlnou metodu.

Při psaní e-mailu možná budete muset do těla zadat jména všech příjemců. Nepochybně je značně zdlouhavé a těžkopádné ručně extrahovat a vložit jména do těla. Abychom vám to pomohli rychle dosáhnout, budeme vás zde sdílet s efektivními prostředky. Přečtěte si další podrobné kroky.

Vložte jména příjemců do těla e-mailu

1. Pro začátek otevřete editor VBA pomocí kláves „Alt + F11“.
2. Poté v okně „Microsoft Visual Basic for Applications“ povolte „Knihovnu objektů MS Word“ podle pokynů „Jak přidat odkaz na knihovnu objektů ve VBA".
3. Dále zkopírujte níže uvedený kód VBA do prázdného modulu.

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. Dále přidejte toto makro na panel nástrojů Rychlý přístup v okně Zprávy podle volitelného kroku v části „Jak spustit kód VBA ve vašem Outlooku".
4. Poté opusťte okno.
5. Nakonec pořiďte snímek.

• Nejprve vytvořte e-mail a vyplňte příjemce.
• Poté stiskněte tlačítko makra na panelu nástrojů Rychlý přístup.
• Po dokončení makra byla jména příjemců vložena do těla e-mailu, jak je znázorněno na obrázku níže.

Chraňte se před poškozením aplikace Outlook

Vzhledem k tomu, že je aplikace Outlook zranitelná, je obtížné ji chránit před poškozením. Bezpochyby se musíte setkat s neochotou PST korupce. Raději proto přijměte některá účinná preventivní opatření. Například musíte vytvořit konzistentní zálohy dat pro aplikaci Outlook, být obeznámeni s tím, jak používat nástroj pro opravu doručené pošty, a také mít v blízkosti výkonný externí nástroj, například DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com