Paano Auto Sync Bagong Mga Contact sa isa pang Contacts Folder sa Outlook

Ang ilang mga gumagamit ay nagnanais na ang mga bagong contact ay maaaring awtomatikong maidagdag sa dalawa o higit pang mga folder sa kanilang Outlook. Kaya, ang artikulong ito ay magbabahagi ng isang paraan upang awtomatikong mag-sync ng mga bagong contact sa isa pang folder ng mga contact.

Marahil ay na-configure mo ang ilang mga email account sa iyong Outlook. At bawat isa sa kanila ay may sariling folder ng Contacts. Sa ganoong sitwasyon, kapag lumikha ka ng isang contact sa isang folder, maaari mo itong i-sync sa mga folder ng Contact ng iba pang mga email account, masyadong. Bakit hindi hayaang awtomatikong magawa ito ng Outlook? Dito ay ituturo namin sa iyo kung paano ito mapagtanto.

Auto Sync Bagong Mga Contact sa isa pang Contacts Folder

1. Sa pinakadulo simula, kailangan mong ilunsad ang iyong programa sa Outlook.
2. Pagkatapos, sa pangunahing window ng Outlook, pindutin ang mga shortcut key - "Alt + F11".
3. Susunod, papasok ka sa window ng "Microsoft Visual Basic for Applications", kung saan dapat mong hanapin at buksan ang proyektong "ThisOutlookSession".
4. Pagkatapos, kopyahin ang sumusunod na VBA code at i-paste ito sa proyekto.

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. Pagkatapos nito, kailangan mong lagdaan ang code na ito. I-click lamang ang button na “Tools” sa toolbar at pagkatapos ay piliin ang “Digital Signature”. Sa popup dialog box, sundin lang ang mga tagubilin sa screen.
6. Sa ibang pagkakataon maaari kang lumabas sa kasalukuyang window at baguhin ang iyong mga setting ng macro ng Outlook upang payagan ang mga digitally sign na macro.
7. Panghuli, maaari mong i-restart ang iyong Outlook upang maisaaktibo ang bagong macro na ito.
8. Mula ngayon, sa bawat pagkakataon na may idadagdag na bagong contact sa source folder, awtomatiko itong masi-sync sa paunang natukoy na target na folder.

Mag-react sa Madalas na Problema sa Outlook

Kung ilang dekada mo nang ginagamit ang Outlook, malamang ay nakaranas ka na ng iba't ibang isyu, kabilang ang pag-freeze ng Outlook at madalas na mga mensahe ng error at pagkasira ng PST file at iba pa. Sa pangkalahatan, maaari mong subukang lutasin ang mga ito sa pamamagitan ng pag-restart ng Outlook sa safe mode, paggawa ng bagong profile sa Outlook, pag-disable ng mga sirang add-in, atbp. Siyempre, maaari kang humingi ng tulong sa isang mabisang tool sa pag-aayos, tulad ng DataNumen Outlook Repair. Maaari ito ayusin ang PST mga pagkakamali tulad ng isang tapon.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa