Outlook-da yangi kontaktlarni boshqa kontaktlar papkasiga qanday avtomatik sinxronlashtirish mumkin

Ba'zi foydalanuvchilar yangi kontaktlarni Outlook-dagi ikki yoki undan ortiq papkalarga avtomatik ravishda qo'shishni xohlashadi. Shunday qilib, ushbu maqola yangi kontaktlarni boshqa kontaktlar papkasiga avtomatik sinxronlashtirish usulini baham ko'radi.

Ehtimol, siz Outlook-da bir nechta elektron pochta hisoblarini sozlagansiz. Va ularning har birida o'z Kontaktlar papkasi mavjud. Bunday holda, bitta jildda kontakt yaratganingizda, uni boshqa elektron pochta hisoblarining Kontaktlar papkalari bilan ham sinxronlashtirishni xohlashingiz mumkin. Nega Outlook avtomatik ravishda buni amalga oshirishiga ruxsat bermaysiz? Bu erda biz sizga buni qanday amalga oshirishni o'rgatamiz.

Yangi kontaktlarni boshqa kontaktlar papkasiga avtomatik sinxronlash

1. Eng boshida Outlook dasturini ishga tushirishingiz kerak.
2. Keyin, asosiy Outlook oynasida yorliq tugmachalarini bosing - "Alt + F11".
3. Keyinchalik, siz "Ilovalar uchun Microsoft Visual Basic" oynasiga kirasiz, unda siz "ThisOutlookSession" loyihasini topishingiz va ochishingiz kerak.
4. Keyinchalik, quyidagi VBA kodini nusxalang va uni loyihaga joylashtiring.

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. Shundan so'ng siz ushbu kodni imzolashingiz kerak. Asboblar panelidagi "Asboblar" tugmasini bosing va keyin "Raqamli imzo" ni tanlang. Qalqib chiquvchi dialog oynasida faqat ekrandagi ko'rsatmalarga amal qiling.
6. Keyinchalik joriy oynadan chiqishingiz va raqamli imzolangan makroslarga ruxsat berish uchun Outlook makro sozlamalarini o'zgartirishingiz mumkin.
7. Nihoyat, ushbu yangi so'lni faollashtirish uchun Outlook-ni qayta ishga tushirishingiz mumkin.
8. Bundan buyon, har safar manba papkasiga yangi kontakt qo'shilganda, u avtomatik ravishda oldindan belgilangan maqsadli papkaga sinxronlashtiriladi.

Tez-tez uchraydigan Outlook muammolariga munosabat bildiring

Agar siz Outlook-dan o'nlab yillar davomida foydalangan bo'lsangiz, Outlook-ning muzlashi va tez-tez xato xabarlari hamda PST fayllarining shikastlanishi va boshqalar kabi turli muammolarga duch kelgan bo'lishingiz kerak. Odatda, siz ularni Outlook-ni xavfsiz rejimda qayta ishga tushirish, yangi Outlook profilini yaratish, nosoz qo'shimchalarni o'chirib qo'yish va boshqalar orqali hal qilishga harakat qilishingiz mumkin. Albatta, siz kuchli ta'mirlash vositasidan foydalanishingiz mumkin, masalan, DataNumen Outlook Repair. U qila oladi PST ni tuzatish mantar kabi xatolar.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc ta'mirlash mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com