เปลี่ยนการนัดหมายเป็นการประชุมใน Outlook

เปลี่ยนการประชุมเป็นการนัดหมายใน Outlook

วิธีนี้จะแนะนำคุณผ่านการเชิญผู้เข้าร่วมประชุมสำหรับการนัดหมายและแปลงการนัดหมายเป็นการประชุมใน Outlook

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

2. ขณะนี้หน้าต่างการประชุมกำลังเปิดขึ้นพร้อมเนื้อหาของการนัดหมายที่เลือก กรุณาคลิกที่ไฟล์ ไปยัง ปุ่ม. ดูภาพหน้าจอ:

3. ในกล่องโต้ตอบเลือกผู้เข้าร่วมและทรัพยากรที่ปรากฏขึ้นโปรดเลือกผู้ติดต่อที่คุณจะเชิญเป็นผู้เข้าร่วมคลิก ต้อง/สามารถเลือกหรือไม่เลือกก็ได้/แหล่งข้อมูล ตามที่คุณต้องการแล้วคลิกปุ่ม OK ปุ่ม. ดูภาพหน้าจอด้านบน:

หมายเหตุ ถือ Ctrl คุณสามารถเลือกผู้ติดต่อที่ไม่อยู่ติดกันได้หลายราย ถือ เปลี่ยน คุณสามารถเลือกผู้ติดต่อหลายรายที่อยู่ติดกันได้โดยคลิกที่รายชื่อแรกและรายชื่อสุดท้าย

4. ตอนนี้คุณกลับไปที่หน้าต่างการประชุมโปรดแก้ไขเนื้อหาการประชุมและคลิกที่ ส่ง ปุ่ม

จนถึงขณะนี้เราได้แปลงการนัดหมายที่เลือกเป็นการประชุมและส่งไปยังผู้เข้าร่วมที่ระบุแล้ว

วิธีนี้จะแนะนำ VBA เพื่อแปลงการประชุมที่เลือกเป็นการนัดหมายใน Outlook กรุณาดำเนินการดังต่อไปนี้:

1. เลื่อนไปที่มุมมองปฏิทินและคลิกเพื่อเลือกการประชุมที่คุณจะแปลงเป็นการนัดหมายในปฏิทิน

2 กด อื่น ๆ + F11 คีย์พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

3 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลใหม่

VBA: แปลงการประชุมเป็นการนัดหมายใน Outlook

Sub Meetings2Appointments()
Dim sWindowType As String
Dim oItem As Object

sWindowType = TypeName(Application.ActiveWindow)
Select Case sWindowType
Case "Explorer"
If Application.ActiveExplorer.Selection.Count > 0 Then
For Each oItem In Application.ActiveExplorer.Selection
Debug.Print oItem.Class
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
Next
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
End Select
Set oItem = Nothing
End Sub

Sub Meeting2Appointment(oMeeting As Outlook.AppointmentItem)
With oMeeting
' remove all recipients
Do Until .Recipients.Count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub

4 กด F5 หรือคลิกปุ่ม วิ่ง ปุ่มเพื่อยกเว้น VBA นี้

และตอนนี้การประชุมที่เลือกทั้งหมดจะถูกแปลงเป็นการนัดหมายใน Outlook

ซ่อนการนัดหมายทั้งหมดจากปฏิทินใน Outlook

ซ่อนการนัดหมายวันเกิดในปฏิทินใน Outlook