Kako automatski sinkronizirati nove kontakte s drugom mapom kontakata u programu Outlook

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

Možda ste konfigurirali nekoliko računa e-pošte u svom Outlooku. I svaki od njih ima svoju mapu Kontakti. U tom slučaju, kada stvorite kontakt u jednoj mapi, možda ćete ga poželjeti sinkronizirati i s mapama kontakata drugih računa e-pošte. Zašto ne dopustite Outlooku da to automatski izvrši? Ovdje ćemo vas naučiti kako to realizirati.

Automatska sinkronizacija novih kontakata s drugom mapom kontakata

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

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 morate potpisati ovaj kod. Samo kliknite gumb "Alati" na alatnoj traci i zatim odaberite "Digitalni potpis". U skočnom dijaloškom okviru samo slijedite upute na zaslonu.
6. Kasnije možete izaći iz trenutnog prozora i izmijeniti svoje postavke Outlook makronaredbi kako biste omogućili digitalno potpisane makronaredbe.
7. Na kraju, možete ponovno pokrenuti Outlook kako biste aktivirali ovaj novi makro.
8. Od sada će se svaki put kada se novi kontakt doda u izvornu mapu, automatski sinkronizirati s unaprijed definiranom ciljnom mapom.

Reagirajte na česte probleme s Outlookom

Pod uvjetom da ste desetljećima koristili Outlook, vjerojatno ste se susreli s raznim problemima, uključujući zamrzavanje Outlooka i česte poruke o pogreškama te oštećenje PST datoteka i tako dalje. Općenito, možete ih pokušati riješiti ponovnim pokretanjem Outlooka u sigurnom načinu rada, stvaranjem novog Outlook profila, onemogućavanjem neispravnih dodataka itd. Naravno, možete se poslužiti moćnim alatom za popravak, kao što je DataNumen Outlook Repair. To može popraviti PST greške poput čepa.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com