Cum să adăugați în lot toți destinatarii mai multor e-mailuri la contactele Outlook

Unii utilizatori tânjesc după o soluție care să le permită să adauge rapid toți destinatarii mai multor e-mailuri în folderul Contacte Outlook ca contacte noi. Deci, acest articol va introduce o abordare atât de rapidă.

De exemplu, primiți câteva e-mailuri care sunt trimise simultan către mulți alți destinatari, cu excepția dvs. Mai mult, acești destinatari nu sunt stocați în Contactele tale Outlook. În acest caz, poate doriți să adăugați acești destinatari la Contacte Outlook. Pentru a-l realiza în loturi, puteți utiliza următorul mod.

Adăugați în lot toți destinatarii mai multor e-mailuri la contactele Outlook

1. Pentru început, lansați programul Outlook.
2. Apoi, apăsați butoanele tastei „Alt + F11” pentru a accesa Outlook VBA eidtor.
3. Ulterior, în fereastra „Microsoft Visual Basic for Applications”, copiați și inserați următorul cod într-un modul gol.

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. După aceea, minimizați sau părăsiți această fereastră.
5. Mai târziu, ar trebui să adăugați această macrocomandă la Bara de instrumente Acces rapid cu referire la „Cum să rulați codul VBA în Outlook".
6. În cele din urmă, puteți încerca această macrocomandă.

• La început, selectați mai multe e-mailuri ai căror destinatari vor fi adăugați la contacte.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Când macrocomandă se termină, puteți merge la folderul implicit Contacte. Acei destinatari au fost adăugați.
• Noul contact va arăta ca următoarea captură de ecran.

Urmăriți toate riscurile din perspectiva Outlook

Deși Outlook este dotat cu diverse funcții, este vulnerabil la mulți factori, inclusiv erori umane, erori software, probleme hardware și viruși. Prin urmare, este necesar să fim atenți la toate riscurile potențiale din perspectiva Outlook. De asemenea, luarea unor măsuri de precauție suficiente este o chestiune de necesitate. De exemplu, este mai bine să obțineți un instrument de remediere PST, cum ar fi DataNumen Outlook Repair, care poate repara PST probleme cu ușurință fără efort.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com