როგორ მოვახდინოთ ავტომატური სინქრონიზაცია ახალი კონტაქტების სხვა კონტაქტების საქაღალდეში Outlook-ში

ზოგიერთ მომხმარებელს სურს, რომ ახალი კონტაქტები ავტომატურად დაემატოს ორ ან მეტ საქაღალდეს მათ Outlook-ში. ამრიგად, ეს სტატია გაგიზიარებთ ახალი კონტაქტების ავტომატური სინქრონიზაციის საშუალებას სხვა კონტაქტების საქაღალდეში.

შესაძლოა, თქვენ გაქვთ კონფიგურირებული ელ.ფოსტის რამდენიმე ანგარიში თქვენს Outlook-ში. და თითოეულ მათგანს აქვს საკუთარი კონტაქტების საქაღალდე. ასეთ შემთხვევაში, როდესაც თქვენ ქმნით კონტაქტს ერთ საქაღალდეში, შეიძლება გინდოდეთ მისი სინქრონიზაცია სხვა ელ.ფოსტის ანგარიშების კონტაქტების საქაღალდეებთანაც. რატომ არ უნდა მისცეთ Outlook-ს ავტომატური შესრულების უფლება? აქ ჩვენ გასწავლით როგორ უნდა გააცნობიეროთ იგი.

ახალი კონტაქტების ავტომატური სინქრონიზაცია სხვა კონტაქტების საქაღალდეში

1. თავიდანვე, თქვენ უნდა გაუშვათ თქვენი Outlook პროგრამა.
2. შემდეგ, Outlook-ის მთავარ ფანჯარაში დააჭირეთ მალსახმობის ღილაკებს - "Alt + F11".
3. შემდეგი, თქვენ შეხვალთ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში, რომელშიც უნდა იპოვოთ და გახსნათ პროექტი "ThisOutlookSession".
4. შემდეგ დააკოპირეთ შემდეგი VBA კოდი და ჩასვით პროექტში.

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. ამის შემდეგ, თქვენ უნდა მოაწეროთ ხელი ამ კოდს. უბრალოდ დააწკაპუნეთ ღილაკზე „ინსტრუმენტები“ ინსტრუმენტთა პანელში და შემდეგ აირჩიეთ „ციფრული ხელმოწერა“. ფანჯარაში, რომელიც გამოჩნდება, უბრალოდ მიჰყევით ეკრანზე მითითებებს.
6. მოგვიანებით შეგიძლიათ გახვიდეთ მიმდინარე ფანჯრიდან და შეცვალოთ თქვენი Outlook მაკრო პარამეტრები, რათა დაუშვათ ციფრულად ხელმოწერილი მაკროები.
7. და ბოლოს, შეგიძლიათ გადატვირთოთ Outlook ამ ახალი მაკროს გასააქტიურებლად.
8. ამიერიდან, ყოველ ჯერზე, როდესაც ახალი კონტაქტი დაემატება წყაროს საქაღალდეს, ის ავტომატურად სინქრონიზდება წინასწარ განსაზღვრულ სამიზნე საქაღალდესთან.

რეაგირება Outlook-ის ხშირ პრობლემებზე

იმის გათვალისწინებით, რომ Outlook-ს ათწლეულების განმავლობაში იყენებდით, ალბათ, სხვადასხვა პრობლემას წააწყდით, მათ შორის Outlook-ის გაყინვას და ხშირ შეცდომის შეტყობინებებს, PST ფაილის დაზიანებას და ა.შ. ზოგადად, მათი გადაჭრა შეგიძლიათ Outlook-ის უსაფრთხო რეჟიმში გადატვირთვით, ახალი Outlook პროფილის შექმნით, გაუმართავი დანამატების გამორთვით და ა.შ. რა თქმა უნდა, შეგიძლიათ გამოიყენოთ ძლიერი აღდგენის ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair. Მას შეუძლია შეასწორეთ PST კორპის მსგავსი შეცდომები.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად