Import Foto ke Kontak Outlook Menggunakan Macro

Secara bawaan pada saat mengimpor kontak outlook dari file CSV, maka informasi yang diimpor hanya informasi tekstual seperti nama lengkap, jabatan dana nama perusahaan. Sedangkan untuk file foto profil tidak ikut terimpor kedalam daftar kontak outlook. Dimulai dengan Outlook 2003, kita dapat menambahkan foto kontak ke kontak outlook. Setiap kontak perlu diedit untuk menambahkan gambar, namun kita dapat menggunakan VBA untuk mengotomatiskan prosesnya. Untuk hasil terbaik, gambar harus diberi nama yang sama dengan kontak, jika tidak, kita perlu menggunakan tabel pencarian untuk mengaitkan nama dengan gambar.

Jika kontak memiliki gambar yang ditetapkan dan ada di folder, maka akan diganti. Jika tidak ada gambar, kontak akan dilewati. Berikut adalah kode VBA untuk mengimpor foto kedalam kontak outlook yang sudah ada.

Public Sub UpdateContactPhoto()
    Dim myOlApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myContacts As Outlook.Items
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
  
  ' use the default contacts folder
   Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items

  ' to use the selected folder use this line instead:
  '  Set myContacts = myOlApp.ActiveExplorer.CurrentFolder.Items

    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    For Each myItem In myContacts
        If (myItem.Class = olContact) Then
            Dim myContact As Outlook.ContactItem
            Set myContact = myItem

            Dim strPhoto As String
            
      '  use myContact.LastNameAndFirstName = "last, first.jpg" format
      '  replace "C:\photos\" with the correct path. 
            strPhoto = "C:\Kontak\" & myContact.FullName & ".jpg"
            
     ' use for testing only, to confirm the path is correct. 
     ' Delete or comment out 
    ' MsgBox (strPhoto)
                  
                  
            If fs.FileExists(strPhoto) Then
                myContact.AddPicture strPhoto
                myContact.Save
            End If
        End If
    Next
End Sub

Anda dapat menggunakan format nama lengkap , "last, first" atau FileAs untuk nama gambar dengan mengubah baris berikut dalam kode (jangan lupa untuk mengubah path file dan ekstensi file jika diperlukan.

strPhoto = "C: \Kontak\" & myContact.FullName & ".jpg"

myContact.FileAs menggunakan file sebagai format pada setiap kontak

myContact.FullName untuk format nama "first last.jpg", yaitu "diane poremsky.jpg"

myContact.LastNameAndFirstName menghasilkan format "last, first.jpg", atau "poremsky, diane .jpg"

Anda dapat membuat format Anda sendiri menggunakan bidang Outlook. Misalnya, jika nama file berada di belakang pertama tanpa koma dan spasi (Poremsky Diane.jpg) gunakan

strPhoto = "C:\Kontak\" & myContact.LastName & " " & myContact.FirstName & ".jpg"

Jika nama berada di belakang pertama tanpa spasi (poremskydiane.jpg), gunakan

strPhoto = "C:\Kontak\" & myContact.LastName & myContact.FirstName & ".jpg"

Cara menjalankan kode VBA

1. Siapkan Kontak Outlook

Pastikan anda sudah mempunyai daftar kontak pada outlook anda, untuk cara mengeceknya klik pada tab Contact (office 2007 dan 2010) atau tab People (office 2013 keatas).

Daftar Kontak Outlook

Jika kontak outlook anda masih kosong, silahkan import terlebih dahulu menggunakan file CSV yang berisi daftar kontak email. Biasanya disetiap perusahaan atau instansi mempunyai kontak dalam bentuk CSV ini. Silahkan tanyakan pada IT administrator tempat anda bekerja.

2. Siapkan Foto Kontak

Buat folder untuk menyimpan foto-foto kontak, dalam contoh ini saya membuat folder Kontak di drive C sesuai kode VBA diatas. C: \Kontak . Nama foto harus sama dengan nama lengkap yang ada di daftar kontak. Untuk format gambar dalam kode diatas kita menggunakan JPG .

3. Jalankan Kode VBA

Pergi ke File > Option > Trust Center > Macro Settings. Pilih Notification for all macros. Lalu restart outlook.

Aktifkan Notifikasi Macro

Tekan Alt+F11 untuk membuka editor VBA dan klik dua kali ThisOutlookSession untuk membukanya di editor. Salin dan tempel kode ke ThisOutlookSession. Tekan tombol Run (F5) untuk menjalankan makro sekarang. Untuk menjalankannya nanti, gunakan perintah Tools, Macro (Outlook 2010).

Menjalankan Kode Macro di VBA

Terakhir keluar dan editor dan cek kembali daftar kontak outlook, seharusnya sudah ada fotonya sesuai dengan nama masing-masing.