Alterar um compromisso para uma reunião no Outlook

Alterar reuniões para compromissos no Outlook

Este método orientará você no processo de convite aos participantes da reunião para um compromisso e converterá o compromisso em uma reunião no Outlook.

1. Mude para a visualização do Calendário, clique com o botão direito do mouse no compromisso que você converterá em uma reunião no Calendário e selecione o Convidar participantes no menu do botão direito. Veja a imagem:

2. Agora uma janela de reunião está se abrindo com o conteúdo do compromisso selecionado. Por favor clique no Para botão. Veja a imagem:

3. Na janela pop-up Selecionar participantes e recursos, selecione os contatos que você convidará como participantes e clique em Exigido/Opcional/Recursos botão conforme necessário e clique no OK botão. Veja a imagem acima:

Nota: Segurando o Ctrl , você pode selecionar vários contatos não adjacentes clicando em cada contato; segurando o Shift , você pode selecionar vários 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 ENVIAR botão.

Até agora, convertemos o compromisso selecionado em uma reunião e já o enviamos para os participantes especificados.

Este método apresentará um VBA para converter reuniões selecionadas em compromissos no Outlook. Faça o seguinte:

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

2. Pressione outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.

3. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na nova janela do 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. aperte o F5 ou clique no Execute botão para desculpar este VBA.

E agora todas as reuniões selecionadas são convertidas em compromissos no Outlook.

Ocultar todos os compromissos do calendário no Outlook

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