Créer un rendez-vous dans un calendrier partagé Outlook

zephir94

XLDnaute Impliqué
Bonsoir à tous,

Je cherche vainement à écrire dans un calendrier partagé Outlook des réunions.
écrire dans le mien pas de soucis, mais je voudrais reporter ce rendez-vous crée dans le mien ainsi que dans celui de mon choix disponible dans la liste de mes partages.

Voici le code pour écrire dans le mien, qui est celui par défaut de mon compte soit "calendrier"

VB:
Sub AjoutRDVCalendrier()
   Dim oOutlook As Outlook.Application
    Dim oAppointment As Outlook.AppointmentItem
    Dim namespaceOutlook As Outlook.Namespace
    Dim DossierCalendrier As Outlook.MAPIFolder
    Dim gh
    On Error GoTo Err_Execution
    Set oOutlook = CreateObject("Outlook.Application")
   Set namespaceOutlook = oOutlook.GetNamespace("MAPI")
    'définit le dossier calendrier
    'GetDefaultFolder renvoit le calendrier du compte actif
    Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
    'on crée un nouveau rendez-vous
    Set oAppointment = DossierCalendrier.Items.Add
    'on renseigne ensuite les principaux paramètres
    With oAppointment
        .Start = "26/06/2017 08:30:00"
        .Duration = 380 'durée de rdv, en minutes
        .Subject = "mon RDV avec le grand dede"   'Sujet du rdv
        .Body = "test" 'corps du texte de la réunion
        .Location = "Paris" 'Lieu du rdv
        'on sauvegarde et ferme
        .Save
        .Close (olSave)
    End With
    '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 voudrais en fait par une boucle connaitre les autres calendriers partagés et copier le rendez-vous dans celui de mon choix en plus du mien.

Car
VB:
 Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)

Ne sélectionne que le mien,
je pensais rajouter pour inviter celui qui m'intéresse par :

VB:
With oAppointment
.MeetingStatus = olMeeting
            .Recipients.Add "moi@mail.com" 'indiquer les adresses mail des participants en les séparant par un ;
end with

Mais hélas sans succès !

je vous remercie par avance pour vos aides

Bien amicalement

Zephir
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL