Modificare 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 convertirà l'appuntamento in una riunione in Outlook.

1. Passare alla visualizzazione Calendario, fare clic con il pulsante destro del mouse sull'appuntamento da convertire in una riunione in Calendario, quindi selezionare il file Invita partecipanti dal menu di scelta rapida. Vedi screenshot:

2. Ora si sta aprendo una finestra della riunione con il contenuto dell'appuntamento selezionato. Fare clic su A pulsante. Vedi screenshot:

3. Nella finestra di dialogo Seleziona partecipanti e risorse che si apre, selezionare i contatti che inviterete come partecipanti, fare clic su Obbligatorio/Opzionale/Risorse pulsante di cui hai bisogno e fai clic su OK pulsante. Vedi screenshot sopra:

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

4. Ora torni alla finestra della riunione, modifica il contenuto della riunione e fai clic su Invia pulsante.

Finora abbiamo convertito l'appuntamento selezionato in una riunione e abbiamo già inviato ai partecipanti specificati.

Questo metodo introdurrà un VBA per convertire le riunioni selezionate in appuntamenti in Outlook. Si prega di fare quanto segue:

1. Passare alla visualizzazione Calendario e fare clic per selezionare le riunioni da convertire in appuntamento nel Calendario.

2. Stampa altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Moduli, quindi incolla sotto il codice VBA nella nuova finestra del modulo.

VBA: converti la 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 F5 o fare clic su Correre pulsante per scagionare questo VBA.

E ora tutte le riunioni selezionate vengono convertite in appuntamenti in Outlook.

Nascondi tutti gli appuntamenti dal calendario in Outlook

Nascondi gli appuntamenti di compleanno nel calendario in Outlook