Calendrier Outlook et VBA

Signaler
Messages postés
18
Date d'inscription
vendredi 11 janvier 2002
Statut
Membre
Dernière intervention
14 décembre 2004
-
Messages postés
43
Date d'inscription
jeudi 9 décembre 2004
Statut
Membre
Dernière intervention
11 octobre 2013
-
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

6 réponses

Messages postés
76
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
3 mai 2005

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
Messages postés
1
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
21 mars 2003

Je suis très intéressé, par ces codes car je dois aussi récupérer les rendez-vous avec les différents objets associés d'un calendrier outlook. J'ai essayé ton code Sohet Morgan mais ca ne marche pas pour les objets récurrents (ou périodiques). En fait il ne m'affiche que les objets "maitres"...
Si tu as des détails la-dessus
Messages postés
3
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
16 mai 2003

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 !
Messages postés
3
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
16 mai 2003

-------------------------------
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
> >
>
Messages postés
4
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
17 août 2004

As tu réussi a récupéré aussi tous les renseignements du contact avec qui t'a pris rdv?
Messages postés
43
Date d'inscription
jeudi 9 décembre 2004
Statut
Membre
Dernière intervention
11 octobre 2013

Salut msohet,

je développe sous vb.net, et je cherche à créer une appli "communicante".
Je peux pour l'instant créer des rendez vous, taches contacts, ou récupérer des infos concernant ces objets.
J'aimerai pouvoir créer des rdv, contact, taches pour mes collègues, depuis mon poste !
As tu une idée ?
(à savoir, je suis dans un domaine Active directory 2003, avec serveur exchange 2003)
merci