Como alterar um compromisso para reunião e vice-versa no Outlook?

Alterar um compromisso para uma reunião no Outlook

Alterar reuniões para compromissos no Outlook

Este método irá guiá-lo através do processo de convidar participantes da reunião para um compromisso e converter o compromisso em uma reunião no Outlook.

1. Alterne para a visualização do Calendário, clique com o botão direito no compromisso que você deseja converter em uma reunião no Calendário e, em seguida, selecione "Convidar Participantes" no menu de contexto. Veja a captura de tela:

2. Agora, uma janela de reunião será aberta com o conteúdo do compromisso selecionado. Por favor, clique no botão "Para". Veja a captura de tela:

3. Na caixa de diálogo Selecionar Participantes e Recursos que apareceu, por favor, selecione os contatos que você deseja convidar como participantes, clique no botão "Obrigatório"/"Opcional"/"Recursos" conforme necessário e clique no botão "OK". Veja a captura de tela acima:

Observação: Mantendo a tecla "Ctrl" pressionada, você pode selecionar vários contatos não adjacentes clicando em cada contato; mantendo a tecla "Shift" pressionada, você pode selecionar múltiplos contatos adjacentes clicando no primeiro contato e no último.

4. Agora você volta para a janela da reunião, edite o conteúdo da reunião e clique no botão "Enviar".

Até agora, convertemos o compromisso selecionado em uma reunião e enviamos aos participantes especificados.

Este método introduzirá uma VBA para converter reuniões selecionadas em compromissos no Outlook. Por favor, faça o seguinte:

1. Alterne para a visualização do Calendário e clique para selecionar as reuniões que você deseja converter em um compromisso no Calendário.

2. Pressione simultaneamente as teclas "Alt" + "F11" para abrir a janela Microsoft Visual Basic for Applications.

3. Clique em "Inserir" > "Módulo", e depois cole o código VBA abaixo na nova janela Módulo.

VBA: Converter reunião em compromissos no Outlook

Sub Meetings2Appointments()
Dim sWindowType As String
Dim oItem As Object

sWindowType = TypeName(Application.ActiveWindow)
Select Case sWindowType
Case "Explorer"
If Application.ActiveExplorer.Selection.Count > 0 Then
For Each oItem In Application.ActiveExplorer.Selection
Debug.Print oItem.Class
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
Next
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
End Select
Set oItem = Nothing
End Sub

Sub Meeting2Appointment(oMeeting As Outlook.AppointmentItem)
With oMeeting
' remove all recipients
Do Until .Recipients.Count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub

4. Pressione a tecla "F5" ou clique no botão "Executar" para executar esta VBA.

E agora todas as reuniões selecionadas foram convertidas em compromissos no Outlook.

Ocultar todos os compromissos do calendário no Outlook

Ocultar compromissos de aniversário no calendário no Outlook