Outlook: come mantenere l'annullamento della riunione nel calendario come organizzatore?

In Outlook, come organizzatore della riunione, quando annulli la riunione, la riunione verrà automaticamente eliminata dal calendario. In alcuni casi, potresti voler conservare le riunioni annullate nel calendario per fare alcuni segni. Tuttavia, non ci sono funzionalità integrate in Outlook in grado di gestire questo lavoro. In questo tutorial, fornisce due codici VBA per mantenere la riunione come appuntamento durante l'annullamento.

Codici VBA per la copia della riunione annullata come appuntamento

Codici VBA per la copia della riunione annullata come appuntamento

Ecco due codici per annullare la riunione e copiarla e incollarla come appuntamento allo stesso tempo.

Nota: prima di abilitare il codice, assicurati che queste due opzioni siano selezionate:

Abilita Outlook, fai clic su Compila il > Opzioni, nella finestra Opzioni di Outlook, fare clic su Centro protezione scheda e fare clic Impostazioni del centro di fiducia, quindi nella finestra Centro protezione, fare clic su Impostazioni macro scheda, controllare Abilita tutte le macro (non consigliato, può essere eseguito codice potenzialmente pericoloso) ed Applica le impostazioni di sicurezza delle macro ai componenti aggiuntivi installati opzioni. Clic OK > OK per chiudere le finestre. Ricomincia Prospettiva.

1. Passa alla visualizzazione Calendario di Outlook e seleziona la riunione che desideri annullare Premi altro + F11 tasti per abilitare la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Moduli per inserire un nuovo modulo vuoto. Quindi copia e incolla sotto il codice.

Codice: copia la riunione come appuntamento e annullala

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. Clic Correre pulsante o premere F5 tasto, ora la riunione selezionata è stata annullata e un nuovo appuntamento denominato Annullato e oggetto.

Se si desidera copiare e incollare la riunione come appuntamento in un altro calendario e quindi annullare la riunione, utilizzare il codice seguente:

Codice: copia la riunione come appuntamento in un altro calendario e annullala

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

Clicchi Correre pulsante o premere F5 tasto, viene visualizzata una finestra di dialogo Seleziona cartella per scegliere una cartella del calendario in cui incollare l'appuntamento, quindi fare clic su OK.