Как да групирате Добавяне на всички получатели на множество имейли към контактите на Outlook

Някои потребители копнеят за решение, което им позволява бързо да добавят всички получатели на множество имейли в папката с контакти на Outlook като нови контакти. И така, тази статия ще въведе толкова бърз подход.

Например получавате някои имейли, които едновременно се изпращат до много други получатели с изключение на вас. Освен това тези получатели не се съхраняват във вашите контакти в Outlook. В този случай може да искате да добавите тези получатели към контактите на Outlook. За да го постигнете на партиди, можете да използвате следния начин.

Пакетно добавяне на всички получатели на множество имейли към контактите на Outlook

1. Като начало стартирайте програмата си Outlook.
2. След това натиснете бутоните „Alt + F11“ за достъп до Outlook VBA eidtor.
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 и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com