Kuinka erä lisätä kaikki vastaanottajat useista sähköposteista Outlook-yhteystietoihin

Jotkut käyttäjät kaipaavat ratkaisua, jonka avulla he voivat lisätä kaikki useiden sähköpostien vastaanottajat nopeasti Outlookin yhteystiedot -kansioon uusina kontakteina. Joten tämä artikkeli esittelee niin nopean lähestymistavan.

Esimerkiksi saat joitain sähköposteja, jotka lähetetään samanaikaisesti monille muille vastaanottajille paitsi sinulle. Lisäksi näitä vastaanottajia ei ole tallennettu Outlook-yhteystietoihisi. Tässä tapauksessa haluat ehkä lisätä nämä vastaanottajat Outlook-yhteystietoihin. Voit saavuttaa sen erissä käyttämällä seuraavaa tapaa.

Erä Lisää kaikki useiden sähköpostien vastaanottajat Outlook-yhteystietoihin

1. Aloita käynnistämällä Outlook-ohjelma.
2. Paina sitten "Alt + F11" -näppäimiä päästäksesi Outlook VBA eidtoriin.
3. Kopioi ja liitä seuraava koodi Microsoft Visual Basic for Applications -ikkunaan tyhjään moduuliin.

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. Tämän jälkeen minimoi tai sulje tämä ikkuna.
5. Myöhemmin sinun on lisättävä tämä makro pikakäyttötyökaluriville viittaamallaKuinka suorittaa VBA-koodi Outlookissa".
6. Lopuksi voit kokeilla tätä makroa.

• Valitse ensin useita sähköposteja, joiden vastaanottajat lisätään yhteystietoihin.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Kun makro on valmis, voit siirtyä oletusyhteystietokansioon. Nämä vastaanottajat on lisätty.
• Uusi yhteyshenkilö näyttää seuraavalta kuvakaappaukselta.

Katso kaikki Outlookin ympärillä olevat riskit

Vaikka Outlookilla on monipuoliset ominaisuudet, se on herkkä monille tekijöille, mukaan lukien inhimilliset virheet, ohjelmistovirheet, laitteisto-ongelmat ja virukset. Joten meidän on pidettävä silmällä kaikkia mahdollisia riskejä Outlookin ympärillä. Riittävien varotoimien tekeminen on myös välttämätöntä. Esimerkiksi, sinun on parempi saada käsiinsä PST-korjaustyökalu, kuten DataNumen Outlook Repair, joka voi korjaa PST ongelmat helposti.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com