Note: The other languages of the website are Google-translated. Back to English

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

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL