Az új névjegyek automatikus szinkronizálása egy másik névjegymappával az Outlookban

Egyes felhasználók azt szeretnék, ha az új névjegyek automatikusan hozzáadhatók az Outlook két vagy több mappájához. Tehát ez a cikk megosztja az új névjegyek másik névjegymappába való automatikus szinkronizálásának módját.

Lehet, hogy több e-mail fiókot konfigurált az Outlookban. És mindegyiknek megvan a saját Névjegyzék mappája. Ebben az esetben, amikor egy névjegyet hoz létre egy mappában, érdemes lehet más e-mail fiókok Névjegyek mappáival is szinkronizálni. Miért nem hagyja, hogy az Outlook automatikusan végrehajtsa? Itt megtanítjuk, hogyan kell megvalósítani.

Új névjegyek automatikus szinkronizálása másik névjegymappával

1. A legelején el kell indítania az Outlook programot.
2. Ezután az Outlook főablakában nyomja meg a gyorsbillentyűket – „Alt + F11”.
3. Ezután be kell lépnie a „Microsoft Visual Basic for Applications” ablakba, amelyben meg kell találnia és meg kell nyitnia a „ThisOutlookSession” projektet.
4. Ezt követően másolja ki a következő VBA-kódot, és illessze be a projektbe.

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. Ezt követően alá kell írnia ezt a kódot. Csak kattintson az „Eszközök” gombra az eszköztáron, majd válassza a „Digitális aláírás” lehetőséget. A felugró párbeszédpanelen kövesse a képernyőn megjelenő utasításokat.
6. Később kiléphet az aktuális ablakból, és módosíthatja az Outlook makró beállításait, hogy engedélyezze a digitálisan aláírt makrókat.
7. Végül megnyugodhattart az Outlookban az új makró aktiválásához.
8. Ezentúl minden alkalommal, amikor új névjegyet adnak a forrásmappához, az automatikusan szinkronizálva lesz az előre meghatározott tarkap mappát.

Reagáljon a gyakori Outlook-problémákra

Feltéve, hogy évtizedek óta használja az Outlookot, számos problémával kell szembesülnie, beleértve az Outlook lefagyását és a gyakori hibaüzeneteket, valamint a PST-fájlok sérülését és így tovább. Általában megpróbálhatja megoldani őket a restaraz Outlook csökkentett módban való kezelése, új Outlook-profil létrehozása, a hibás bővítmények letiltása stb. Természetesen segítségére lehet egy hatékony javítóeszköz, mint pl. DataNumen Outlook Repair. Az tud javítsd ki a PST-t hibák, mint a parafa.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com