Cara Batch Tambahkan Semua Penerima Beberapa Email ke Kontak Outlook

Beberapa pengguna merindukan solusi yang memungkinkan mereka dengan cepat menambahkan semua penerima beberapa email ke folder Kontak Outlook sebagai kontak baru. Jadi, artikel ini akan memperkenalkan pendekatan yang begitu cepat.

Misalnya, Anda menerima beberapa email yang dikirim secara bersamaan ke banyak penerima lain kecuali Anda. Selain itu, penerima ini tidak disimpan di Kontak Outlook Anda. Dalam hal ini, Anda mungkin ingin menambahkan penerima ini ke Kontak Outlook. Untuk mencapainya secara batch, Anda dapat menggunakan cara berikut.

Batch Tambahkan Semua Penerima Beberapa Email ke Kontak Outlook

1. Untuk memulai, luncurkan program Outlook Anda.
2. Kemudian, tekan tombol tombol “Alt + F11” untuk mengakses eidtor Outlook VBA.
3. Selanjutnya, di jendela "Microsoft Visual Basic for Applications", salin dan tempel kode 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. Setelah itu, perkecil atau keluar dari jendela ini.
5. Kemudian, Anda harus menambahkan makro ini ke Bilah Alat Akses Cepat dengan mengacu pada “Cara Menjalankan Kode VBA di Outlook Anda".
6. Terakhir, Anda dapat mencoba makro ini.

• Pertama, pilih beberapa email yang penerimanya akan ditambahkan ke kontak.
• Lalu, klik tombol makro di Bilah Alat Akses Cepat.
• Saat makro selesai, Anda bisa masuk ke folder Kontak default. Penerima tersebut telah ditambahkan.
• Kontak baru akan terlihat seperti screenshot berikut.

Perhatikan Semua Risiko di Sekitar Outlook Anda

Meskipun Outlook dilengkapi dengan beragam fitur, Outlook rentan terhadap banyak faktor termasuk kesalahan manusia, kesalahan perangkat lunak, masalah perangkat keras, dan virus. Jadi, penting bagi kami untuk mengawasi semua potensi risiko di sekitar Outlook kami. Juga, membuat tindakan pencegahan yang cukup adalah masalah kebutuhan. Misalnya, Anda lebih baik mendapatkan alat perbaikan PST, seperti DataNumen Outlook Repair, Yang dapat memperbaiki PST masalah dengan mudah tanpa usaha.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com