Vai al contenuto principale

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) e Applica le impostazioni di sicurezza delle macro ai componenti aggiuntivi installati opzioni. Clic OK > OK per chiudere le finestre. Ricomincia Prospettiva.

doc continua riunione nel calendario 1

doc continua riunione nel calendario 2

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

doc continua riunione nel calendario 3

3. Clic Correre pulsante o premere F5 tasto, ora la riunione selezionata è stata annullata e un nuovo appuntamento denominato Annullato e oggetto.

doc continua riunione nel calendario 4

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.

doc continua riunione nel calendario 5

Ora la riunione è stata cancellata e copiata e incollata come appuntamento nella cartella del calendario che hai scelto.

doc continua riunione nel calendario 6


I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati ProSalvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Leggi Ora       Scarica gratis      Acquista
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations