Ako automaticky synchronizovať nové kontakty do iného priečinka kontaktov v programe Outlook

Niektorí používatelia si želajú, aby sa nové kontakty mohli automaticky pridať do dvoch alebo viacerých priečinkov v ich Outlooku. Tento článok teda bude zdieľať spôsob automatickej synchronizácie nových kontaktov do iného priečinka kontaktov.

Možno ste vo svojom Outlooku nakonfigurovali niekoľko e-mailových účtov. A každý z nich má svoj vlastný priečinok Kontakty. V takom prípade, keď vytvoríte kontakt v jednom priečinku, môžete ho tiež synchronizovať do priečinkov Kontakty iných e-mailových účtov. Prečo to nenechať Outlook automaticky dosiahnuť? Tu vás naučíme, ako si to uvedomiť.

Automaticky synchronizovať nové kontakty do iného priečinka kontaktov

1. Hneď na začiatku musíte spustiť program Outlook.
2. Potom v hlavnom okne programu Outlook stlačte klávesové skratky - „Alt + F11“.
3. Ďalej vstúpite do okna „Microsoft Visual Basic for Applications“, v ktorom by ste mali nájsť a otvoriť projekt „ThisOutlookSession“.
4. Následne skopírujte nasledujúci kód VBA a vložte ho do projektu.

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. Potom musíte tento kód podpísať. Stačí kliknúť na tlačidlo „Nástroje“ na paneli nástrojov a potom zvoliť „Digitálny podpis“. V rozbaľovacom dialógovom okne postupujte podľa pokynov na obrazovke.
6. Neskôr môžete opustiť aktuálne okno a zmeniť nastavenia makier programu Outlook tak, aby umožňovali digitálne podpísané makrá.
7. Nakoniec môžete reštartovať Outlook, aby ste aktivovali toto nové makro.
8. Odteraz sa pri každom pridaní nového kontaktu do zdrojového priečinka automaticky synchronizuje s preddefinovaným cieľovým priečinkom.

Reagujte na časté problémy s programom Outlook

Za predpokladu, že používate Outlook už desaťročia, určite ste sa stretli s rôznymi problémami vrátane zamŕzania Outlooku, častých chybových hlásení, poškodenia súborov PST atď. Vo všeobecnosti sa ich môžete pokúsiť vyriešiť reštartovaním Outlooku v núdzovom režime, vytvorením nového profilu Outlooku, vypnutím chybných doplnkov atď. Samozrejme, môžete použiť silný nástroj na opravu, ako napríklad DataNumen Outlook Repair, Môže opraviť PST chyby ako korok.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S