Come cambiare un appuntamento in riunione e viceversa in Outlook?

Cambia un appuntamento in una riunione in Outlook

Cambia le riunioni in appuntamenti in Outlook

Questo metodo ti guiderà attraverso l'invito dei partecipanti alla riunione per un appuntamento e la conversione dell'appuntamento in una riunione in Outlook.

1. Passa alla visualizzazione Calendario, fai clic con il tasto destro sull'appuntamento che vuoi convertire in una riunione nel Calendario e seleziona "Invita partecipanti" dal menu contestuale. Vedi screenshot:

2. Ora si aprirà una finestra della riunione con il contenuto dell'appuntamento selezionato. Fai clic sul pulsante "A". Vedi screenshot:

3. Nella finestra di dialogo Seleziona partecipanti e risorse che appare, seleziona i contatti che desideri invitare come partecipanti, fai clic sul pulsante "Obbligatorio"/"Facoltativo"/"Risorse" secondo necessità e poi sul pulsante "OK". Vedi lo screenshot sopra:

Nota: Tenendo premuto il tasto "Ctrl", puoi selezionare più contatti non adiacenti facendo clic su ciascun contatto; tenendo premuto il tasto "Shift", puoi selezionare più contatti adiacenti facendo clic sul primo e sull'ultimo contatto.

4. Ora sei tornato alla finestra della riunione, modifica il contenuto della riunione e fai clic sul pulsante "Invia".

Finora abbiamo convertito l'appuntamento selezionato in una riunione e l'abbiamo inviata ai partecipanti specificati.

Questo metodo introdurrà una macro VBA per convertire le riunioni selezionate in appuntamenti in Outlook. Procedi come segue:

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

2. Premi contemporaneamente i tasti "Alt" + "F11" per aprire la finestra Microsoft Visual Basic for Applications.

3. Clicca su "Inserisci" > "Modulo", quindi incolla il seguente codice VBA nella nuova finestra Modulo.

VBA: Converti riunioni 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 eseguire questa macro VBA.

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

Nascondere tutti gli appuntamenti dal calendario in Outlook

Nascondere gli appuntamenti di compleanno nel calendario in Outlook