Modifier un rendez-vous en réunion dans Outlook

Changer les réunions en rendez-vous dans Outlook

Cette méthode vous guidera tout au long de l'invitation des participants à une réunion pour un rendez-vous et convertira le rendez-vous en réunion dans Outlook.

1. Passez à la vue Calendrier, cliquez avec le bouton droit sur le rendez-vous que vous allez convertir en réunion dans Calendrier, puis sélectionnez le Inviter des participants dans le menu contextuel. Voir la capture d'écran:

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

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

Remarque: Tenir le Ctrl touche, vous pouvez sélectionner plusieurs contacts non adjacents en cliquant sur chaque contact; tenant le Shift , vous pouvez sélectionner plusieurs contacts adjacents en cliquant sur le premier contact et le dernier.

4. Maintenant que vous revenez à la fenêtre de la réunion, veuillez modifier 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 envoyé déjà aux participants spécifiés.

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

1. Passez à la vue Calendrier et cliquez pour sélectionner les réunions que vous convertirez en rendez-vous dans Calendrier.

2. presse autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module.

VBA: convertir la 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. appuie sur le F5 ou cliquez sur la Courir bouton pour excuser ce 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