Outlook бағдарламасындағы электрондық поштаның негізгі мәтініне алушы атын қалай жылдам кірістіруге болады

Электрондық поштаны жасау кезінде алушының атын негізгі мәтінге жылдам енгізгіңіз келсе, осы мақаланы оқи аласыз. Мұнда біз сізге ыңғайлы әдісті ұсынамыз.

Кейде электрондық поштаны жазған кезде негізгі мәтінге барлық алушылардың атын енгізу қажет болуы мүмкін. Сөзсіз, атауларды бір-бірден қолмен шығарып алу және негізгі денеге енгізу өте қиын және қиын. Сондықтан, оны жылдам орындауға көмектесу үшін, біз сізге тиімді құралдармен бөлісеміз. Оның егжей-тегжейлі қадамдарын алу үшін оқыңыз.

Электрондық пошта мәтініне алушының атын енгізіңіз

1. Бастау үшін VBA редакторына «Alt + F11» пернелер тіркесімі арқылы кіріңіз.
2. Содан кейін, «Қолданбаларға арналған Microsoft Visual Basic» терезесінде «MS Word нысан кітапханасын» қосыңыз.VBA бағдарламасында объект кітапханасына сілтемені қалай қосуға болады«.
3. Содан кейін төмендегі VBA кодын бос модульге көшіріңіз.

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. Одан кейін осы макросты «Жылдам қатынау тақтасына Хабарлама терезесінің қосымша қадамына сәйкес қосыңыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
4. Осыдан кейін терезеден шығыңыз.
5. Соңында суретке түсіріңіз.

• Алдымен электрондық поштаны жазып, алушыларды толтырыңыз.
• Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
• Макрос аяқталған кезде, төмендегі суретте көрсетілгендей, алушы аттары электрондық поштаның негізгі бөлігіне кірістірілді.

Outlook зақымдануынан қорғаңыз

Outlook осал болғандықтан, Outlook бағдарламасын зақымданудан қорғау қиын. Сөзсіз, сіз кездесуге құлықсыз болуыңыз керек PST сыбайлас жемқорлық. Сондықтан бірнеше тиімді сақтық шараларын қабылдағаныңыз жөн. Мысалы, Outlook бағдарламасы үшін деректердің дәйекті сақтық көшірмелерін жасау керек, кіріс жәшігін жөндеу құралын пайдалану жолын білу, сондай-ақ жақын жерде қуатты сыртқы құралды сақтау қажет. DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server бекіту және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com