Outlook дээрх шинэ харилцагчдыг өөр харилцагчийн хавтас руу хэрхэн автоматаар синк хийх вэ

Зарим хэрэглэгчид шинэ харилцагчдыг Outlook дээрх хоёр ба түүнээс дээш хавтас руу автоматаар нэмэхийг хүсдэг. Тиймээс, энэ нийтлэл нь шинэ харилцагчдыг өөр харилцагчийн хавтас руу автоматаар синк хийх аргыг хуваалцах болно.

Магадгүй та Outlook дээрээ хэд хэдэн имэйл хаягийг тохируулсан байх. Мөн тус бүр нь өөрийн Холбоо барих хавтастай. Ийм тохиолдолд та нэг хавтсанд харилцагч үүсгэхдээ бусад имэйл хаягуудын Харилцагчийн хавтастай синк хийх боломжтой. Outlook-д үүнийг автоматаар гүйцэтгэхийг яагаад зөвшөөрч болохгүй гэж? Үүнийг хэрхэн ухамсарлахыг бид энд заах болно.

Шинэ харилцагчдыг өөр харилцагчийн хавтас руу автоматаар синк хийнэ үү

1. Хамгийн эхэнд та Outlook програмаа эхлүүлэх хэрэгтэй.
2. Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчийг дарна уу.
3. Дараа нь та "Microsoft Visual Basic for Applications" цонх руу орох бөгөөд тэндээс "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. mdf-ийг засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com