Kā paketē pievienot visus vairāku e-pastu adresātus Outlook kontaktpersonām

Daži lietotāji ilgojas pēc risinājuma, kas ļauj ātri pievienot visus vairāku e-pasta ziņojumu adresātus mapei Outlook kontaktpersonas kā jaunus kontaktpersonas. Tātad, šis raksts ieviesīs tik ātru pieeju.

Piemēram, jūs saņemat dažus e-pasta ziņojumus, kas vienlaikus tiek nosūtīti daudziem citiem adresātiem, izņemot jūs. Turklāt šie adresāti netiek glabāti jūsu Outlook kontaktpersonu sarakstā. Šajā gadījumā, iespējams, vēlēsities pievienot šos adresātus Outlook kontaktpersonām. Lai to panāktu partijās, varat izmantot šādu veidu.

Sērija Pievienot visus vairāku e-pastu saņēmējus Outlook kontaktpersonām

1. Vispirms palaidiet programmu Outlook.
2. Pēc tam nospiediet taustiņu “Alt + F11”, lai piekļūtu Outlook VBA eidtor.
3. Pēc tam logā “Microsoft Visual Basic for Applications” nokopējiet un ielīmējiet šo kodu tukšā modulī.

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. Pēc tam samaziniet vai aizveriet šo logu.
5. Vēlāk šī makro jāpievieno ātrās piekļuves rīkjoslai, atsaucoties uz “Kā palaist VBA kodu programmā Outlook".
6. Visbeidzot, jūs varat izmēģināt šo makro.

• Sākumā atlasiet vairākus e-pastus, kuru adresāti tiks pievienoti kontaktpersonām.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz pogas makro.
• Kad makro ir pabeigts, varat doties uz noklusējuma mapi Kontakti. Šie saņēmēji ir pievienoti.
• Jaunais kontakts izskatīsies pēc šī ekrānuzņēmuma.

Pievērsiet uzmanību visiem riskiem, kas saistīti ar jūsu Outlook

Lai gan programmai Outlook ir dažādas funkcijas, tā ir neaizsargāta pret daudziem faktoriem, tostarp cilvēku kļūdām, programmatūras kļūmēm, aparatūras problēmām un vīrusiem. Tātad mums ir nepieciešams sekot visiem iespējamiem riskiem, kas saistīti ar mūsu Outlook. Arī pietiekamu piesardzības pasākumu veikšana ir nepieciešamība. Piemēram, jums labāk ir iegūt PST labošanas rīku, piemēram, DataNumen Outlook Repair, kas var remonts PST problēmas bez piepūles.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonta mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar