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

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

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

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

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

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

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

นัด doc ไปที่งาน 1

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

นัด doc ไปที่งาน 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

นัด doc ไปที่งาน 3