Outlook: Sut i gadw cyfarfod canslo yn y calendr fel trefnydd?

Yn Outlook, fel trefnydd cyfarfod, pan fyddwch chi'n canslo'r cyfarfod, bydd y cyfarfod yn cael ei ddileu'n awtomatig o'r calendr. Mewn rhai achosion, efallai y byddwch am gadw'r cyfarfodydd sydd wedi'u canslo yn y calendr i wneud rhai marciau. Fodd bynnag, nid oes unrhyw nodweddion adeiledig yn Outlook a all drin y swydd hon. Yn y tiwtorial hwn, mae'n darparu dau god VBA ar gyfer cadw'r cyfarfod fel apwyntiad wrth ganslo.

Codau VBA ar gyfer copïo cyfarfod wedi'i ganslo fel apwyntiad

Codau VBA ar gyfer copïo cyfarfod wedi'i ganslo fel apwyntiad

Dyma ddau god ar gyfer canslo’r cyfarfod a’i gopïo a’i gludo fel apwyntiad ar yr un pryd.

Nodyn: cyn i chi alluogi'r cod, gwnewch yn siŵr bod y ddau opsiwn hyn yn cael eu gwirio:

Galluogi Camre, cliciwch Ffeil > Dewisiadau, yn ffenestr Outlook Options, cliciwch Canolfan yr Ymddiriedolaeth tab, a chlicio Gosodiadau Canolfan Ymddiriedolaeth, yna yn ffenestr Canolfan yr Ymddiriedolaeth, cliciwch Gosodiadau Macro tab, gwirio Galluogi pob macros (heb ei argymell; gall cod a allai fod yn beryglus redeg) ac Cymhwyso gosodiadau diogelwch macro i ychwanegion sydd wedi'u gosod opsiynau. Cliciwch OK > OK i gau y ffenestri. Ail-ddechrau Rhagolwg.

1. Swift i Outlook golwg Calendr, a dewiswch y cyfarfod yr ydych am ei ganslo Pwyswch Alt + F11 allweddi i alluogi ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau i fewnosod modiwl gwag newydd. Yna copïwch a gludwch y cod isod iddo.

Cod: Copïwch y cyfarfod fel apwyntiad a'i ganslo

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

3. Cliciwch Run botwm neu wasg F5 allweddol, nawr mae'r cyfarfod a ddewiswyd wedi'i ganslo ac apwyntiad newydd o'r enw Cancled & subjet.

Os ydych chi am gopïo a gludo'r cyfarfod fel apwyntiad mewn calendr arall ac yna canslo'r cyfarfod, defnyddiwch y cod isod:

Cod: Copïwch y cyfarfod fel apwyntiad mewn calendr arall a'i ganslo

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

Cliciwch Run botwm neu wasg F5 allweddol, mae deialog Dewis Ffolder yn ymddangos i chi ddewis ffolder calendr i gludo'r apwyntiad, yna cliciwch Iawn.