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

  FORUM HardWare.fr
  Programmation
  HTML/CSS

  Mettre à jour outlook à partir d'une page Web

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Mettre à jour outlook à partir d'une page Web

n°373651
Zapco
Posté le 28-04-2003 à 00:29:32  profilanswer
 

Bonjour,
Je fais un site web pour une association et il y a un calendrier des évènements à venir. Je voulais savoir si il était possible de mettre à jour outlook via des commandes depuis une page web.
Il y a peu etre des fonctions en activeX ou en VBScript, mais j'en connais pas. Il y a surment un moyen vu qu'en VBScript on peut modifier la base de registre, il soit bien y avoir un truc pour mettre à jour outlook?

mood
Publicité
Posté le 28-04-2003 à 00:29:32  profilanswer
 

n°375048
Zapco
Posté le 28-04-2003 à 20:04:41  profilanswer
 

[:yoyoz]

n°375103
THE REAL S​MILEY
The Real Résistance!
Posté le 28-04-2003 à 21:28:55  profilanswer
 

Arrêtez moi si je fais une erreur, mais il me semble qu'il te faut un serveur exchange pour ça :/

n°375116
MagicBuzz
Posté le 28-04-2003 à 21:44:29  profilanswer
 

En effet, il faut un serveur exchange. Ensuite, il faudra tout simplement se connecter avec MAPI au serveur.
 
Sinon, peut-être en evoyant un mail de type "rendez-vous", mais je sais pas si on peu le faire avec un serveur de mails non exchange.

n°375118
THE REAL S​MILEY
The Real Résistance!
Posté le 28-04-2003 à 21:46:58  profilanswer
 

MagicBuzz a écrit :

En effet, il faut un serveur exchange. Ensuite, il faudra tout simplement se connecter avec MAPI au serveur.
 
Sinon, peut-être en evoyant un mail de type "rendez-vous", mais je sais pas si on peu le faire avec un serveur de mails non exchange.


IMAP :D à moins que ton serveur Exchange te serve à faire des itinéraires :lol:

n°375121
MagicBuzz
Posté le 28-04-2003 à 21:50:23  profilanswer
 


MAPI
 
See definition for: Messaging API (MAPI)


 
:p
 
C'est le nom de l'objet qu'on utilise en VB en tout cas :fuck:
 
IMAP ne figure pas dans l'aide en ligne de Windows 2003. T'es allé pêcher ça où?

n°375122
THE REAL S​MILEY
The Real Résistance!
Posté le 28-04-2003 à 21:52:34  profilanswer
 

MagicBuzz a écrit :


MAPI
 
See definition for: Messaging API (MAPI)


 
:p
 
C'est le nom de l'objet qu'on utilise en VB en tout cas :fuck:
 
IMAP ne figure pas dans l'aide en ligne de Windows 2003. T'es allé pêcher ça où?


Mairde, désolé, je suis pas au fait des techno Microsoft :sweat:

n°375304
Zapco
Posté le 28-04-2003 à 23:34:21  profilanswer
 

après quelques recherche, j'arrive à récupérer les évènements futur avec le script ci-dessous, mais je n'arrive toujours pas à en creer.
 

Code :
  1. Dim objOutlook
  2.         Dim objNameSpace
  3.         Dim objFolder
  4.         Dim MyItems
  5.         Dim CurrentAppointment
  6.         Dim strOutput
  8.         Const olMailItem = 0
  9.         Const olTaskItem = 3
  10.         Const olFolderTasks = 13
  11.         Const olFolderCalender = 9
  14.         'Create Outlook, Namespace, Folder Objects and Task Item
  15.             Set objOutlook = CreateObject("Outlook.application" )
  16.             Set objNameSpace = objOutlook.GetNameSpace("MAPI" )
  17.             Set objFolder = objNameSpace.GetDefaultFolder(olFolderCalender)
  18.             Set MyItems = objFolder.Items
  20.             dtLastWeek = DateAdd("d", -7, date)
  21.             dtNextWeek = DateAdd("d", +7, date)
  22.             strOutput = strOutput & "<h2>Meetings This Week</h2>"
  23.             icount = 0
  24.             For Each CurrentAppointment in MyItems
  25.             If CurrentAppointment.Start >=  dtLastWeek And CurrentAppointment.Start <= Date Then
  26.    icount = icount + 1
  27.           strOutput = strOutput & icount & ". " & CurrentAppointment.Subject & vbTab & " <b>Time:</b> " & CurrentAppointment.Start & " <b>duration</b> " & CurrentAppointment.Duration&  vbCRLF
  28.    txtNames = txtNames & CurrentAppointment.Subject & vbTab & " <b>Time:</b> " & CurrentAppointment.Start & " <b>duration</b> " & CurrentAppointment.Duration&  vbCRLF
  29.                     if len(CurrentAppointment.Body) > 0 then
  30.                        strOutput = strOutput & "<blockquote><b>Notes: </b>" & CurrentAppointment.body & "</blockquote>" & vbCrLF & vbCrLF
  31.                     else
  32.                        strOutput = strOutput & vbCrLf
  33.                     end if
  34.                 End If
  35.             Next
  36.             strOutput = strOutput & "<h2>Due Next Week</h2>"
  37.             icount = 0
  38.             For Each CurrentAppointment in MyItems
  39.                 If CurrentAppointment.Start > date And CurrentAppointment.Start <= dtNextWeek Then
  40.                 icount = icount + 1
  41.                     strOutput = strOutput & icount & ". " & CurrentAppointment.Subject & vbTab & " <b>Time:</b> " & CurrentAppointment.Start & " <b>Duration</b> " & CurrentAppointment.Duration &  vbCRLF
  42.                     if len(CurrentAppointment.Body) > 0 then
  43.                        strOutput = strOutput & "<blockquote><b>Notes: </b>" & CurrentAppointment.body & "</blockquote>" &  vbCrLF & vbCrLF
  44.                     else
  45.                        strOutput = strOutput & vbCrLf
  46.                     end if
  47.                 End If
  48.             Next
  50.             strOutput = strOutput & "<h2>Future Tasks</h2>"
  51.             icount = 0
  52.             For Each CurrentAppointment in MyItems
  53.                 If CurrentAppointment.Start >= dtNextWeek Then
  54.                 icount = icount + 1
  55.                     strOutput = strOutput & icount & ". " & CurrentAppointment.Subject
  56.                        strOutput = strOutput & " Due -<b> " & CurrentAppointment.Start  & "</b>" & vbCrLf
  57.                     if len(CurrentAppointment.Body) > 0 then
  58.                        strOutput = strOutput & "<blockquote><b>Notes: </b>" & CurrentAppointment.body & "</blockquote>" &  vbCrLF & vbCrLF
  59.                     else
  60.                        strOutput = strOutput & vbCrLf
  61.                     end if
  62.                 End If
  63.             Next
  64.             msgbox txtNames
  65.            
  66.             Set objMsg =  objOutlook.CreateItem(olMailItem)
  68.             objMsg.To = "manager@domain.com" ' your reminder notification address
  69.             objMsg.Subject = "Status Report - " & Date()
  70.             objMsg.Display
  71.             strOutput = replace(strOutput,vbCrLF,"<br>" )
  72.             objMsg.HTMLBody = strOutput
  74.         'Display results to user, if any.
  75. '            If strOutput > "" Then
  76. '                Msgbox strOutput, vbExclamation, "Tasks For Today"
  77. '            Else
  78. '                Msgbox "No Tasks Today", vbInformation,"Tasks For Today"
  79. '            End If
  81.         'Clean up
  82.             Set objFolder = Nothing
  83.             Set objNameSpace = Nothing
  84.             set objOutlook = Nothing
  86.             set objMsg = Nothing

n°375306
lorill
Posté le 28-04-2003 à 23:36:17  profilanswer
 

MagicBuzz a écrit :

[fixed]
IMAP ne figure pas dans l'aide en ligne de Windows 2003. T'es allé pêcher ça où?


ici par exemple : http://www.imap.org/
les deux existent, les deux ont un rapport avec le mail, mais ca s'arrete la, ca n'a rien d'autre a voir.

n°375362
MagicBuzz
Posté le 29-04-2003 à 00:10:48  profilanswer
 

Arf ! Oui, ça y est, je sais où j'ai déjà vu IMAP :)
 
C'est dans Exchange pour savoir à quels types de requêtes il doit répondre :)

mood
Publicité
Posté le 29-04-2003 à 00:10:48  profilanswer
 

n°375549
THE REAL S​MILEY
The Real Résistance!
Posté le 29-04-2003 à 09:28:40  profilanswer
 

MagicBuzz a écrit :

Arf ! Oui, ça y est, je sais où j'ai déjà vu IMAP :)
 
C'est dans Exchange pour savoir à quels types de requêtes il doit répondre :)


IMAP n'est pas que pour exchange, c'est un protocole de communication de messagerie qui permet (entre autres) de récupérer les titres des mails sans tout télécharger, de gérer ses dossiers directement dans le serveur de messagerie ...


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

  Mettre à jour outlook à partir d'une page Web

 

Sujets relatifs
comment creer une page index htm qui fasse apparaitre une listelogiciels de montée en charge Web
Comment lancer un .exe à partir d'un lien hypertexte ?[JS] Erreur au premier chargement de la page
ou inserer du javascript dans une page phpexécuter un événement d'une classe à partir d'une autre classe
[C/C++]récupérer la source d'une page html[html]Mettre une image pour un bouton de formulaire ?
[HTML] Menu en màj automatique pour page sans cadrelancer du PHP a partir de JS
Plus de sujets relatifs à : Mettre à jour outlook à partir d'une page Web

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

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