Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1343 connectés 

  FORUM HardWare.fr
  Programmation
  HTML/CSS

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°735747
xpoulet
apt-get install poolaÿ
Posté le 24-05-2004 à 11:17:51  profilanswer
 

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

mood
Publicité
Posté le 24-05-2004 à 11:17:51  profilanswer
 

n°735851
xpoulet
apt-get install poolaÿ
Posté le 24-05-2004 à 11:57:25  profilanswer
 

:bounce:

n°735954
xpoulet
apt-get install poolaÿ
Posté le 24-05-2004 à 13:11:33  profilanswer
 

:)

n°736163
xpoulet
apt-get install poolaÿ
Posté le 24-05-2004 à 14:46:48  profilanswer
 

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
n°736261
xpoulet
apt-get install poolaÿ
Posté le 24-05-2004 à 15:19:13  profilanswer
 

ou de MAPI ?

n°736541
xpoulet
apt-get install poolaÿ
Posté le 24-05-2004 à 17:40:16  profilanswer
 

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

n°736556
Flyman30
Posté le 24-05-2004 à 17:57:01  profilanswer
 

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

n°736561
yeffries
Posté le 24-05-2004 à 18:04:20  profilanswer
 

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

n°736591
xpoulet
apt-get install poolaÿ
Posté le 24-05-2004 à 19:02:27  profilanswer
 

c'est pas une raison :o
 
:)


Message édité par xpoulet le 24-05-2004 à 19:02:39
n°736622
HappyHarry
Posté le 24-05-2004 à 19:42:02  profilanswer
 

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

mood
Publicité
Posté le 24-05-2004 à 19:42:02  profilanswer
 

n°737462
xpoulet
apt-get install poolaÿ
Posté le 25-05-2004 à 12:00:44  profilanswer
 

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
n°737517
T509
$job-&gt;GetJob(now)
Posté le 25-05-2004 à 12:37:06  profilanswer
 

de rien ;)


---------------
fermez vos topics résolus avec le tag [Résolu] en fin de titre. Merci !
n°737554
lorill
Posté le 25-05-2004 à 12:57:43  profilanswer
 

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

n°737578
lorill
Posté le 25-05-2004 à 13:08:13  profilanswer
 
n°737637
xpoulet
apt-get install poolaÿ
Posté le 25-05-2004 à 13:51:54  profilanswer
 

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 :'(

n°737665
HappyHarry
Posté le 25-05-2004 à 14:05:23  profilanswer
 

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
n°737711
xpoulet
apt-get install poolaÿ
Posté le 25-05-2004 à 14:18:20  profilanswer
 

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 :)

n°738030
xpoulet
apt-get install poolaÿ
Posté le 25-05-2004 à 16:26:23  profilanswer
 

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 ?  

n°738633
xpoulet
apt-get install poolaÿ
Posté le 25-05-2004 à 22:31:23  profilanswer
 

:bounce:


---------------
Preuve est faite que visages dévots et pieuses actions nous servent à enrober de sucre le diable lui-même.
n°738948
xpoulet
apt-get install poolaÿ
Posté le 26-05-2004 à 08:08:03  profilanswer
 

:hello:
 
:bounce: du matin


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  HTML/CSS

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

 

Sujets relatifs
Envoyer un mail par outlook depuis asp ???comment faire apparaitre 1 code dans 1 page html
[HTML] agrandir un champ texte multi-lignes sans barre de défilement[CSS] <-- 2 questions -> [HTML]
récupérer un autre xml dans un xsl pour travailler sur 2 xml[Python] charset, coding, accents et page html
[Java] Récupérer un fichier sur un site et l'enregistrer localement ?[HTML] Problème balise META et FireFox 0.8
[PHP/HTML] Sélectionner un item par défaut dans une liste déroulante[Html/Php]
Plus de sujets relatifs à : [HTML - Outlook] Récupérer un Rendez-vous ?

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.087 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR