Slik synkroniserer du nye kontakter automatisk til en annen kontaktmappe i Outlook

Outlook-løsninger September 29, 2025

Noen brukere ønsker at nye kontakter automatisk kan legges til i to eller flere mapper i Outlook. Så denne artikkelen vil dele en måte å automatisk synkronisere nye kontakter til en annen kontaktmappe.

Kanskje du har konfigurert flere e-postkontoer i Outlook. Og hver av dem har sin egen Kontakter-mappe. I et slikt tilfelle, når du oppretter en kontakt i én mappe, vil du kanskje også synkronisere den til kontaktmappene til andre e-postkontoer. Hvorfor ikke la Outlook auto utføre det? Her skal vi lære deg hvordan du kan realisere det.

Synkroniser nye kontakter automatisk til en annen kontaktmappe i Outlook

Synkroniser nye kontakter automatisk til en annen kontaktmappe

  1. Helt i begynnelsen må du starte Outlook-programmet.
  2. Deretter, i hovedvinduet i Outlook, trykker du på hurtigtastene - "Alt + F11".
  3. Deretter går du inn i vinduet "Microsoft Visual Basic for Applications", der du bør finne og åpne prosjektet "ThisOutlookSession".
  4. Deretter kopierer du følgende VBA-kode og limer den inn i prosjektet.
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

VBA-kode - Automatisk synkronisering av nye kontakter til en annen kontaktmappe

  1. Etter det må du signere denne koden. Bare klikk på "Verktøy"-knappen i verktøylinjen og velg deretter "Digital signatur". I popup-dialogboksen følger du bare instruksjonene på skjermen.
  2. Senere kan du gå ut av det gjeldende vinduet og endre Outlook-makroinnstillingene for å tillate digitalt signerte makroer.
  3. Til slutt kan du starte Outlook på nytt for å aktivere denne nye makroen.
  4. Fra nå av vil en ny kontakt automatisk synkroniseres med den forhåndsdefinerte målmappen hver gang den legges til i kildemappen.

Reager på hyppige Outlook-problemer

Gitt at du har brukt Outlook i flere tiår, har du sikkert støtt på en rekke problemer, inkludert frysing av Outlook og hyppige feilmeldinger, skade på PST-filer og så videre. Vanligvis kan du prøve å løse dem ved å starte Outlook på nytt i sikkermodus, opprette en ny Outlook-profil, deaktivere defekte tillegg osv. Selvfølgelig kan du bruke et kraftig reparasjonsverktøy, for eksempel DataNumen Outlook Repair. Det kan fikse PST feil som en kork.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.