Discussion :

[Fishes83]

Bonjour à tous

Je cherche à créer un bout de code en VBA sous Access qui permette de créer un rendez-vous sur Outlook 2003. J'ai réussi à créer un rendez-vous "basique" mais il y a 2 questions que je me pose :

- Par quelle propriété désigner le calendrier qu'on veut utiliser quand ils sont tous partagés ? Donc sans utiliser celui par défaut de la machine...

- Par quelle propriété définir la couleur de l'événement ? (Label dans la version anglaise)

Merci d'avance.

Code actuel :

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
 
     Dim outobj As Outlook.Application
     Dim outappt As Outlook.AppointmentItem
     Set outobj = CreateObject("outlook.application")
     Set outappt = outobj.CreateItem(olAppointmentItem)
     'Ici je voudrais choisir sur quel calendrier l'ajouter
     With outappt
             .Start = Now
             .Duration = 10000 ' En minute
             .Subject = "SUJET"
             .Body = " LE TEXTE DU RENDEZ-VOUS "
             .Location = "L'EMPLACEMENT"
             .AllDayEvent = True 
             .ReminderSet = False
             .Save
             .label="Birthday" ? ' (la propriété n'existe pas)
        End With
        Set outobj = Nothing

[Tofalu]

Bonjour

Voici un exemple plus complet qui traite le choix du calendrier.

http://access.developpez.com/sources...endrierOutlook

Malheureusement, il ne traite pas la couleur, mais la propriété correspondante doit être assez explicite dans l'explorateur d'objet

[Fishes83]

Merci, c'est déjà un bon début (pour le calendrier partagé, pour la couleur c'est encore un mystère).

Mais j'ai un plantage sur la ligne suivante :

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
 
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim olns As Outlook.NameSpace
Dim MycalendarFolder As Outlook.MAPIFolder
Dim MyFolder As Outlook.Items
 
Set objOutlook = CreateObject("Outlook.Application")
Set olns = objOutlook.GetNamespace("MAPI")
Set MycalendarFolder = olns.GetDefaultFolder(olFolderCalendar)
'Selectionne le calendrier
'Selectionne le calendrier
If PCalendrier = "" Then
Set MyFolder = MycalendarFolder.Items
Else
Set MyFolder = MycalendarFolder.Folders(PCalendrier).Items '<--------- ICI
'J'ai une msgbox avec "An object cannot be found"
'Dans la variable PCalendrier j'ai "tech1" qui correspond au nom du calendrier partagé
'Dans la variable MyCalendarFolder, j'ai "Calendar"
End If
Set objAppt = MyFolder.Add
'Cree le rendez vous

Tu sais d'où ça peut venir ?

Edit: et non, pour la couleur c'est pas explicite justement, j'ai déjà testé un bon paquet de propriétés, mais sans succès

[Tofalu]

Quelle version d'outlook ?

Peut être avec un truc genre :

Set MyFolder = olns.Folders("Dossiers personnels").Folders(PCalendrier).Items '<--------- ICI

[Fishes83]

Non, ça ne fonctionne pas non plus

Outlook 2003 pour la version.

Mais pour le "Dossier Personnel", il correspond à quoi exactement ? Que doit-on y mettre ?

Pour créer un RDV dans mon calendrier, je n'ai pas de problèmes (hormis la couleur de l'événement). Ca vient juste du calendrier partagé que je ne sais pas comment atteindre...

[Fishes83]

up