Como converter um compromisso numa reunião e vice-versa no Outlook?

Converter um compromisso numa reunião no Outlook

Converter reuniões em compromissos no Outlook

Este método irá guiá-lo(a) a convidar participantes para um compromisso e a transformar esse compromisso numa reunião no Outlook.

1. Mude para a vista Calendário, clique com o botão direito do rato no compromisso que pretende transformar numa reunião e selecione «Convidar Participantes» no menu de contexto. Veja a captura de ecrã:

2. Agora, abre-se uma janela de reunião com o conteúdo do compromisso selecionado. Clique no botão «Para». Veja a captura de ecrã:

3. Na caixa de diálogo «Selecionar Participantes e Recursos» que surge, selecione os contactos que pretende convidar como participantes, clique no botão «Necessário», «Opcional» ou «Recursos», conforme necessário, e depois clique em «OK». Veja a captura de ecrã acima:

Nota: Mantenha a tecla «Ctrl» premida para selecionar vários contactos não adjacentes, clicando em cada um; ou mantenha a tecla «Shift» premida para selecionar vários contactos adjacentes, clicando no primeiro e no último contacto.

4. Regresse agora à janela da reunião, edite o conteúdo da reunião e clique no botão «Enviar».

Até agora, já convertemos o compromisso selecionado numa reunião e enviamos o convite aos participantes indicados.

Este método apresenta um código VBA para converter reuniões selecionadas em compromissos no Outlook. Siga os passos abaixo:

1. Mude para a vista Calendário e clique para selecionar as reuniões que pretende transformar num compromisso.

2. Prima simultaneamente as teclas «Alt» + «F11» para abrir a janela do Microsoft Visual Basic for Applications.

3. Clique em «Inserir» > «Módulo» e cole o código VBA abaixo na nova janela do módulo.

VBA: Converter reuniões 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. Prima a tecla «F5» ou clique no botão «Executar» para colocar este código VBA em ação.

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 do calendário no Outlook