Kako grupno dodati sve primaoce više e-poruka u Outlook kontakte

Neki korisnici čeznu za rješenjem koje im omogućava da brzo dodaju sve primaoce više e-poruka u mapu Outlook kontakata kao nove kontakte. Dakle, ovaj članak će predstaviti tako brz pristup.

Na primjer, primate neke e-poruke koje se istovremeno šalju mnogim drugim primaocima osim vama. Štaviše, ovi primaoci nisu pohranjeni u vašim Outlook kontaktima. U ovom slučaju, možda ćete želeti da dodate ove primaoce u Outlook kontakte. Da biste to postigli u serijama, možete koristiti sljedeći način.

Grupno dodajte sve primaoce više e-poruka u Outlook kontakte

1. Za početak pokrenite svoj Outlook program.
2. Zatim pritisnite tipke “Alt + F11” za pristup Outlook VBA eidtoru.
3. Nakon toga, u prozoru „Microsoft Visual Basic za aplikacije“, kopirajte i zalijepite sljedeći kod u prazan 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. Nakon toga, minimizirajte ili izađite iz ovog prozora.
5. Kasnije biste trebali dodati ovaj makro na alatnu traku za brzi pristup u odnosu na "Kako pokrenuti VBA kod u vašem Outlooku".
6. Konačno, možete isprobati ovaj makro.

• Prvo odaberite više e-poruka čije primaoce želite dodati u kontakte.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Kada se makro završi, možete otići u zadanu fasciklu Kontakti. Ovi primaoci su dodani.
• Novi kontakt će izgledati kao na sljedećem snimku ekrana.

Pazite na sve rizike oko vašeg Outlooka

Iako Outlook dolazi sa različitim funkcijama, ranjiv je na mnoge faktore uključujući ljudske greške, softverske greške, probleme sa hardverom i viruse. Dakle, neophodno je da pazimo na sve potencijalne rizike oko našeg Outlooka. Takođe, neophodno je preduzeti dovoljne mere predostrožnosti. Na primjer, bolje vam je da nabavite alat za popravku PST-a, kao što je DataNumen Outlook Repair, što može popraviti PST problema sa lakoćom.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com