Як пакетно додати всіх одержувачів декількох електронних листів до контактів Outlook

Деякі користувачі прагнуть рішення, яке дозволяє швидко додавати всіх одержувачів декількох електронних листів до папки контактів Outlook як нові контакти. Отже, ця стаття запровадить такий швидкий підхід.

Наприклад, ви отримуєте деякі електронні листи, які одночасно надсилаються багатьом іншим одержувачам, крім вас. Більше того, ці одержувачі не зберігаються у ваших контактах Outlook. У цьому випадку ви можете додати цих одержувачів до контактів Outlook. Щоб домогтися його партіями, ви можете використовувати наступний спосіб.

Пакетне додавання всіх одержувачів декількох електронних листів до контактів Outlook

1. Для початку запустіть програму Outlook.
2. Потім натисніть клавіші “Alt + F11”, щоб отримати доступ до eidtor Outlook VBA.
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. Пізніше вам слід додати цей макрос на панель швидкого доступу із посиланням на “Як запустити код VBA у своєму Outlook".
6. Нарешті, ви можете спробувати цей макрос.

• Спочатку виберіть кілька електронних листів, одержувачів яких потрібно додати до контактів.
• Потім натисніть кнопку макросу на панелі швидкого доступу.
• Коли макрос закінчиться, ви можете перейти до папки контактів за замовчуванням. Ці одержувачі були додані.
• Новий контакт матиме вигляд наступного знімка екрана.

Зверніть увагу на всі ризики, пов’язані з вашим Outlook

Незважаючи на те, що Outlook наділений різноманітними функціями, він вразливий до багатьох факторів, включаючи людські помилки, несправності програмного забезпечення, апаратні проблеми та віруси. Отже, нам потрібно стежити за усіма потенційними ризиками навколо нашого Outlook. Крім того, дотримання достатніх запобіжних заходів є питанням необхідності. Наприклад, вам краще взяти в руки інструмент виправлення PST, наприклад DataNumen Outlook Repair, які можуть ремонт PST проблеми з невимушеною легкістю.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com