ไปยังเนื้อหาหลัก

วิธีย้ายรายการที่ถูกลบประเภทต่าง ๆ ไปยังโฟลเดอร์ต่าง ๆ โดยอัตโนมัติใน Outlook?

ใน Outlook รายการที่ถูกลบทุกประเภท (เมล งาน ผู้ติดต่อ ฯลฯ) จะถูกย้ายไปยังโฟลเดอร์รายการที่ถูกลบ หากคุณต้องการย้ายรายการไปยังโฟลเดอร์ต่างๆ ตามประเภทรายการภายใต้โฟลเดอร์รายการที่ถูกลบดังที่แสดงภาพหน้าจอด้านล่าง คุณจะสร้างใน Outlook ได้อย่างไร


ย้ายรายการประเภทต่าง ๆ ที่ถูกลบไปยังโฟลเดอร์ต่าง ๆ โดยอัตโนมัติด้วยรหัส VBA

รหัส VBA ด้านล่างสามารถช่วยคุณย้ายรายการที่ถูกลบไปยังโฟลเดอร์ต่างๆ โดยอัตโนมัติ โปรดดำเนินการดังนี้:

1. เปิด Outlook จากนั้นกด . ค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นดับเบิลคลิก นี้OutlookSession จาก โครงการ - โครงการ 1 บานหน้าต่าง จากนั้น คัดลอกและวางโค้ดด้านล่างลงในหน้าต่างโค้ดเปล่า:

รหัส VBA: ย้ายรายการประเภทต่างๆ ที่ถูกลบไปไว้ในโฟลเดอร์ต่างๆ โดยอัตโนมัติ

Public WithEvents GDeletedFolder As Outlook.Folder
Public WithEvents GDeletedItems As Outlook.Items
Private Sub Application_Startup()
  Set GDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
  Set GDeletedItems = GDeletedFolder.Items
End Sub
Private Sub GDeletedItems_ItemAdd(ByVal Item As Object)
'Updateby ExtendOffice
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
Select Case TypeName(Item)
  Case "MailItem", "PostItem", "ReportItem", "MeetingItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Mails")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Mails", olFolderInbox)
    End If
  Case "AppointmentItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Appointments")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Appointments", olFolderCalendar)
    End If
  Case "ContactItem", "DistListItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Contacts")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Contacts", olFolderContacts)
    End If
  Case "TaskItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Tasks")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Tasks", olFolderTasks)
    End If
  Case "JournalItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Journals")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Journals", olFolderJournal)
    End If
  Case "NoteItem"
    Set xTargetFolder = GDeletedFolder.Folders("Deleted Notess")
    If xTargetFolder Is Nothing Then
      Set xTargetFolder = GDeletedFolder.Folders.Add("Deleted Notess", olFolderNotes)
    End If
End Select
If xTargetFolder Is Nothing Then Exit Sub
Item.Move xTargetFolder
Set xTargetFolder = Nothing
End Sub

3. จากนั้น บันทึกรหัสนี้ และเริ่ม Outlook ใหม่เพื่อเปิดใช้งานรหัสนี้

4. จากนี้ไป เมื่อคุณลบรายการหนึ่ง รายการจะถูกย้ายไปยังโฟลเดอร์ประเภทที่สอดคล้องกันภายใต้ รายการที่ถูกลบ โฟลเดอร์โดยอัตโนมัติ

5. ดูผลลัพธ์ คลิก ที่ด้านล่างของบานหน้าต่างโฟลเดอร์ จากนั้นคลิก โฟลเดอร์ หากต้องการขยายโฟลเดอร์ทั้งหมดในบานหน้าต่าง ดูภาพหน้าจอ:

 

 


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations