Si të shtoni në grup të gjithë marrësit e emaileve të shumëfishta në kontaktet e Outlook

Disa përdorues dëshirojnë një zgjidhje e cila u lejon atyre të shtojnë shpejt të gjithë marrësit e emaileve të shumta në dosjen "Kontaktet e Outlook" si kontakte të reja. Pra, ky artikull do të prezantojë një qasje kaq të shpejtë.

Për shembull, ju merrni disa emaile që u dërgohen njëkohësisht shumë marrësve të tjerë përveç jush. Për më tepër, këta marrës nuk ruhen në kontaktet tuaja të Outlook. Në këtë rast, mund të dëshironi t'i shtoni këta marrës në Kontaktet e Outlook. Për ta arritur atë në tufa, mund të përdorni mënyrën e mëposhtme.

Shtoni në grup të gjithë marrësit e emaileve të shumëfishta në kontaktet e Outlook

1. Për të filluar, nisni programin tuaj Outlook.
2. Më pas, shtypni butonat "Alt + F11" për të hyrë në Outlook VBA eidtor.
3. Më pas, në dritaren "Microsoft Visual Basic për Aplikacione", kopjoni dhe ngjisni kodin e mëposhtëm në një modul bosh.

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. Pas kësaj, minimizoni ose dilni nga kjo dritare.
5. Më vonë, ju duhet ta shtoni këtë makro në shiritin e veglave të aksesit të shpejtë duke iu referuar "Si të ekzekutoni kodin VBA në Outlook tuaj".
6. Më në fund, mund ta provoni këtë makro.

• Në fillim, zgjidhni disa emaile, marrësit e të cilëve do t'u shtohen kontakteve.
• Pastaj, klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Kur të përfundojë makroja, mund të shkoni te dosja e parazgjedhur e Kontakteve. Ata marrës janë shtuar.
• Kontakti i ri do të duket si pamja e mëposhtme e ekranit.

Kujdesuni për të gjitha rreziqet rreth Outlook-it tuaj

Megjithëse Outlook është i pajisur me veçori të ndryshme, ai është i prekshëm nga shumë faktorë, duke përfshirë gabimet njerëzore, gabimet e softuerit, problemet e harduerit dhe viruset. Pra, është e nevojshme që ne të mbajmë një sy për të gjitha rreziqet e mundshme rreth Outlook-ut tonë. Gjithashtu, marrja e masave të mjaftueshme paraprake është një çështje e domosdoshme. Për shembull, është më mirë të merrni një mjet rregullimi PST, si p.sh DataNumen Outlook Repair, të cilat munden riparim PST probleme me lehtësi të lehtë.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com