Birdən çox e-poçtun bütün alıcılarını Outlook kontaktlarına necə toplu əlavə etmək olar

Bəzi istifadəçilər birdən çox e-poçtun bütün alıcılarını yeni kontaktlar kimi Outlook Əlaqələr qovluğuna tez əlavə etməyə imkan verən həll yolu axtarırlar. Beləliklə, bu məqalə belə bir sürətli yanaşma təqdim edəcəkdir.

Məsələn, sizdən başqa bir çox digər alıcılara eyni vaxtda göndərilən bəzi e-poçt məktubları alırsınız. Üstəlik, bu alıcılar Outlook Kontaktlarınızda saxlanmır. Bu halda, siz bu alıcıları Outlook Kontaktlarına əlavə etmək istəyə bilərsiniz. Partiyalarda buna nail olmaq üçün aşağıdakı üsuldan istifadə edə bilərsiniz.

Çoxlu E-poçtun Bütün Alıcılarını Outlook Kontaktlarına Toplu əlavə edin

1. Başlamaq üçün Outlook proqramını işə salın.
2. Sonra, Outlook VBA eidtoruna daxil olmaq üçün “Alt + F11” düymələrini basın.
3. Sonra, "Proqramlar üçün Microsoft Visual Basic" pəncərəsində, aşağıdakı kodu kopyalayın və boş modula yapışdırın.

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. Bundan sonra bu pəncərəni minimuma endirin və ya çıxın.
5. Daha sonra bu makrosunu "Sürətli Giriş Alətlər Panelinə" istinad edərək əlavə etməlisiniz.Outlook-da VBA kodunu necə işlətmək olar".
6. Nəhayət, bu makronu sınaya bilərsiniz.

• Əvvəlcə alıcıları kontaktlara əlavə olunacaq bir neçə e-poçtu seçin.
• Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.
• Makro tamamlandıqda, siz standart Kontaktlar qovluğuna keçə bilərsiniz. Həmin alıcılar əlavə edilib.
• Yeni kontakt aşağıdakı ekran görüntüsünə bənzəyəcək.

Görünüşünüz ətrafındakı bütün risklərə diqqət yetirin

Outlook müxtəlif xüsusiyyətlərə malik olsa da, insan səhvləri, proqram xətaları, aparat problemləri və viruslar da daxil olmaqla bir çox amillərə qarşı həssasdır. Beləliklə, bizim Outlook ətrafında bütün potensial risklərə diqqət yetirməyimiz lazımdır. Həmçinin, kifayət qədər ehtiyat tədbirlərinin görülməsi zəruridir. Məsələn, PST düzəltmə alətini əldə etmək daha yaxşıdır, məsələn DataNumen Outlook Repair, ola bilər təmir PST problemsiz rahatlıqla.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com