-------------------------------
Réponse au message :
-------------------------------
>
> Moi aussi suis tres interessé par récuperer le calendrier outlook dans access, objet date de début heure de début, heure de fin. Je vois que vous avez quelques choses la dessus et JE SUIS TRES INTERESSE CAR JE FAIS CETTE MANIP D EXPORTATION DEPUIS 2-3 ANS. MERCI bcp
> DS LE CODE QUE G copié il me marque set Itemcal non defini ?
>
> Je suis en VBA alors c ptet pour ça !
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > ok, bon ben j'ai ce qu'il te faut mais c du vb, à toi de faire le portage VBA.
> >
> > Avec ca tu dois avoir les principaux objets et méthodes de pilotage outlook
> >
> >
> >
> > public dim calend ()
> >
> > dim OutApp as new outlook.application
> > Dim space As outlook.NameSpace
> > dim rdv as outlook.AppointmentItem
> > Dim calendar As outlook.MAPIFolder
> >
> > dim i as integer
> >
> > Set space = outapp.GetNamespace("MAPI")
> > Set calendar = space.GetDefaultFolder(olFolderCalendar)
> > Set itemcal = calendar.Items
> > Set rdv = itemcal.GetFirst
> >
> > For i = 1 To itemcal.Count
> > If rdv.AllDayEvent = False Then
> > msgbox Mid(rdv.Start, 1, 10)
> > msgbox Mid(rdv.Start, 12, 5) & " / " & Mid(rdv.End, 12, 5)
> > msgbox rdv.Subject
> > msgbox rdv.Organizer
> > msgbox rdv.RequiredAttendees
> > msgbox rdv.Location
> > End If
> >
> > Set rdv = itemcal.GetNext
> > Next
> >
> > outapp.quit
> >
> > end sub
> > |
> >
> > Si tu as d'autres besoins, hésites pas
> >
> >
> >
> >
> >
> >
SOHET Morgan> > C.N.P.O. - Le Belloy
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour. je voudrais des infos sur la maniere de recuperer les rendez-vous saisis dans le calendrier d'outlook en vba.
> > > (en fait la liste des objets et methodes necessaires me serait d'une aide inestimable ;-) )
> > >
> > > libop
> >
>