Supprimer un RDV dans un calendrier Outlook partagé

[Florentine]

Bonjour,

J'ai crée une macro qui me permet de supprimer un RDV dans mon calendrier Outlook, maintenant j'aimerais que cette macro supprime un RDV dans un autre calendrier que le mien mais je ne sais pas comment intégrer le nom de la personne en question.

Voici le code actuel :

'procédure pour supprimer un rdv existant
Sub supprimeRDVCalendrier()


[FONT=Georgia]    'déclaration des variables[/FONT]


    Dim oOutlook As Outlook.Application


    Dim oAppointment As Outlook.AppointmentItem

    Dim namespaceOutlook As Outlook.Namespace


    Dim DossierCalendrier As Outlook.Folder

    'on déclare un objet collection qui va contenir tous les rdv correspondat aux critères de filtre


    Dim collectionAppointments As Outlook.Items


    Dim sFilter As String


    'Dim myRecipient As Outlook.Recipient


    'gestion d'erreurs


    On Error GoTo Err_Execution


    'on crée ensuite les objets


    Set oOutlook = CreateObject("Outlook.Application")


    Set namespaceOutlook = oOutlook.GetNamespace("MAPI")


    'Set myRecipient = namespaceOutlook.Recipient("Carla B")


    'définit le dossier calendrier


    Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)


    'on définit les critères de filtre


    'la date doit être formaté au format Outlook


    sFilter = "[Start] >= '" & Format(ActiveCell, "ddddd h:nn AMPM") & "'"


    'sFilter = "[Start] = ActiveCell'"


    strIncident = ActiveCell.Offset(0, -12).Value


    strMachine = ActiveCell.Offset(0, -8).Value


    strAtelier = ActiveCell.Offset(0, -9).Value


    strName = ActiveCell.Offset(0, -4).Value


    'on recupère tous les rdv correspondant aux critères avec la méthode restrict


    Set collectionAppointments = DossierCalendrier.Items.Restrict(sFilter)

    'boucle sur tous les rdv trouvés


    For Each oAppointment In collectionAppointments


        'si le sujet correspond on supprime le rdv


        If oAppointment.Subject = "Inter n°" & strIncident & " " & strMachine Then


            oAppointment.Delete


        End If
    Next

    'Libération des variables.


    Set oAppointment = Nothing


    Set oOutlook = Nothing

Fin_Execution:


    Exit Sub


Err_Execution:


    MsgBox Err.Description, vbExclamation


    Resume Fin_Execution


End Sub

Je vous remercie par avance pour aide.

Florentine