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

Outlook: จะยกเลิกการประชุมในปฏิทินในฐานะผู้จัดงานได้อย่างไร

ใน Outlook ในฐานะผู้จัดการประชุม เมื่อคุณยกเลิกการประชุม การประชุมจะถูกลบออกจากปฏิทินโดยอัตโนมัติ ในบางกรณี คุณอาจต้องการเก็บการประชุมที่ยกเลิกไว้ในปฏิทินเพื่อทำเครื่องหมายบางอย่าง อย่างไรก็ตาม ไม่มีฟีเจอร์ที่มีอยู่แล้วภายใน Outlook ที่สามารถจัดการงานนี้ได้ ในบทช่วยสอนนี้มีรหัส VBA สองรหัสเพื่อให้การประชุมเป็นการนัดหมายในขณะที่ยกเลิก

รหัส VBA สำหรับการคัดลอกการประชุมที่ถูกยกเลิกตามนัดหมาย


รหัส VBA สำหรับการคัดลอกการประชุมที่ถูกยกเลิกตามนัดหมาย

ต่อไปนี้คือรหัสสองรหัสสำหรับยกเลิกการประชุมและคัดลอกและวางเป็นการนัดหมายพร้อมกัน

หมายเหตุ: ก่อนที่คุณจะเปิดใช้งานรหัส โปรดตรวจสอบให้แน่ใจว่าได้เลือกตัวเลือกทั้งสองนี้แล้ว:

เปิดใช้งาน Outlook คลิก เนื้อไม่มีมัน > Optionsในหน้าต่างตัวเลือก Outlook ให้คลิก ศูนย์ความเชื่อถือ แล้วคลิก การตั้งค่าศูนย์ความเชื่อถือจากนั้นในหน้าต่างศูนย์ความเชื่อถือ ให้คลิก การตั้งค่ามาโคร แท็บตรวจสอบ เปิดใช้งานมาโครทั้งหมด (ไม่แนะนำให้ใช้รหัสที่เป็นอันตรายซึ่งอาจทำงานได้) และ ใช้การตั้งค่าความปลอดภัยของแมโครกับโปรแกรมเสริมที่ติดตั้งไว้ ตัวเลือก. คลิก OK > OK เพื่อปิดหน้าต่าง เริ่มต้นใหม่ ภาพ

doc ให้ประชุมในปฏิทิน 1

doc ให้ประชุมในปฏิทิน 2

1. เลื่อนไปที่มุมมองปฏิทิน Outlook แล้วเลือกการประชุมที่คุณต้องการยกเลิก กด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งานหน้าต่าง Microsoft Visual Basic for Applications

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

รหัส: คัดลอกการประชุมเป็นการนัดหมายและยกเลิก

Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

doc ให้ประชุมในปฏิทิน 3

3 คลิก วิ่ง หรือกด F5 ที่สำคัญ ตอนนี้การประชุมที่เลือกได้ถูกยกเลิกและมีการนัดหมายใหม่ที่ชื่อว่า Cancled & subjet

doc ให้ประชุมในปฏิทิน 4

หากคุณต้องการคัดลอกและวางการประชุมเป็นการนัดหมายในปฏิทินอื่น แล้วยกเลิกการประชุม ให้ใช้รหัสด้านล่าง:

รหัส: คัดลอกการประชุมเป็นการนัดหมายในปฏิทินอื่นแล้วยกเลิก

Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
  MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
  Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move xDestCalendar
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

คลิก วิ่ง หรือกด F5 ไดอะล็อก Select Folder จะปรากฏขึ้นเพื่อให้คุณเลือกโฟลเดอร์ปฏิทินที่จะวางการนัดหมาย จากนั้นคลิก OK

doc ให้ประชุมในปฏิทิน 5

ขณะนี้การประชุมถูกยกเลิกและคัดลอกและวางเป็นการนัดหมายในโฟลเดอร์ปฏิทินที่คุณเลือก

doc ให้ประชุมในปฏิทิน 6


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