Kako paketno dodati vse prejemnike več e-poštnih sporočil Outlookovim stikom

Nekateri uporabniki hrepenijo po rešitvi, ki bi jim omogočila hitro dodajanje vseh prejemnikov več e-poštnih sporočil v Outlookovo mapo Stiki kot nove stike. Ta članek bo torej predstavil tako hiter pristop.

Na primer, prejmete nekaj e-poštnih sporočil, ki so hkrati poslana številnim drugim prejemnikom razen vam. Poleg tega ti prejemniki niso shranjeni v Outlookovih stikih. V tem primeru boste te prejemnike morda želeli dodati v Outlookove stike. Če želite to doseči v serijah, lahko uporabite naslednji način.

Paketno dodajte vse prejemnike več e-poštnih sporočil v Outlookove stike

1. Za začetek zaženite program Outlook.
2. Nato pritisnite tipke »Alt + F11« za dostop do Outlook VBA eidtorja.
3. Nato v oknu »Microsoft Visual Basic for Applications« kopirajte in prilepite naslednjo kodo v prazen 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. Po tem pomanjšajte ali zaprite to okno.
5. Kasneje bi morali ta makro dodati v orodno vrstico za hitri dostop s sklicevanjem na »Kako zagnati kodo VBA v Outlooku".
6. Končno lahko preizkusite ta makro.

• Najprej izberite več e-poštnih sporočil, katerih prejemnike želite dodati v stike.
• Nato v orodni vrstici za hitri dostop kliknite gumb makra.
• Ko se makro konča, lahko odprete privzeto mapo Stiki. Ti prejemniki so bili dodani.
• Nov stik bo videti kot naslednji posnetek zaslona.

Bodite pozorni na vsa tveganja v zvezi s svojim Outlookom

Čeprav je Outlook opremljen z različnimi funkcijami, je ranljiv za številne dejavnike, vključno s človeškimi napakami, napakami programske opreme, težavami s strojno opremo in virusi. Zato moramo biti pozorni na vsa potencialna tveganja v zvezi z našim Outlookom. Prav tako je treba upoštevati ustrezne previdnostne ukrepe. Na primer, bolje je, da dobite orodje za popravljanje PST, kot je npr DataNumen Outlook Repair, ki lahko popravilo PST težave z lahkoto brez truda.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com