จะย้ายการประชุมที่ส่งไปยังโฟลเดอร์เฉพาะใน Outlook โดยอัตโนมัติได้อย่างไร?

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-08-21

โดยปกติหลังจากส่งอีเมลหรือการประชุมทั้งสองอีเมลจะอยู่ในโฟลเดอร์รายการที่ถูกส่ง ดังนั้นโฟลเดอร์รายการที่ถูกส่งจะยุ่งและยุ่งยากมาก บทความนี้จะแนะนำวิธีการย้ายการประชุมที่ส่งไปยังโฟลเดอร์อื่นโดยอัตโนมัติหลังจากส่งการประชุมออกไปแล้ว

ย้ายการประชุมที่ส่งไปยังโฟลเดอร์เฉพาะโดยอัตโนมัติด้วยรหัส VBA

ย้ายการประชุมที่ส่งไปยังโฟลเดอร์เฉพาะโดยอัตโนมัติด้วยรหัส VBA

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

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

2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก นี้OutlookSession จาก โครงการ 1 (VbaProject.O ™) บานหน้าต่างเพื่อเปิดโหมดจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า

รหัส VBA: ย้ายการประชุมที่ส่งไปยังโฟลเดอร์เฉพาะโดยอัตโนมัติ

Private WithEvents GExplorer As Outlook.Explorer
Public WithEvents GSentFolder As Outlook.Folder
Public WithEvents GSentItems As Outlook.Items
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xFolder As Folder, xRootFolder As Folder
Dim xRootFldName As String
Dim xPos As Integer
    On Error Resume Next
    Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    xPos = VBA.InStr(3, xFolder.FolderPath, "\")
    If xPos > 0 Then
        xRootFldName = VBA.Mid(xFolder.FolderPath, 3, xPos - 3)
    Else
        xRootFldName = VBA.Mid(xFolder.FolderPath, 3, Len(xFolder.FolderPath) - 2)
    End If
    Set xRootFolder = Outlook.Application.Session.Folders(xRootFldName)
    Set GSentFolder = xRootFolder.Folders("Sent Items")
    Set GSentItems = GSentFolder.Items
End Sub
Private Sub GSentItems_ItemAdd(ByVal Item As Object)
    Dim xMeetingItem As Outlook.MeetingItem
    Dim xTargetFolder As Outlook.Folder
    On Error Resume Next
    If Item.Class <> olMeetingRequest Then Exit Sub
    Set xMeetingItem = Item
    Set xTargetFolder = GSentFolder.Folders("Meetings")
    If xTargetFolder Is Nothing Then
        Set xTargetFolder = GSentFolder.Folders.Add("Meetings")
    End If
    xMeetingItem.Move xTargetFolder
End Sub

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