วิธีแปลงการนัดหมายหลายรายการให้เป็นงานอย่างรวดเร็วใน Outlook?

ในบทความนี้ฉันจะพูดถึงวิธีการแปลงการนัดหมายหรือการนัดหมายหลายรายการเป็นงานอย่างรวดเร็วและง่ายดายใน Outlook

แปลงการนัดหมายหนึ่งรายการให้เป็นงานโดยการลากและวาง

แปลงการนัดหมายหลาย ๆ งานโดยใช้รหัส VBA

---

แปลงการนัดหมายหนึ่งรายการให้เป็นงานโดยการลากและวาง

ในการแปลงการนัดหมายเป็นงานคุณเพียงแค่ลากการนัดหมายไปยังโฟลเดอร์งานโปรดทำดังนี้:

1. ใน ปฏิทิน เลือกรายการนัดหมายที่คุณต้องการแปลงเป็นงานจากนั้นลากและวางลงในไฟล์ งาน ไอคอนที่ด้านล่างของบานหน้าต่างนำทางตามภาพหน้าจอต่อไปนี้:

2. แล้วใหม่ งาน ปรากฏขึ้นโปรดคลิก บันทึกและปิด เพื่อบันทึกการนัดหมายนี้เป็นงาน ดูภาพหน้าจอ:

---

แปลงการนัดหมายหลาย ๆ งานโดยใช้รหัส VBA

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

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

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่างที่เปิดดูภาพหน้าจอ:

รหัส VBA: แปลงการนัดหมายหลายงานให้เป็นงาน

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

3. จากนั้นเลือกการนัดหมายที่คุณต้องการแปลงเป็นงานจากนั้นคลิก เรียกใช้ Macro ปุ่มเพื่อเรียกใช้รหัสนี้ดูภาพหน้าจอ:

4. แล้วก เลือกโฟลเดอร์ กล่องโต้ตอบจะปรากฏขึ้นให้เลือก a งาน โฟลเดอร์ที่คุณต้องการบันทึกผลลัพธ์ที่แปลงแล้วดูภาพหน้าจอ:

5. จากนั้นคลิก OK และการนัดหมายที่เลือกทั้งหมดจะถูกสร้างเป็นงานจากนั้นคุณควรบันทึกและปิดไฟล์ งาน ทีละหน้าต่างดูภาพหน้าจอ:

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