[HTML - Outlook] Récupérer un Rendez-vous ?

Récupérer un Rendez-vous ? [HTML - Outlook] - HTML/CSS - Programmation

Marsh Posté le 24-05-2004 à 11:17:51    

bonjour :hello:
 
je dois faire une page d'accueuil intranet qui permette d'afficher les rendez vous d'un agenda (calendrier) Outlook.
Cet agenda est partagé au moyen d'un serveur Exchange.
 
je ne sais pas comment récupérer les champs "Date début", "Date fin", "Objet" d'un RDV pris sur l'agenda Outlook pour les afficher sur une page html.
 
Auriez vous un lien ou un p'ti bout de code pouvant m'aider
 
Merci d'avance de votre aide :jap:
 
PS: la page sera html ou asp, mais pas de php dispo

Reply

Marsh Posté le 24-05-2004 à 11:17:51   

Reply

Marsh Posté le 24-05-2004 à 11:57:25    

:bounce:

Reply

Marsh Posté le 24-05-2004 à 13:11:33    

:)

Reply

Marsh Posté le 24-05-2004 à 14:46:48    

29 vues et pas une seule idée ?
 
EDIT: faut il absoluement se servir d'asp.net ?


Message édité par xpoulet le 24-05-2004 à 14:47:58
Reply

Marsh Posté le 24-05-2004 à 15:19:13    

ou de MAPI ?

Reply

Marsh Posté le 24-05-2004 à 17:40:16    

50 vues  [:zytrayaisse]  
et aucune réponse ou quelconque indication  :sweat:

Reply

Marsh Posté le 24-05-2004 à 17:57:01    

C'est p'tet qu'on ne sait pas  :sweat:

Reply

Marsh Posté le 24-05-2004 à 18:04:20    

Tu m'enleves les mots de la bouche, Flyman30.  :)

Reply

Marsh Posté le 24-05-2004 à 19:02:27    

c'est pas une raison :o
 
:)


Message édité par xpoulet le 24-05-2004 à 19:02:39
Reply

Marsh Posté le 24-05-2004 à 19:42:02    

solution possible :
 
web service sur le serveur exchange, qui utilise un composant com existant pour interroger Exchange

Reply

Marsh Posté le 24-05-2004 à 19:42:02   

Reply

Marsh Posté le 25-05-2004 à 12:00:44    

bon je suis arrivé à quelquechose qui me satisfait :)
 
voili
 

Code :
  1. ' on dimensionne les variables
  2. Dim objOutlook
  3. Dim objNameSpace
  4.    Dim objFolder
  5.    Dim MyItems
  6.    Dim CurrentAppointment
  7.    Dim strOutput
  9. ' déclaration et positionnement des variables 
  10.    Const olMailItem = 0
  11.    Const olTaskItem = 3
  12.    Const olFolderTasks = 13
  13.    Const olFolderCalender = 9
  14.  
  15. ' Création des items Outlook, Namespace, Folder Objects
  16.    Set objOutlook = CreateObject("Outlook.application" )
  17.    Set objNameSpace = objOutlook.GetNameSpace("MAPI" )
  18.    Set objFolder = objNameSpace.GetDefaultFolder(olFolderCalender)
  19.    Set MyItems = objFolder.Items
  20.  
  21.    dtNextWeek = DateAdd("d", +7, date)
  23. ' on initialise le compteur
  24.    icount = 0
  26. ' pour chaque RDV
  27.    For Each CurrentAppointment in MyItems
  29. ' si la date du RDV est comprise entre la date du jour et la date du jour +7
  30.    If CurrentAppointment.Start > date And CurrentAppointment.Start <= dtNextWeek Then
  31.  ' on incrémente le compteur
  32.       icount = icount + 1
  34.  ' on affiche: le numero du RDV, sa date et heure de commencement, son sujet
  35.       strOutput = strOutput & icount & " -     le " & CurrentAppointment.Start & vbTab & CurrentAppointment.Subject &  vbCRLF
  36.    End If
  37. Next
  38.  
  39. ' on ecrit le resultat  strOutput dans un fichier texte
  40. Set FSys = CreateObject("Scripting.FileSystemObject" )
  41. Set MonFic = FSys.CreateTextFile("c:\windows\bureau\fichier.txt" )
  42. With MonFic
  43.  .write strOutput
  44. End With
  46. ' on ferme tout
  47.    Set objFolder = Nothing
  48.    Set objNameSpace = Nothing
  49.    Set objOutlook = Nothing
  50.    Set objMsg = Nothing


 
