Outlook-da yeni kontaktları başqa bir kontakt qovluğuna avtomatik sinxronizasiya etmək

Bəzi istifadəçilər yeni kontaktların avtomatik olaraq Outlook-da iki və ya daha çox qovluğa əlavə edilməsini istəyirlər. Beləliklə, bu məqalə yeni kontaktları başqa kontaktlar qovluğuna avtomatik sinxronlaşdırmağın bir yolunu paylaşacaq.

Yəqin ki, Outlook-da bir neçə e-poçt hesabını konfiqurasiya etmisiniz. Və onların hər birinin öz Əlaqə qovluğu var. Belə halda, bir qovluqda kontakt yaratdığınız zaman onu digər e-poçt hesablarının Kontaktlar qovluqları ilə də sinxronlaşdırmaq istəyə bilərsiniz. Niyə Outlook-un bunu avtomatik yerinə yetirməsinə icazə vermirsiniz? Burada sizə bunu necə həyata keçirəcəyinizi öyrədəcəyik.

Yeni Kontaktları başqa Kontaktlar Qovluğu ilə avtomatik sinxronlaşdırın

1. Ən başlanğıcda Outlook proqramını işə salmalısınız.
2. Sonra, əsas Outlook pəncərəsində qısa yol düymələrini basın - "Alt + F11".
3. Sonra, "ThisOutlookSession" layihəsini tapmalı və açmalı olduğunuz "Proqramlar üçün Microsoft Visual Basic" pəncərəsinə daxil olacaqsınız.
4. Daha sonra aşağıdakı VBA kodunu kopyalayın və layihəyə yapışdırın.

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. Bundan sonra bu kodu imzalamalısınız. Sadəcə alətlər panelində "Alətlər" düyməsini basın və sonra "Rəqəmsal İmza" seçin. Açılan informasiya qutusunda sadəcə ekrandakı təlimatları izləyin.
6. Daha sonra rəqəmsal imzalanmış makrolara icazə vermək üçün cari pəncərədən çıxa və Outlook makro parametrlərinizi dəyişə bilərsiniz.
7. Nəhayət, bu yeni makronu aktivləşdirmək üçün Outlook-u yenidən başlada bilərsiniz.
8. Bundan sonra, mənbə qovluğuna hər dəfə yeni bir əlaqə əlavə edildikdə, o, avtomatik olaraq əvvəlcədən təyin edilmiş hədəf qovluğuna sinxronlaşdırılacaq.

Tez-tez Outlook Problemlərinə reaksiya verin

Əgər on illərdir Outlook-dan istifadə edirsinizsə, Outlook-un donması və tez-tez səhv mesajları, PST faylının zədələnməsi və s. kimi bir sıra problemlərlə qarşılaşmış olmalısınız. Ümumiyyətlə, Outlook-u təhlükəsiz rejimdə yenidən başlatmaqla, yeni Outlook profili yaratmaqla, nasaz əlavələri deaktiv etməklə və s. onları həll etməyə çalışa bilərsiniz. Əlbəttə ki, güclü bir təmir vasitəsinin köməyindən istifadə edə bilərsiniz, məsələn, DataNumen Outlook Repair. Mümkündür PST-ni düzəldin mantar kimi səhvlər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com