Finalement, j'ai parlé trop vite :
Code :
- <html>
- <head>
- <title>Outlook</title>
- <script type="text/vbscript" >
- Function GetCalendar()
- Dim outlook, olNs, olFldr, el
- Const olFolderCalendar = 9
- Set outlook = CreateObject("Outlook.Application" )
- Set olNs = outlook.GetNamespace("MAPI" )
- Set olFldr = olNs.GetDefaultFolder(olFolderCalendar)
- For Each el In olFldr.Items
- Document.Write el.Location & " [" & el.Subject & "] " & el.Start & " " & el.End & "<br/>"
- Next
- GetCalendar = false
- End Function
- </script>
- </head>
- <body>
- <form method="post">
- <input type="button" onclick="GetCalendar()" value="click"/>
- </form>
- </body>
- </html>
|
Par contre, très clairement, t'as tout intérêt à être en zone "maga à fond pas sécurisée confiance aveugle j'ai même pas peur". Moi là ça marche en local en appelant le fichier directement depuis le FS. Mais même avec le niveau "intranet", je doute que ça marche.
Parceque vas-y le trou de sécurité quand même