Cara Kumpulan Menambah Semua Penerima Berbilang E-mel ke Kenalan Outlook

Sesetengah pengguna mendambakan penyelesaian yang membolehkan mereka menambah dengan cepat semua penerima berbilang e-mel ke folder Kenalan Outlook sebagai kenalan baharu. Jadi, artikel ini akan memperkenalkan pendekatan yang begitu pantas.

Contohnya, anda menerima beberapa e-mel yang dihantar serentak kepada banyak penerima lain kecuali anda. Selain itu, penerima ini tidak disimpan dalam Kenalan Outlook anda. Dalam kes ini, anda mungkin mahu menambah penerima ini pada Kenalan Outlook. Untuk mencapainya secara berkelompok, anda boleh menggunakan cara berikut.

Batch Tambah Semua Penerima Berbilang E-mel ke Kenalan Outlook

1. Sebagai permulaan, lancarkan program Outlook anda.
2. Kemudian, tekan butang kekunci "Alt + F11" untuk mengakses Outlook VBA eidtor.
3. Selepas itu, dalam tetingkap "Microsoft Visual Basic for Applications", salin dan tampal kod berikut ke dalam modul kosong.

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. Selepas itu, minimumkan atau keluar dari tetingkap ini.
5. Kemudian, anda perlu menambah makro ini pada Bar Alat Akses Pantas dengan merujuk kepada “Cara Menjalankan Kod VBA di Outlook Anda".
6. Akhirnya, anda boleh mencuba makro ini.

• Pada mulanya, pilih berbilang e-mel yang penerimanya akan ditambahkan pada kenalan.
• Kemudian, klik butang makro di Bar Alat Akses Pantas.
• Apabila makro selesai, anda boleh pergi ke folder Kenalan lalai. Penerima tersebut telah ditambah.
• Kenalan baharu akan kelihatan seperti tangkapan skrin berikut.

Perhatikan Semua Risiko di sekitar Pandangan Anda

Walaupun Outlook dikurniakan pelbagai ciri, ia terdedah kepada banyak faktor termasuk ralat manusia, kerosakan perisian, isu perkakasan dan virus. Jadi, adalah perlu bagi kita untuk memerhatikan semua potensi risiko di sekitar Outlook kita. Juga, membuat langkah berjaga-jaga yang mencukupi adalah satu perkara yang perlu. Sebagai contoh, anda lebih baik mendapatkan alat pembetulan PST, seperti DataNumen Outlook Repair, yang boleh membaiki PST masalah dengan mudah.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com