Discussion :

[scoubi77]

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 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"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
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

[scoubi77]

J'ai progressé depuis cette question que j'ai posé,

En effet j'ai réussi à atteindre le premier calendrier partagé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Set myTasks = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
    Set myFolder = myTasks.Folders(1)

le nombre dans folder étant le calendrier à atteindre

J'ai donc crée 2 calendriers partagés et modifié mon code comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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

maintenant je voudrais connaitre le nombre de folder que contient mon calendrier partagé, ce qui me permettrait de trouver son nom dans une boucle et de déterminer la valeur de ma variable U.

soit un code qui ressemblerait à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Set myTasks = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
 
for d = 1 to  dernierfolder step 1
Set myFolder = myTasks.Folders(d)
if myFolder =mavariable ( nom de ce que je recherche ) then
set myFolder = myTasks.Folders(d)
exit for
end if
next

Ce qui me manque serait dernierfloder, une idée de piste pour m'aider ?

Merci par avance pour vos aides

[scoubi77]

J'ai trouvé pour ceux que ça intéresse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set myTasks = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
dernierfolder = myTasks.Folders.Count
 Set myFolder = myTasks.Folders(u)

soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 dernierfolder = myTasks.Folders.Count

Bonne soirée à tous

[heyes68]

Bonjour, je suis également à la recherche d'une macro capable d'écrire un rdv dans un calendrier partagé mais je n'arrive pas à trouvé le nom de ce calendrier.
Etant novice en programmation, pouvez vous me donner votre code complet qui à priori est capable de le trouvé?

Merci d'avance.