Comment transformer un rendez-vous en réunion et vice versa dans Outlook ?

Transformer un rendez-vous en réunion dans Outlook

Transformer des réunions en rendez-vous dans Outlook

Cette méthode vous guidera à travers l'invitation des participants à une réunion pour un rendez-vous et la conversion du rendez-vous en réunion dans Outlook.

1. Passez à la vue Calendrier, faites un clic droit sur le rendez-vous que vous souhaitez convertir en réunion dans le Calendrier, puis sélectionnez "Inviter des participants" dans le menu contextuel. Voir capture d'écran :

2. Une fenêtre de réunion s'ouvre maintenant avec le contenu du rendez-vous sélectionné. Cliquez sur le bouton "À". Voir capture d'écran :

3. Dans la boîte de dialogue Sélectionner des participants et des ressources qui apparaît, sélectionnez les contacts que vous souhaitez inviter en tant que participants, cliquez sur le bouton "Requis"/"Optionnel"/"Ressources" selon vos besoins, puis cliquez sur le bouton "OK". Voir capture d'écran ci-dessus :

Remarque : En maintenant la touche "Ctrl", vous pouvez sélectionner plusieurs contacts non adjacents en cliquant sur chaque contact ; en maintenant la touche "Maj", vous pouvez sélectionner plusieurs contacts adjacents en cliquant sur le premier contact et le dernier.

4. Maintenant, vous revenez à la fenêtre de réunion, éditez le contenu de la réunion et cliquez sur le bouton "Envoyer".

Jusqu'à présent, nous avons converti le rendez-vous sélectionné en réunion et l'avons envoyé aux participants spécifiés.

Cette méthode présente une macro VBA pour convertir les réunions sélectionnées en rendez-vous dans Outlook. Veuillez procéder comme suit :

1. Passez à la vue Calendrier, puis cliquez pour sélectionner les réunions que vous souhaitez convertir en rendez-vous dans le Calendrier.

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

3. Cliquez sur "Insérer" > "Module", puis collez le code VBA ci-dessous dans la nouvelle fenêtre Module.

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 exécuter cette macro VBA.

Et maintenant, toutes les réunions sélectionnées sont converties en rendez-vous dans Outlook.

Masquer tous les rendez-vous du calendrier dans Outlook

Masquer les rendez-vous d'anniversaire dans le calendrier dans Outlook