Saltar al contenido principal

Outlook: ¿Cómo mantener la cancelación de la reunión en el calendario como organizador?

En Outlook, como organizador de una reunión, cuando cancela la reunión, la reunión se eliminará automáticamente del calendario. En algunos casos, es posible que desee mantener las reuniones canceladas en el calendario para hacer algunas marcas. Sin embargo, no hay características integradas en Outlook que puedan manejar este trabajo. En este tutorial, proporciona dos códigos VBA para mantener la reunión como una cita mientras se cancela.

Códigos de VBA para copiar la reunión cancelada como cita


Códigos de VBA para copiar la reunión cancelada como cita

Aquí hay dos códigos para cancelar la reunión y copiarla y pegarla como una cita al mismo tiempo.

Nota: antes de habilitar el código, asegúrese de que estas dos opciones estén marcadas:

Habilite Outlook, haga clic en Archive > Opciones, en la ventana Opciones de Outlook, haga clic en Centro de confianza pestaña y haga clic Trust Center Settingsy, a continuación, en la ventana del Centro de confianza, haga clic en Configuración de macros pestaña, verificar Habilite todas las macros (no recomendado, se puede ejecutar código potencialmente peligroso) y Aplicar la configuración de seguridad de macros a los complementos instalados opciones Hacer clic OK > OK para cerrar las ventanas. Reanudar Panorama.

doc seguir reuniéndose en el calendario 1

doc seguir reuniéndose en el calendario 2

1. Diríjase a la vista Calendario de Outlook y seleccione la reunión que desea cancelar Presione otro + F11 teclas para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic en recuadro > Módulo para insertar un nuevo módulo en blanco. Luego copie y pegue el código a continuación.

Código: Copiar reunión como cita y cancelarla

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 seguir reuniéndose en el calendario 3

3. Hacer clic en Ejecutar botón o prensa F5 tecla, ahora la reunión seleccionada ha sido cancelada y una nueva cita llamada Cancelado y asunto.

doc seguir reuniéndose en el calendario 4

Si desea copiar y pegar la reunión como una cita en otro calendario y luego cancelar la reunión, use el siguiente código:

Código: Copiar reunión como cita en otro calendario y cancelarla

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

Haga clic Ejecutar botón o prensa F5 aparece un cuadro de diálogo Seleccionar carpeta para que elija una carpeta de calendario para pegar la cita, luego haga clic en Aceptar.

doc seguir reuniéndose en el calendario 5

Ahora la reunión ha sido cancelada y copiada y pegada como una cita en la carpeta del calendario que elija.

doc seguir reuniéndose en el calendario 6


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

 

 

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