Mettre à jour outlook à partir d'une page Web

Mettre à jour outlook à partir d'une page Web - HTML/CSS - Programmation

Marsh Posté le 28-04-2003 à 00:29:32    

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?

Reply

Marsh Posté le 28-04-2003 à 00:29:32   

Reply

Marsh Posté le 28-04-2003 à 20:04:41    

[:yoyoz]

Reply

Marsh Posté le 28-04-2003 à 21:28:55    

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

Reply

Marsh Posté le 28-04-2003 à 21:44:29    

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.

Reply

Marsh Posté le 28-04-2003 à 21:46:58    

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:

Reply

Marsh Posté le 28-04-2003 à 21:50:23    


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ù?

Reply

Marsh Posté le 28-04-2003 à 21:52:34    

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:

Reply

Marsh Posté le 28-04-2003 à 23:34:21    

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

Reply

Marsh Posté le 28-04-2003 à 23:36:17    

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.

Reply

Marsh Posté le 29-04-2003 à 00:10:48    

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

Reply

Marsh Posté le 29-04-2003 à 00:10:48   

Reply

Marsh Posté le 29-04-2003 à 09:28:40    

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 ...

Reply

Sujets relatifs:

Leave a Replay

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