Uute kontaktide automaatne sünkroonimine Outlooki teise kontaktide kaustaga

Mõned kasutajad soovivad, et uusi kontakte saaks nende Outlookis automaatselt lisada kahte või enamasse kausta. Niisiis, see artikkel jagab võimalust uute kontaktide automaatseks sünkroonimiseks teise kontaktide kausta.

Võib-olla olete oma Outlookis konfigureerinud mitu meilikontot. Ja igal neist on oma kontaktide kaust. Sellisel juhul, kui loote kontakti ühes kaustas, võite soovida selle sünkroonida ka teiste meilikontode kaustadega Kontaktid. Miks mitte lasta Outlookil seda automaatselt täita? Siin õpetame teile, kuidas seda realiseerida.

Uute kontaktide automaatne sünkroonimine teise kontaktide kaustaga

1. Kohe alguses peate käivitama oma Outlooki programmi.
2. Seejärel vajutage Outlooki põhiaknas kiirklahve – "Alt + F11".
3. Järgmisena sisenete aknasse "Microsoft Visual Basic for Applications", kus peaksite leidma ja avama projekti "ThisOutlookSession".
4. Seejärel kopeerige järgmine VBA kood ja kleepige see projekti.

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. Pärast seda peate selle koodi allkirjastama. Klõpsake lihtsalt tööriistaribal nuppu "Tööriistad" ja seejärel valige "Digiallkiri". Hüpikdialoogiboksis järgige lihtsalt ekraanil kuvatavaid juhiseid.
6. Hiljem saate praegusest aknast väljuda ja muuta oma Outlooki makro sätteid, et lubada digitaalselt allkirjastatud makrosid.
7. Lõpuks võiksite selle uue makro aktiveerimiseks oma Outlooki taaskäivitada.
8. Edaspidi sünkroonitakse iga kord, kui lähtekausta lisatakse uus kontakt, see automaatselt eelmääratletud sihtkaustaga.

Reageerige sagedastele Outlooki probleemidele

Kui olete Outlooki aastakümneid kasutanud, olete ilmselt kokku puutunud mitmesuguste probleemidega, sealhulgas Outlooki hangumise, sagedaste veateadete ja PST-failide kahjustustega jne. Üldiselt saate neid proovida lahendada Outlooki taaskäivitamise abil turvarežiimis, uue Outlooki profiili loomisega, vigaste lisandmoodulite keelamisega jne. Muidugi võite appi võtta võimsa parandustööriista, näiteks DataNumen Outlook Repair. See võib paranda PST vead nagu kork.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom