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

Outlook: Làm cách nào để tiếp tục hủy cuộc họp trong lịch với tư cách là người tổ chức?

Trong Outlook, với tư cách là người tổ chức cuộc họp, khi bạn hủy cuộc họp, cuộc họp sẽ tự động bị xóa khỏi lịch. Trong một số trường hợp, bạn có thể muốn giữ lại các cuộc họp đã hủy trong lịch để đánh dấu. Tuy nhiên, không có tính năng tích hợp nào trong Outlook có thể xử lý công việc này. Trong hướng dẫn này, nó cung cấp hai mã VBA để giữ cuộc họp như một cuộc hẹn trong khi hủy bỏ.

Mã VBA để sao chép cuộc họp bị hủy thành cuộc hẹn


Mã VBA để sao chép cuộc họp bị hủy thành cuộc hẹn

Đây là hai mã để hủy cuộc họp và sao chép và dán nó dưới dạng một cuộc hẹn cùng một lúc.

Lưu ý: trước khi bạn kích hoạt mã, vui lòng đảm bảo rằng hai tùy chọn này đã được chọn:

Bật Outlook, nhấp vào Tập tin > Các lựa chọn, trong cửa sổ Tùy chọn Outlook, bấm Trung tâm tin tưởng và nhấp vào Cài đặt Trung tâm Niềm tin, sau đó trong cửa sổ Trung tâm tin cậy, bấm vào Cài đặt Macro tab, kiểm tra Bật tất cả các macro (không được khuyến nghị; có thể chạy mã nguy hiểm tiềm ẩn) Áp dụng cài đặt bảo mật macro cho các phần bổ trợ đã cài đặt tùy chọn. Nhấp chuột OK > OK để đóng các cửa sổ. Khởi động lại Quan điểm.

doc giữ cuộc họp trong lịch 1

doc giữ cuộc họp trong lịch 2

1. Chuyển sang chế độ xem Lịch Outlook và chọn cuộc họp mà bạn muốn hủy Nhấn Khác + F11 để bật cửa sổ Microsoft Visual Basic for Applications.

2. nhấp chuột Chèn > Mô-đun để chèn một mô-đun trống mới. Sau đó sao chép và dán mã dưới đây vào nó.

Mã: Sao chép cuộc họp như cuộc hẹn và hủy bỏ nó

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 giữ cuộc họp trong lịch 3

3. nhấp chuột chạy nút hoặc bấm F5 key, bây giờ cuộc họp đã chọn đã bị hủy và một cuộc hẹn mới có tên là Cancled & subjet.

doc giữ cuộc họp trong lịch 4

Nếu bạn muốn sao chép và dán cuộc họp dưới dạng cuộc hẹn vào một lịch khác rồi hủy cuộc họp, hãy sử dụng mã bên dưới:

Mã: Sao chép cuộc họp dưới dạng cuộc hẹn trong một lịch khác và hủy nó

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

Nhấp chuột chạy nút hoặc bấm F5 phím, hộp thoại Chọn thư mục bật ra để bạn chọn thư mục lịch để dán cuộc hẹn, sau đó bấm OK.

doc giữ cuộc họp trong lịch 5

Bây giờ cuộc họp đã bị hủy và sao chép và dán dưới dạng cuộc hẹn trong thư mục lịch mà bạn chọn.

doc giữ cuộc họp trong lịch 6


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL