Come sincronizzare automaticamente i nuovi contatti in un'altra cartella dei contatti in Outlook

Alcuni utenti desiderano che i nuovi contatti possano essere aggiunti automaticamente a due o più cartelle in Outlook. Quindi, questo articolo condividerà un modo per sincronizzare automaticamente i nuovi contatti con un'altra cartella di contatti.

Forse hai configurato diversi account di posta elettronica in Outlook. E ognuno di loro ha la propria cartella Contatti. In tal caso, quando crei un contatto in una cartella, potresti voler sincronizzarlo anche con le cartelle Contatti di altri account e-mail. Perché non lasciare che Outlook lo compia automaticamente? Qui ti insegneremo come realizzarlo.

Sincronizza automaticamente i nuovi contatti in un'altra cartella dei contatti

1. All'inizio, devi avviare il tuo programma Outlook.
2. Quindi, nella finestra principale di Outlook, premi i tasti di scelta rapida: "Alt + F11".
3. Successivamente, entrerai nella finestra "Microsoft Visual Basic for Applications", in cui dovresti trovare e aprire il progetto "ThisOutlookSession".
4. Successivamente, copia il seguente codice VBA e incollalo nel progetto.

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. Successivamente, è necessario firmare questo codice. Basta fare clic sul pulsante "Strumenti" nella barra degli strumenti e quindi selezionare "Firma digitale". Nella finestra di dialogo popup, basta seguire le istruzioni sullo schermo.
6. Successivamente è possibile uscire dalla finestra corrente e modificare le impostazioni delle macro di Outlook per consentire le macro firmate digitalmente.
7. Infine, potresti ristart tuo Outlook per attivare questa nuova macro.
8. D'ora in poi, ogni volta che un nuovo contatto viene aggiunto alla cartella di origine, verrà automaticamente sincronizzato con quello predefinito tarottenere la cartella.

Reagisci ai frequenti problemi di Outlook

A condizione che tu abbia utilizzato Outlook per decenni, devi aver riscontrato una serie di problemi, tra cui il blocco di Outlook e frequenti messaggi di errore e danni ai file PST e così via. In generale, puoi provare a risolverli con ristarting Outlook in modalità provvisoria, creazione di un nuovo profilo di Outlook, disabilitazione di componenti aggiuntivi difettosi, ecc. Naturalmente, potresti avvalerti di un potente strumento di riparazione, come DataNumen Outlook Repair. Si può correggere PST errori come un tappo di sughero.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com