Outlook tilgang via CreateObject("MAPI.Session") ??

Jeg har probs med at få kontakt til exchangeserveren på min arbejdsplads (intranet). De har ca. 12 stk af slagsen og jeg har fanget navnet på den jeg er logget på...

Den hedder OESTMB010

MEN hvorfor f... får jeg følgende besked:

Active Messaging fejl '000004f9'

Informationslageret kunne ikke åbnes. [MAPI 1.0 - [MAPI_E_LOGON_FAILED(80040111)]]

koden...



<%@ LANGUAGE="VBSCRIPT" %>
  <HTML>
  <HEAD>
  <TITLE>Outlook tester</TITLE>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
  </HEAD>
  <BODY>
  <TABLE ALIGN=RIGHT BORDER>
  <TH>Status<TH>Color
  <TR><TD>Free<TD bgcolor=white>&nbsp</TR>
  <TR><TD>Tenative<TD bgcolor=lightblue>&nbsp</TR>
  <TR><TD>Busy<TD bgcolor=blue>&nbsp</TR>
  <TR><TD>Out-of-Office<TD bgcolor=purple>&nbsp</TR>
  </TABLE>
  <P>
  <%

'  On Error Resume Next
  Const cdoDistList = 1
    Dim objSession
    Dim strProfileInfo
    strProfileInfo = "OESTMB010" & vbLF & "jehor"

    Set objSession = CreateObject("MAPI.Session")
    objSession.Logon , , False, True, 0, True, strProfileInfo

    Set objMessage = objSession.Outbox.Messages.Add
    Set objRecips = objMessage.Recipients

    ' Add the users or Distribution lists that you would like to
    ' see free/busy information.
    objRecips.Add("jehor")

  For Each r In objRecips
      ' If it is a distribution list, do the following.
      If r.AddressEntry.DisplayType = cdoDistList Then

        ' Get the individual members, and add them.
        Set objMembers = r.AddressEntry.members
        For Each mem In objMembers
          objRecips.Add(mem.name)
        Next

        ' Remove the distribution list from the recipients' collection.
        r.delete
      End If
  Next

  objRecips.Resolve
  Response.Write( "<TABLE border align=center>" & vbLF _
                      & "<TR><TH>Name" )

  ' Create the column headers.
  For j = 0 To 23
      temp = j Mod 12
      If temp = 0 Then temp= 12
      Response.Write("<TH>" & temp)
  Next
  For Each r In objRecips
  Response.Write( "<TR><TD>" & r.name )
      ' When checking the free/busy information, pass in the start
      ' date/time, end date/time, and interval in minutes.
      ' Get Today's date.
      objDate1= Date()
      ' Get Tommorow's date.
      objDate2= Date() + 1
      ' Retrieve the Free/Busy Information from between to two
      ' time periods.
      ' If the user does not have any appointments
      ' on their calendar GetFreeBusy will return in error.
      ' This error check creates a string of zeros
      ' representing availability.
      FreeBusyInfo =r.GetFreeBusy(objDate1,objDate2,60)
      If Err Then  '<< The only line that is changed.
        FreeBusyInfo = String(24,"0")
        Err.Clear
      End If
      ' Look at each of the time blocks returned and decide what the
      ' status is. Each segement will be a table cell.
      For i = 1 To Len(FreeBusyInfo)
        ' If the person is available leave the color white.
        ' If the person is tenative set to the color to light blue.
        ' If the person has a commitment set the color to blue.
        ' If the person is oof set the color to purple.
        Select Case Mid(FreeBusyInfo, i, 1)
          Case "0"
              Response.Write( "<TD bgcolor=white>&nbsp" )
          Case "1"
            Response.Write( "<TD bgcolor=lightblue>&nbsp" )
          Case "2"
              Response.Write( "<TD bgcolor=blue>&nbsp" )
          Case "3"
              Response.Write( "<TD bgcolor=purple>&nbsp" )
        End Select
      Next
      ' End of 1 person's data.
      Response.Write( "</TR>" )
  Next
  Set objMessage = Nothing
  objSession.Logoff
  Set objSession = Nothing
  %>

  </BODY>
  </HTML>