Publier un calendrier sur le web

[spardo]

Bonjour,

Pour mon job on m'a demandé de chercher à rendre certains calendriers accessibles sur le net depuis une page .asp dans le genre OWA. Je suis débutante. D'habitude je ne touche pas à ce genre de travail.

Nous utilisons Windows sbs 2003 et exchange 2003. J'ai trouver un code sur le net qui pourrait coller à merveille mais apparemment ça ne joue pas, le voici:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
<%
on error resume next
'================================================= =======
'CONSTANTS FOR THE CONTAINER RENDERER
'Time Zone Constants for the US
CONST CdoDefaultFolderCalendar = 0 
CONST CdoTmzEastern = 10
CONST CdoTmzCentral = 11
CONST CdoTmzMountain = 12
CONST CdoTmzPacific = 13
'================================================= =======
'CONTAINER CONSTANT
CONST CdoClassContainerRenderer = 3

strProfileInfo = "MyServer" & vbLF & "MyMailbox"
Set objSession = Server.CreateObject("MAPI.Session")

objSession.Logon "", "", False, True, 0, True, strProfileInfo

objSession.SetOption "calendarstore", "outlook"
response.write Err.description
Set objRenderApp = Server.CreateObject("AMHTML.application")
Set objCRenderer = objRenderApp.CreateRenderer(CdoClassContainerRende rer)
objCRenderer.TimeZone = CdoTmzPacific
objCRenderer.DataSource = objSession.GetDefaultFolder(CdoDefaultFolderCalend ar).Messages
Set objView = ObjCRenderer.Views("Daily Calendar")
objCRenderer.CurrentView = objView
objView.RenderAppointments now, Response
%>

Et voici l'erreur:
[Collaboration Data Objects - [MAPI_E_NOT_INITIALIZED(80040605)]]

Ca fait maintenant quelques jours que je recherche mais c'est vraiment pas mon domaine, est-ce que quelqu'un pourrait m'aider?
Est-ce que c'est un problème dans le code? Faut-il aller bidouiller qqchose dans le serveur? Droit d'accès?...etc?

Merci infiniment pour votre aide

[spardo]

Bonjour,

Je suis toujours à la recherche d'une réponse ou piste à ma question.
Merci d'avance pour votre aide.