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

[zephir94]

Bonjour à tous,

Le but est dans un calendrier partagé Outlook qui contient mon calendrier et pour les tests deux autres qui sont : test et dede, pouvoir depuis Excel y écrire des rendez-vous.

J'ai beaucoup progressé et j'arrive maintenant à écrire dans celui de mon choix en utilisant

Set myTasks = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
    Set myFolder = myTasks.Folders(u)

U étant le numéro du calendrier ( 1 étant test et 2 dede )
donc j'ai modifié mon code comme ceci

Sub AjoutRDVCalendrier()
    'déclaration des variables
    Dim oOutlook As Outlook.Application
    Dim oAppointment As Outlook.AppointmentItem
    Dim namespaceOutlook As Outlook.Namespace
    Dim DossierCalendrier As Outlook.MAPIFolder
    Dim myTasks As Outlook.folder
    Dim myFolder As Outlook.folder
    Dim u
    'gestion d'erreurs
    On Error GoTo Err_Execution
    'on crée ensuite les objets
    u = 2
    Set oOutlook = CreateObject("Outlook.Application")
    Set namespaceOutlook = oOutlook.GetNamespace("MAPI")
    Set myTasks = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
    Set myFolder = myTasks.Folders(u)
    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 = "30/07/2017 12:00:00"
        .Duration = 180 'durée de rdv, en minutes
        .Subject = "Réunion avec la prox olympique club" 'Sujet du rdv
        .Body = "" 'corps du texte de la réunion
        .Location = "chez les meilleurs" 'Lieu du rdv
        'on sauvegarde et ferme
        .Save
        .Close (olSave)
    End With
    Set DossierCalendrier = myFolder
    'on crée un nouveau rendez-vous
    Set oAppointment = DossierCalendrier.items.Add
    'on renseigne ensuite les principaux paramètres
    With oAppointment
        .Start = "30/07/2017 12:00:00"
        .Duration = 180 'durée de rdv, en minutes
        .Subject = "Réunion avec la prox olympique club" 'Sujet du rdv
        .Body = "" 'corps du texte de la réunion
        .Location = "chez les meilleurs" '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

en choisissant 1 ou 2 j'écris bien dans mon calendrier ainsi que dans le calendrier test ou dede en fonction de ma variable U

Ce que je voudrais maintenant c'est arriver à trouver le nombre de folder soit ma variable "dernierfolder" que contient le calendrier, cela me permettrait de pouvoir faire une boucle pour sélectionner en fonction d'une autre macro " mavariable" le bon calendrier partagé

 dernierfolder = 2
mavariable = "dede"
For d = 1 To dernierfolder Step 1
Set myFolder = myTasks.Folders(d)
If myFolder = mavariable Then
Set myFolder = myTasks.Folders(d)
Exit For
End If
   Next

Cette boucle fonctionne si je détermine la variable dernierfolder manuellement,

Merci par avance pour vos aides

Bien Amicalement

 

[zephir94]

J'ai trouvé

dernierfolder = myTasks.Folders.Count

et incéré dans ma boucle cela marche parfaitement car j'ai rajouté deux calendriers et dernierfolder est proportionnel au nombre de calendriers ! youpiii

Set myTasks = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
    dernierfolder = myTasks.Folders.Count
    mavariable = "titi" ' qui vient d'une autre macro
  For d = 1 To dernierfolder Step 1
Set myFolder = myTasks.Folders(d)
If myFolder = mavariable Then
Set myFolder = myTasks.Folders(d)
Exit For
End If
  Next

j'ai rajouté deux autres calendriers et dernierFolder est égale à 4 !

Je continu mon code et reviens vers vous après tests demain en réel où se trouve le fichier, car le but pour moi serait maintenant de connaître l'adresse Email qui est associée au calendrier sélectionné

Si vous avez une piste ou une idée pour récupérer le mail ?

Bonne soirée à tous

Bien amicalement