Alıcı adlarını Outlook-da E-poçt Gövdəsinə necə tez daxil etmək olar

E-poçt yazarkən alıcı adlarını tez bir zamanda orqana daxil etmək istəyirsinizsə, bu məqaləni oxuya bilərsiniz. Burada sizə rahat bir üsul təqdim edəcəyik.

Bəzən e-məktub yazarkən bütün alıcıların adlarını orqana daxil etməli ola bilərsiniz. Şübhəsiz ki, adları bir-bir əl ilə çıxarıb gövdəyə daxil etmək olduqca yorucu və çətin işdir. Buna görə də, sizə bunu tez bir zamanda yerinə yetirməyə kömək etmək üçün burada sizə səmərəli bir vasitə paylaşacağıq. Onun ətraflı addımlarını əldə etmək üçün oxuyun.

Alıcı Adlarını E-poçt Gövdəsinə daxil edin

1. Başlamaq üçün VBA redaktoruna "Alt + F11" vasitəsilə daxil olun.
2. Daha sonra, “Microsoft Visual Basic for Applications” pəncərəsində, “MS Word Object Library” əmrinə uyğun olaraq “MS Word Object Library” funksiyasını aktivləşdirin.VBA-da Obyekt Kitabxanasına İstinad necə əlavə olunur".
3. Sonra, aşağıdakı VBA kodunu boş modula köçürün.

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. Sonra, bu makrosunu "Sistem" bölməsindəki isteğe bağlı addıma uyğun olaraq Mesaj pəncərəsinin Tez Giriş Alətlər Panelinə əlavə edin.Outlook-da VBA kodunu necə işlətmək olar".
4. Bundan sonra pəncərədən çıxın.
5. Nəhayət, bir atəş edin.

• Əvvəlcə e-poçt yazın və alıcıları doldurun.
• Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.
• Makro başa çatdıqda, aşağıdakı şəkildə göstərildiyi kimi alıcı adları e-poçtun mətninə daxil edilmişdir.

Outlook zərərinə qarşı qoruyun

Outlook həssas olduğundan, Outlook-u zərərdən qorumaq çətindir. Şübhəsiz ki, qarşılaşmaqdan çəkinməlisən PST korrupsiyası. Buna görə də bəzi təsirli tədbirlər görsəniz yaxşı olar. Məsələn, Outlook üçün ardıcıl məlumat ehtiyat nüsxələrini çıxarmalı, gələnlər qutusunu təmir alətindən necə istifadə edəcəyinizi bilməli, həmçinin güclü xarici aləti yaxınlıqda saxlamalısınız. DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server düzeltmek və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com