Sådan automatisk synkroniseres nye kontakter til en anden kontaktmappe i Outlook

Nogle brugere ønsker, at nye kontakter automatisk kan føjes til to eller flere mapper i deres Outlook. Så denne artikel deler en måde til automatisk at synkronisere nye kontakter til en anden kontaktmappe.

Måske har du konfigureret flere e-mail-konti i din Outlook. Og hver af dem har sin egen kontaktmappe. I et sådant tilfælde, når du opretter en kontakt i en mappe, kan du muligvis også synkronisere den med kontaktmapperne på andre e-mail-konti. Hvorfor ikke lade Outlook udføre det automatisk? Her lærer vi dig, hvordan du realiserer det.

Automatisk synkronisering af nye kontakter til en anden kontaktmappe

1. Først skal du starte dit Outlook-program.
2. Tryk derefter på genvejstasterne i hovedvinduet i Outlook - “Alt + F11”.
3. Derefter åbner du vinduet “Microsoft Visual Basic for Applications”, hvor du skal finde og åbne “ThisOutlookSession” -projektet.
4. Kopier derefter følgende VBA-kode og indsæt den i projektet.

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. Derefter skal du underskrive denne kode. Klik på knappen "Værktøjer" i værktøjslinjen, og vælg derefter "Digital signatur". I pop op-dialogboksen skal du blot følge instruktionerne på skærmen.
6. Senere kan du lukke det aktuelle vindue og ændre dine Outlook-makroindstillinger for at tillade digitalt signerede makroer.
7. Til sidst kan du genstarte din Outlook for at aktivere denne nye makro.
8. Fra nu af vil en ny kontakt automatisk blive synkroniseret med den foruddefinerede destinationsmappe, hver gang den tilføjes til kildemappen.

Reager på hyppige Outlook-problemer

Hvis du har brugt Outlook i årtier, er du sikkert stødt på en række problemer, herunder Outlook, der fryser, hyppige fejlmeddelelser, beskadigelse af PST-filer osv. Generelt kan du forsøge at løse dem ved at genstarte Outlook i fejlsikret tilstand, oprette en ny Outlook-profil, deaktivere defekte tilføjelsesprogrammer osv. Du kan selvfølgelig benytte dig af et effektivt reparationsværktøj, f.eks. DataNumen Outlook Repair. Det kan rette PST fejl som en kork.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com