Merci à tous  :jap:


Message édité par xpoulet le 25-05-2004 à 12:01:57
Reply

Marsh Posté le 25-05-2004 à 12:37:06    

de rien ;)


---------------
fermez vos topics résolus avec le tag [Résolu] en fin de titre. Merci !
Reply

Marsh Posté le 25-05-2004 à 12:57:43    

interessant... en passant, tu saurais pas ou je peux trouver toutes les propriétés de CurrentAppointment ?

Reply

Marsh Posté le 25-05-2004 à 13:08:13    

Reply

Marsh Posté le 25-05-2004 à 13:51:54    

bon finalement, mon code ne fonctionne pas comme voulu.
Il ne marche qu'en local.
 
J'aurai voulu qu'il se réfère au calendrier partagé par exchange "toto" et non au calendrier du client  
 
Si quelqu'un peut m'éclairer svp :'(

Reply

Marsh Posté le 25-05-2004 à 14:05:23    

xPOULET a écrit :

bon finalement, mon code ne fonctionne pas comme voulu.
Il ne marche qu'en local.
 
J'aurai voulu qu'il se réfère au calendrier partagé par exchange "toto" et non au calendrier du client  
 
Si quelqu'un peut m'éclairer svp :'(


 
ouais ben forcément puisque tu attaques outlook en local et pas exchange directement :sarcastic:
 
j'ai donné une piste éventuelle plus haut


Message édité par HappyHarry le 25-05-2004 à 14:05:37
Reply

Marsh Posté le 25-05-2004 à 14:18:20    

j'ai bien lu ton post, mais ça fait 1 semaine que je m'essaye au VB et je n'ai pas compris ton conseil :)

Reply

Marsh Posté le 25-05-2004 à 16:26:23    

voici une portion de mon code:
 

Code :
  1. Set objOutlook = CreateObject("Outlook.application" )
  2.               Set objNameSpace = objOutlook.GetNameSpace("MAPI" )
  3.               Set objFolder = objNameSpace.GetDefaultFolder(olFolderCalender)
  4.               Set MyItems = objFolder.Items
  6.  
  7. dtNextWeek = DateAdd("d", +7, date)
  8. icount = 0
  13.               For Each CurrentAppointment in MyItems
  14.                If CurrentAppointment.Start <=  dtNextWeek And CurrentAppointment.Start >= Date Then
  15. strOutput = strOutput & ". " & CurrentAppointment.Start & vbTab & CurrentAppointment.Subject
  17.  if len(CurrentAppointment.Body) > 0 then
  18.                            strOutput = strOutput & "<blockquote><b>Notes: </b>" & CurrentAppointment.body & "</blockquote>" &  vbCrLF & vbCrLF
  19.                       else
  20.                            strOutput = strOutput & vbCrLf
  21.                     end if
  22.                End If
  24.          Next
  30. ' on ecrit le resultat  strOutput dans un fichier texte
  31. Set FSys = CreateObject("Scripting.FileSystemObject" )
  32. Set MonFic = FSys.CreateTextFile("c:\windows\bureau\fichier.txt" )
  34. 'Pour écrire dans le fichier texte
  35. With MonFic
  36. .writeLine strOutput
  37. End With


 
 
le fichier généré est le suivant:  
 

. 27/05/04 13:00:00 jeudi 1
. 27/05/04 14:00:00 jeudi 2
. 28/05/04 12:30:00 Vendredi 3
. 26/05/04 12:30:00 Mercredi 4
. 26/05/04 10:30:00 Mercredi 6


 
pourquoi est-il ordonné ainsi ?
j'aimerai le classer par date mais je n'y arrive pas ... comment faire ?  

Reply

Marsh Posté le 25-05-2004 à 22:31:23    

:bounce:


---------------
Preuve est faite que visages dévots et pieuses actions nous servent à enrober de sucre le diable lui-même.
Reply

Marsh Posté le 26-05-2004 à 08:08:03    

:hello:
 
:bounce: du matin

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed