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

Outlook: como manter o cancelamento da reunião no calendário como organizador?

No Outlook, como organizador da reunião, quando você cancelar a reunião, ela será excluída automaticamente do calendário. Em alguns casos, você pode querer manter as reuniões canceladas no calendário para fazer algumas marcações. No entanto, não há recursos internos no Outlook que possam lidar com esse trabalho. Neste tutorial, ele fornece dois códigos VBA para manter a reunião como um compromisso durante o cancelamento.

Códigos VBA para copiar reunião cancelada como compromisso


Códigos VBA para copiar reunião cancelada como compromisso

Aqui estão dois códigos para cancelar a reunião e copiá-la e colá-la como um compromisso ao mesmo tempo.

Observação: antes de habilitar o código, verifique se essas duas opções estão marcadas:

Habilite o Outlook, clique em Envie o > Opções, na janela Opções do Outlook, clique em trust Center guia e clique em Configurações da Central de confiança, em seguida, na janela Central de Confiabilidade, clique em Configurações de macro guia, cheque Habilite todas as macros (não recomendado, o código potencialmente perigoso pode ser executado) e Aplicar configurações de segurança de macro aos suplementos instalados opções. Clique OK > OK para fechar as janelas. Reiniciar Outlook.

doc manter reunião no calendário 1

doc manter reunião no calendário 2

1. Vá para a exibição do Calendário do Outlook e selecione a reunião que deseja cancelar Pressione outro + F11 para ativar a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Módulo para inserir um novo módulo em branco. Em seguida, copie e cole o código abaixo para ele.

Código: Copiar reunião como compromisso e cancelá-lo

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 manter reunião no calendário 3

3. Clique Opere ou pressione F5 tecla, agora a reunião selecionada foi cancelada e um novo compromisso chamado Cancelado e assunto.

doc manter reunião no calendário 4

Se você deseja copiar e colar a reunião como um compromisso em outro calendário e cancelar a reunião, use o código abaixo:

Código: Copiar reunião como compromisso em outro calendário e cancelá-lo

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

Clique Opere ou pressione F5 tecla, uma caixa de diálogo Selecionar pasta aparece para você escolher uma pasta de calendário para colar o compromisso e, em seguida, clique em OK.

doc manter reunião no calendário 5

Agora a reunião foi cancelada e copiada e colada como um compromisso na pasta do calendário que você escolher.

doc manter reunião no calendário 6


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL