Einige Benutzer möchten, dass neue Kontakte automatisch zu zwei oder mehr Ordnern in ihrem Outlook hinzugefügt werden. In diesem Artikel wird eine Möglichkeit zum automatischen Synchronisieren neuer Kontakte mit einem anderen Kontaktordner beschrieben.
Möglicherweise haben Sie in Ihrem Outlook mehrere E-Mail-Konten konfiguriert. Und jeder von ihnen hat seinen eigenen Kontaktordner. Wenn Sie in einem solchen Fall einen Kontakt in einem Ordner erstellen, möchten Sie ihn möglicherweise auch mit den Kontaktordnern anderer E-Mail-Konten synchronisieren. Warum nicht Outlook automatisch ausführen lassen? Hier bringen wir Ihnen bei, wie Sie es realisieren können.
Neue Kontakte automatisch mit einem anderen Kontaktordner synchronisieren
- Gleich zu Beginn müssen Sie Ihr Outlook-Programm starten.
- Drücken Sie dann im Outlook-Hauptfenster die Tastenkombinationen „Alt + F11“.
- Als Nächstes rufen Sie das Fenster "Microsoft Visual Basic für Applikationen" auf, in dem Sie das Projekt "ThisOutlookSession" suchen und öffnen sollten.
- Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Projekt ein.
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
- Danach müssen Sie diesen Code unterschreiben. Klicken Sie einfach auf die Schaltfläche "Extras" in der Symbolleiste und wählen Sie dann "Digitale Signatur". Befolgen Sie im Popup-Dialogfeld einfach die Anweisungen auf dem Bildschirm.
- Später können Sie das aktuelle Fenster verlassen und Ihre Outlook-Makroeinstellungen ändern, um digital signierte Makros zuzulassen.
- Zum Schluss könnten Sie Outlook neu starten, um dieses neue Makro zu aktivieren.
- Ab sofort wird jeder neue Kontakt, der dem Quellordner hinzugefügt wird, automatisch mit dem vordefinierten Zielordner synchronisiert.
Reagieren Sie auf häufige Outlook-Probleme
Wenn Sie Outlook schon seit Jahrzehnten nutzen, sind Ihnen sicherlich schon diverse Probleme begegnet, wie etwa das Einfrieren des Programms, häufige Fehlermeldungen oder beschädigte PST-Dateien. In der Regel können Sie versuchen, diese Probleme zu beheben, indem Sie Outlook im abgesicherten Modus neu starten, ein neues Outlook-Profil erstellen oder fehlerhafte Add-Ins deaktivieren. Alternativ können Sie natürlich auch ein leistungsstarkes Reparaturtool verwenden. DataNumen Outlook Repair. Es kann PST beheben Fehler wie ein Korken.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf reparieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX