Kuinka synkronoida uudet yhteystiedot automaattisesti toiseen Outlookin yhteystietokansioon

Jotkut käyttäjät haluavat, että uudet yhteystiedot voidaan lisätä automaattisesti kahteen tai useampaan kansioon Outlookissa. Joten tässä artikkelissa jaetaan tapa synkronoida uudet yhteystiedot automaattisesti toiseen yhteystietokansioon.

Ehkä olet määrittänyt useita sähköpostitilejä Outlookissasi. Ja jokaisella niistä on oma Yhteystiedot-kansionsa. Tällaisessa tapauksessa, kun luot yhteystiedon yhteen kansioon, saatat haluta synkronoida sen myös muiden sähköpostitilien Yhteystiedot-kansioihin. Mikset anna Outlookin suorittaa sitä automaattisesti? Täällä opetamme sinulle kuinka se toteutetaan.

Synkronoi uudet yhteystiedot automaattisesti toiseen yhteystietokansioon

1. Alussa sinun on käynnistettävä Outlook-ohjelma.
2. Paina sitten Outlookin pääikkunassa pikanäppäimiä - "Alt + F11".
3. Seuraavaksi siirryt "Microsoft Visual Basic for Applications" -ikkunaan, josta sinun pitäisi löytää ja avata "ThisOutlookSession" -projekti.
4. Kopioi sitten seuraava VBA-koodi ja liitä se projektiin.

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. Tämän jälkeen sinun on allekirjoitettava tämä koodi. Napsauta vain työkalupalkin "Työkalut" -painiketta ja valitse sitten "Digitaalinen allekirjoitus". Noudata ponnahdusikkunassa näkyviä ohjeita.
6. Myöhemmin voit poistua nykyisestä ikkunasta ja muuttaa Outlook-makroasetuksia sallimaan digitaalisesti allekirjoitetut makrot.
7. Lopuksi voit käynnistää Outlookin uudelleen aktivoidaksesi tämän uuden makron.
8. Tästä eteenpäin aina, kun uusi yhteystieto lisätään lähdekansioon, se synkronoidaan automaattisesti ennalta määritettyyn kohdekansioon.

Reagoi usein esiintyviin Outlook-ongelmiin

Jos olet käyttänyt Outlookia vuosikymmeniä, olet varmasti kohdannut useita ongelmia, kuten Outlookin jumiutumisen, toistuvia virheilmoituksia ja PST-tiedostojen vaurioitumisen. Yleensä voit yrittää ratkaista ne käynnistämällä Outlookin uudelleen vikasietotilassa, luomalla uuden Outlook-profiilin, poistamalla vialliset lisäosat käytöstä jne. Voit tietysti käyttää tehokasta korjaustyökalua, kuten DataNumen Outlook Repair. Se voi korjaa PST virheet kuin korkki.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com