Cara Mengubah Format Nama Tampilan Email dari Semua Kontak Anda dalam Batch dengan Outlook VBA

Outlook akan menampilkan semua email kontak dalam format nama tampilan default, yaitu "nama lengkap (alamat email)". Jika Anda tidak menyukainya, Anda harus mengubahnya secara manual setiap kali membuat kontak baru. Artikel ini akan mengajari Anda cara cepat untuk mengubahnya secara berkelompok dengan Outlook VBA.

Saat Anda membuat kontak Outlook baru, setelah Anda memasukkan nama lengkap dan alamat email, lalu mengklik kotak “Tampilkan sebagai”, nama tampilan default akan terisi secara otomatis, seperti screenshot berikut:

Nama tampilan email ini akan membuat efek ketika Anda perlu memilih kontak. Seperti gambar di bawah ini, 2^nd kolom "Nama Tampilan" sesuai dengan info di bidang "Tampilkan sebagai".

Saat Anda ingin mengubah format nama tampilan email, Anda harus mengubahnya secara manual. Tetapi dengan bantuan VBA, Anda dapat mengubah semua format nama tampilan email kontak ke format yang Anda inginkan secara berkelompok.

Ubah Format Nama Tampilan Email dari Semua Kontak Anda dalam Batch

1. Pertama-tama, luncurkan Outlook dan tekan tombol "Alt + F11" untuk mengakses jendela "Visual Basic".
2. Kemudian buka modul baru dan salin kode VBA berikut ke dalamnya.

Sub BatchChangeContactDisplayName()
    Dim obApp As Application
    Dim olContacts As Outlook.Items
    Dim obj As Object
    Dim oContact As Outlook.ContactItem
    Dim strName As String
 
    Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
 
    For Each obj In olContacts
        If TypeName(obj) = "ContactItem" Then
           Set oContact = obj
           With oContact
                'Display name format: "fullname (company name)(email address)"
                 strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
                .Email1DisplayName = strName
                .Save
           End With
        End If
    Next
End Sub

Kiat Ekstra:

• Anda dapat mengubah urutan antara "nama lengkap", "nama perusahaan" dan "alamat email" sesuai keinginan Anda.
• The ".Nama lengkap” mengacu pada format dalam “Nama Depan Nama Belakang”. Jika Anda ingin menampilkan di "Nama Belakang Nama Depan", gunakan ".NamaBelakangDanNamaDepan" sebagai gantinya.

3. Selanjutnya, setelah menempelkan kode VBA, Anda harus menambahkan makro baru ke Bilah Alat Akses Cepat. Ikuti langkah-langkah di bawah ini:

• Pertama, kembali ke jendela Outlook utama dan tekan panah bawah di Bilah Alat Akses Cepat.
• Dari daftar drop-down, pilih "Perintah Lainnya".
• Kemudian di jendela "Opsi Outlook", Anda harus memilih "Makro" di kotak "Pilih perintah dari".
• Selanjutnya, arahkan kursor ke makro target dan tekan tombol “Tambah” di tengah.
• Terakhir klik tombol "OK".

4. Akhirnya Anda dapat kembali ke folder kontak default Anda. Klik tombol makro di Bilah Alat Akses Cepat. Setelah itu, Anda dapat membuka satu kontak untuk diperiksa. Anda akan menemukan bahwa format nama tampilan email telah diubah.

Keluar dari Kehilangan Data Outlook

Seperti yang kita semua tahu, Outlook rentan terhadap kesalahan, korupsi. Oleh karena itu, menjaga data Outlook tetap terlindungi dan mencegah kehilangan data merupakan tugas yang sulit. Jadi, Anda harus membuat cadangan reguler untuk data Outlook Anda, yang akan banyak berkontribusi pada Pemulihan kerusakan data Outlook jika terjadi crash Outlook. Juga, penting untuk mendapatkan alat perbaikan yang kuat, seperti DataNumen Outlook Repair. Secara keseluruhan, ini akan berguna jika cadangan tidak terkini atau gagal membuat efek.

Pengantar Penulis:

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