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

วิธีแปลงการนัดหมายหลายรายการให้เป็นงานอย่างรวดเร็วใน 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

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

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

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

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

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

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

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

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


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

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