Cara Menyinkronkan Kontak Baru Secara Otomatis ke Folder Kontak lain di Outlook

Beberapa pengguna menginginkan agar kontak baru secara otomatis ditambahkan ke dua atau lebih folder di Outlook mereka. Jadi, artikel ini akan membagikan cara untuk melakukan sinkronisasi otomatis kontak baru ke folder kontak lain.

Mungkin Anda telah mengonfigurasi beberapa akun email di Outlook Anda. Dan masing-masing memiliki folder Kontaknya sendiri. Dalam kasus seperti itu, saat Anda membuat kontak dalam satu folder, Anda mungkin ingin menyinkronkannya ke folder Kontak di akun email lain juga. Mengapa tidak membiarkan Outlook melakukannya secara otomatis? Di sini kami akan mengajari Anda bagaimana merealisasikannya.

Sinkronisasi Otomatis Kontak Baru ke Folder Kontak lain

1. Pertama-tama, Anda perlu meluncurkan program Outlook Anda.
2. Kemudian, di jendela Outlook utama, tekan tombol pintas - “Alt + F11”.
3. Selanjutnya, Anda akan masuk ke jendela "Microsoft Visual Basic for Applications", di mana Anda harus mencari dan membuka proyek "ThisOutlookSession".
4. Selanjutnya, salin kode VBA berikut dan tempelkan ke dalam proyek.

Public WithEvents objSourceFolder As Outlook.Folder
Public WithEvents objContacts As Outlook.Items

Private Sub Application_Startup()
    'Get the source Contacts folder
    Set objSourceFolder = Application.Session.GetDefaultFolder(olFolderContacts)
    Set objContacts = objSourceFolder.Items
End Sub

'Occurs when new item is added to the source folder
Private Sub objContacts_ItemAdd(ByVal Item As Object)
    Dim objContact As Outlook.ContactItem
    Dim objTargetFolder As Outlook.Folder
    Dim objCopiedContact As Outlook.ContactItem
 
    If TypeOf Item Is ContactItem Then
       Set objContact = Item
 
       'Specify the target Contacts folder
       '"Personal" refers to the displaying name of target Outlook file
       On Error Resume Next
       Set objTargetFolder = Application.Session.Folders("Personal").Folders("Contacts").Folders("From John Smith")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = Application.Session.Folders("Personal").Folders("Contacts").Folders.Add("From John Smith")
       End If
 
       'Copy the new contact
       Set objCopiedContact = objContact.Copy
       'Move copied contact to the target folder
       objCopiedContact.Move objTargetFolder
    End If
End Sub

5. Setelah itu, Anda perlu menandatangani kode ini. Cukup klik tombol "Alat" di toolbar dan kemudian pilih "Tanda Tangan Digital". Di kotak dialog popup, cukup ikuti petunjuk di layar.
6. Nanti Anda bisa keluar dari jendela saat ini dan mengubah pengaturan makro Outlook Anda untuk mengizinkan makro yang ditandatangani secara digital.
7. Terakhir, Anda dapat memulai ulang Outlook Anda untuk mengaktifkan makro baru ini.
8. Mulai sekarang, setiap kali kontak baru ditambahkan ke folder sumber, kontak tersebut akan secara otomatis disinkronkan ke folder target yang telah ditentukan.

Bereaksi terhadap Masalah Outlook yang Sering Terjadi

Jika Anda telah menggunakan Outlook selama beberapa dekade, Anda pasti pernah mengalami berbagai masalah, termasuk Outlook yang macet, pesan kesalahan yang sering muncul, kerusakan file PST, dan sebagainya. Umumnya, Anda dapat mencoba menyelesaikannya dengan memulai ulang Outlook dalam mode aman, membuat profil Outlook baru, menonaktifkan add-in yang bermasalah, dan lain-lain. Tentu saja, Anda dapat menggunakan alat perbaikan yang ampuh, seperti... DataNumen Outlook Repair. Hal ini dapat perbaiki PST kesalahan seperti gabus.

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