Nieuwe contacten automatisch synchroniseren met een andere map met contacten in Outlook

Sommige gebruikers willen dat nieuwe contacten automatisch kunnen worden toegevoegd aan twee of meer mappen in hun Outlook. Dit artikel zal dus een manier delen om nieuwe contacten automatisch te synchroniseren met een andere contactenmap.

Misschien heeft u meerdere e-mailaccounts in uw Outlook geconfigureerd. En elk van hen heeft zijn eigen map Contacten. Als u in dat geval een contactpersoon in een map maakt, wilt u deze wellicht ook synchroniseren met de mappen met contactpersonen van andere e-mailaccounts. Waarom laat Outlook het niet automatisch doen? Hier leren we je hoe je dit kunt realiseren.

Nieuwe contacten automatisch synchroniseren met een andere map met contacten

1. Om te beginnen moet u uw Outlook-programma starten.
2. Druk vervolgens in het hoofdvenster van Outlook op de sneltoetsen - "Alt + F11".
3. Vervolgens komt u in het venster "Microsoft Visual Basic for Applications", waarin u het project "ThisOutlookSession" zou moeten zoeken en openen.
4. Kopieer vervolgens de volgende VBA-code en plak deze in het project.

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. Daarna moet u deze code ondertekenen. Klik gewoon op de knop "Extra" in de werkbalk en selecteer vervolgens "Digitale handtekening". Volg in het pop-upvenster de instructies op het scherm.
6. Later kunt u het huidige venster verlaten en uw Outlook-macro-instellingen wijzigen om digitaal ondertekende macro's toe te staan.
7. Tot slot kunt u Outlook opnieuw opstarten om deze nieuwe macro te activeren.
8. Vanaf nu wordt elk nieuw contact dat aan de bronmap wordt toegevoegd, automatisch gesynchroniseerd met de vooraf gedefinieerde doelmap.

Reageer op veelvoorkomende Outlook-problemen

Als u Outlook al tientallen jaren gebruikt, bent u ongetwijfeld wel eens tegen diverse problemen aangelopen, zoals vastlopende Outlook, frequente foutmeldingen, beschadigde PST-bestanden, enzovoort. Over het algemeen kunt u deze problemen proberen op te lossen door Outlook in de veilige modus te herstarten, een nieuw Outlook-profiel aan te maken, defecte invoegingen uit te schakelen, enzovoort. Uiteraard kunt u ook een krachtige reparatietool gebruiken, zoals... DataNumen Outlook Repair. Het kan repareer PST fouten als een kurk.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com