Publier un calendrier sur le web

Bonjour,

Pour mon job on m'a demandé de chercher à rendre certains calendriers accessibles sur le net 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:

<%
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 de droit? de code? etc...?

Merci infiniment.