วิธีซิงค์ผู้ติดต่อใหม่โดยอัตโนมัติไปยังโฟลเดอร์ผู้ติดต่ออื่นใน 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 ใหม่ ปิดใช้งานส่วนเสริมที่ทำงานผิดพลาด ฯลฯ แน่นอน คุณสามารถใช้เครื่องมือซ่อมแซมที่มีประสิทธิภาพ เช่น [ชื่อโปรแกรม Outlook] ช่วยเหลือได้ DataNumen Outlook Repair. มันสามารถ แก้ไข PST ข้อผิดพลาดเช่นไม้ก๊อก

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อม mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.