Kako automatski sinhronizovati nove kontakte u drugu fasciklu kontakata u programu Outlook

Neki korisnici žele da se novi kontakti automatski dodaju u dvije ili više mapa u Outlooku. Dakle, ovaj članak će podijeliti način za automatsku sinhronizaciju novih kontakata u drugu mapu kontakata.

Možda ste konfigurisali nekoliko naloga e-pošte u svom Outlooku. I svaki od njih ima svoju mapu Kontakti. U tom slučaju, kada kreirate kontakt u jednoj fascikli, možda ćete želeti da ga sinhronizujete sa fasciklama sa kontaktima drugih naloga e-pošte. Zašto ne dozvolite Outlooku da to automatski izvrši? Ovdje ćemo vas naučiti kako da to ostvarite.

Automatska sinhronizacija novih kontakata u drugu fasciklu sa kontaktima

1. Na samom početku morate pokrenuti svoj Outlook program.
2. Zatim, u glavnom prozoru programa Outlook, pritisnite tipke prečice – “Alt + F11”.
3. Zatim ćete ući u prozor “Microsoft Visual Basic za aplikacije” u kojem biste trebali pronaći i otvoriti projekt “ThisOutlookSession”.
4. Nakon toga, kopirajte sljedeći VBA kod i zalijepite ga u projekat.

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. Nakon toga, trebate potpisati ovaj kod. Samo kliknite na dugme „Alati“ na traci sa alatkama, a zatim izaberite „Digitalni potpis“. U iskačućem dijaloškom okviru samo pratite uputstva na ekranu.
6. Kasnije možete izaći iz trenutnog prozora i izmijeniti postavke makroa Outlooka kako biste dozvolili digitalno potpisane makroe.
7. Na kraju, možete restart svoj Outlook da aktivirate ovaj novi makro.
8. Od sada, svaki put kada se novi kontakt doda u izvornu fasciklu, on će se automatski sinhronizovati sa unapred definisanim target folder.

Reagirajte na česte probleme s Outlookom

Pod uslovom da ste koristili Outlook decenijama, sigurno ste se susreli sa raznim problemima, uključujući zamrzavanje Outlooka i česte poruke o greškama i oštećenje PST datoteka i tako dalje. Općenito, možete ih pokušati riješiti restartiranje Outlooka u sigurnom načinu rada, kreiranje novog Outlook profila, onemogućavanje neispravnih dodataka, itd. Naravno, možete iskoristiti pomoć moćnog alata za popravak, kao što je DataNumen Outlook Repair. Može popraviti PST greške poput čepa.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com