Жиынтық пошта арқылы барлық алушыларды Outlook контактілеріне қалай қосуға болады

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

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

Пакеттік бірнеше алушылардың барлық алушыларын Outlook контактілеріне қосу

1. Бастау үшін Outlook бағдарламасын іске қосыңыз.
2. Одан кейін, Outlook VBA eidtor-қа кіру үшін «Alt + F11» батырмаларын басыңыз.
3. Содан кейін, «Microsoft Visual Basic for Applications» терезесінде келесі кодты бос модульге көшіріңіз және қойыңыз.

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. Осыдан кейін, осы терезені кішірейтіңіз немесе одан шығыңыз.
5. Кейінірек сіз бұл макросты жылдам қол жетімді құралдар тақтасына «сілтеме жасай отырып қосуыңыз керек.Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
6. Соңында, сіз осы макросты пайдаланып көре аласыз.

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

Сіздің Outlook бағдарламаңыздың барлық тәуекелдерін қараңыз

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

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

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