Kaip automatiškai sinchronizuoti naujus kontaktus su kitu „Outlook“ kontaktų aplanku

Kai kurie vartotojai nori, kad nauji kontaktai būtų automatiškai įtraukti į du ar daugiau jų Outlook aplankų. Taigi, šiame straipsnyje bus aprašytas būdas automatiškai sinchronizuoti naujus kontaktus į kitą kontaktų aplanką.

Galbūt „Outlook“ sukonfigūravote kelias el. pašto paskyras. Ir kiekvienas iš jų turi savo kontaktų aplanką. Tokiu atveju, kai kuriate kontaktą viename aplanke, galbūt norėsite jį sinchronizuoti ir su kitų el. pašto paskyrų kontaktų aplankais. Kodėl gi neleisti „Outlook“ to atlikti automatiškai? Čia mes išmokysime, kaip tai realizuoti.

Automatiškai sinchronizuoti naujus kontaktus su kitu kontaktų aplanku

1. Pačioje pradžioje turite paleisti „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ lange paspauskite sparčiuosius klavišus - „Alt + F11“.
3. Tada pateksite į langą „Microsoft Visual Basic for Applications“, kuriame turėtumėte rasti ir atidaryti projektą „ThisOutlookSession“.
4. Tada nukopijuokite šį VBA kodą ir įklijuokite jį į 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. Po to turėsite pasirašyti šį kodą. Tiesiog spustelėkite įrankių juostoje esantį mygtuką „Įrankiai“ ir pasirinkite „Skaitmeninis parašas“. Iššokančiajame dialogo lange tiesiog vykdykite ekrane pateikiamas instrukcijas.
6. Vėliau galite išeiti iš dabartinio lango ir pakeisti „Outlook“ makrokomandos parametrus, kad leistų naudoti skaitmeniniu būdu pasirašytas makrokomandas.
7. Galiausiai, galite paleisti „Outlook“ iš naujo, kad suaktyvintumėte šią naują makrokomandą.
8. Nuo šiol kiekvieną kartą, kai į šaltinio aplanką pridedamas naujas kontaktas, jis bus automatiškai sinchronizuojamas su iš anksto nustatytu paskirties aplanku.

Reaguokite į dažnas „Outlook“ problemas

Jei „Outlook“ naudojate dešimtmečius, tikriausiai esate susidūrę su įvairiomis problemomis, įskaitant „Outlook“ užstrigimą, dažnus klaidų pranešimus, PST failų pažeidimus ir pan. Paprastai jas galite pabandyti išspręsti iš naujo paleisdami „Outlook“ saugiuoju režimu, sukurdami naują „Outlook“ profilį, išjungdami klaidingus priedus ir pan. Žinoma, galite pasinaudoti galinga taisymo priedu, pvz. DataNumen Outlook Repair. Tai gali pataisyti PST klaidos kaip kamštis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontuoti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com