Comment transformer un rendez-vous en réunion dans Outlook, et inversement ?

Transformer un rendez-vous en réunion dans Outlook

Transformer des réunions en rendez-vous dans Outlook

Cette méthode vous accompagne pas à pas pour inviter des participants à une réunion depuis un rendez-vous et transformer ce rendez-vous en réunion dans Outlook.

1. Passez à la vue Calendrier, cliquez avec le bouton droit sur le rendez-vous que vous souhaitez transformer en réunion, puis choisissez « Inviter des participants » dans le menu contextuel. Voir la capture d’écran :

2. Une fenêtre de réunion s’ouvre désormais, affichant le contenu du rendez-vous sélectionné. Cliquez sur le bouton « À ». Voir la capture d’écran :

3. Dans la boîte de dialogue « Sélectionner les participants et les ressources » qui s’ouvre, sélectionnez les contacts que vous souhaitez inviter en tant que participants, cliquez sur le bouton « Requis », « Facultatif » ou « Ressources » selon vos besoins, puis validez par « OK ». Voir la capture d’écran ci-dessus.

Remarque : En maintenant la touche « Ctrl », vous pouvez sélectionner plusieurs contacts non adjacents en cliquant sur chacun d’eux ; en maintenant la touche « Maj » (Shift), vous pouvez sélectionner plusieurs contacts adjacents en cliquant sur le premier contact et la dernière cellule.

4. Vous êtes de retour dans la fenêtre de réunion. Modifiez le contenu de la réunion, puis cliquez sur le bouton « Envoyer ».

Nous avons ainsi transformé le rendez-vous sélectionné en réunion et l’avons déjà envoyée aux participants indiqués.

Cette méthode vous présente une macro VBA permettant de transformer les réunions sélectionnées en rendez-vous dans Outlook. Suivez ces étapes :

1. Basculez vers la vue Calendrier et cliquez pour sélectionner les réunions que vous souhaitez transformer en rendez-vous.

2. Appuyez simultanément sur les touches « Alt » + « F11 » pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur « Insertion » > « Module », puis collez le code VBA ci-dessous dans la nouvelle fenêtre qui s’ouvre.

VBA : Convertir une réunion en rendez-vous dans 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. Appuyez sur la touche « F5 » ou cliquez sur le bouton « Exécuter » pour lancer cette macro VBA.

Toutes les réunions sélectionnées ont désormais été converties en rendez-vous dans Outlook.

Masquer tous les rendez-vous du calendrier dans Outlook

Masquer les rendez-vous d’anniversaire du calendrier dans Outlook