Come si trasforma un appuntamento in una riunione e viceversa in Outlook?

Trasforma un appuntamento in una riunione in Outlook

Trasforma le riunioni in appuntamenti in Outlook

Questo metodo ti guiderà passo passo nell’invitare partecipanti a un appuntamento e nel trasformarlo in una riunione in Outlook.

1. Passa alla visualizzazione Calendario, fai clic con il tasto destro sull’appuntamento che vuoi trasformare in una riunione e seleziona «Invita partecipanti» dal menu contestuale. Vedi screenshot:

2. Si apre ora una finestra di riunione con i dati dell’appuntamento selezionato. Clicca sul pulsante «A». Vedi screenshot:

3. Nella finestra di dialogo «Seleziona partecipanti e risorse» che compare, seleziona i contatti che desideri invitare come partecipanti, fai clic sui pulsanti «Obbligatorio», «Facoltativo» o «Risorse» in base alle tue esigenze e poi sul pulsante «OK». Vedi screenshot sopra:

Nota: tenendo premuto il tasto «Ctrl», puoi selezionare più contatti non adiacenti facendo clic su ciascuno di essi; tenendo premuto il tasto «Shift», puoi selezionare una serie di contatti adiacenti facendo clic sul primo e sull’ultimo.

4. Ora torna alla finestra della riunione: aggiorna i dettagli dell’incontro e fai clic sul pulsante «Invia».

Finora abbiamo già convertito l’appuntamento selezionato in una riunione e inviato l’invito ai partecipanti indicati.

Questo metodo illustra una macro VBA per trasformare le riunioni selezionate in appuntamenti in Outlook. Segui questi passaggi:

1. Passa alla visualizzazione Calendario e fai clic per selezionare le riunioni che vuoi trasformare in un appuntamento.

2. Premi contemporaneamente i tasti «Alt» + «F11» per aprire la finestra di Microsoft Visual Basic, Applications Edition.

3. Fai clic su «Inserisci» > «Modulo» e incolla il seguente codice VBA nella nuova finestra del modulo.

VBA: Converti una riunione in appuntamenti in 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. Premi il tasto «F5» o fai clic sul pulsante «Esegui» per avviare questa macro VBA.

Ora tutte le riunioni selezionate sono state trasformate in appuntamenti in Outlook.

Nascondi tutti gli appuntamenti dal calendario in Outlook

Nascondi gli appuntamenti di compleanno dal calendario in Outlook