[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 482
  • Last Modified:

CDO.Addressee.1 error 'c0070005' from GetFreeBusy(strStartTime, strEndTime, iInterval) in ASP page

I receive this CDO.Addressee.1 error 'c0070005' and can't find any information about it anywhere.  If anyone knows what this is refering to please help!

Here is my ASP code:

<%@ Language=VBscript%>
<%
    Sub PrintStatus(strStatus)
   Select Case strStatus
   Case "0"   'Free
      Response.Write "<TD>Free</TD></TR>"
   Case "1"   'Tentative
      Response.Write "<TD>Tentative</TD></TR>"
   Case "2"   'Busy
      Response.Write "<TD>Busy</TD></TR>"
   Case "3"   'Out Of Office

      Response.Write "<TD>Out Of Office</TD></TR>"
   End Select
    End Sub

    UserName = "my user name"
    DomainName = "mydomain.com"
    ServerName = "myserver"
    strStartTime = #11/6/2003 7:00:00 AM#
    strEndTime = #11/6/2003 5:00:00 PM#
    iInterval = 30

    Set iAddr = createobject("CDO.Addressee")
    iAddr.EmailAddress = UserName & "@" & DomainName
    iAddr.CheckName ("LDAP://" & ServerName)
      
    strFreebusy = iAddr.GetFreeBusy(strStartTime, strEndTime, iInterval)

    Response.Write "<Table Border =1>"
    For i = 1 To Len(strFreebusy)
   If i = 1 Then
      Response.Write "<TR><TD>Start Time</TD><TD>" & strStartTime & " ~ </TD>"
   Elseif i = len(strFreebusy) Then
      Response.Write "<TR><TD>End Time</TD><TD>" & strEndTime & " ~ </TD>"
   Else
      Response.Write "<TR><TD>.</TD><TD> + " & iInterval & " min ~ </TD>"
   End If
  Call PrintStatus(Mid(strFreebusy, i, 1))
    Next
    Response.Write "</TABLE>"
    Set iAddr = Nothing
%>
0
vand3r
Asked:
vand3r
  • 3
  • 2
1 Solution
 
OneHumpCommented:
We should probably snip out the code that is giving you trouble.  Here it is:

Set iAddr = createobject("CDO.Addressee")
    iAddr.EmailAddress = UserName & "@" & DomainName
    iAddr.CheckName ("LDAP://" & ServerName)


What exactly are you trying to do?  Did you populate the sample values with legitimate data?

Here is a link for the checkname method:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wss/wss/_cdo_iaddressee_checkname.asp

Seems to me that the error may be data related, but even if you do get it to work, you'll want to put it into a conditional loop and evaluate the result.

OneHump
0
 
vand3rAuthor Commented:
I am trying to write out busy and free time to a table from exchange.  I am using actual data but put generic values in here.  Checkname seems to be working alright, it is:

strFreebusy = iAddr.GetFreeBusy(strStartTime, strEndTime, iInterval)

that is throwing the error.  Thanks.
0
 
Makr_Watson27Commented:
I may sound stupid, but is it the date format you are using?
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
Makr_Watson27Commented:
You could also try some CDO 1.2 code available at http://support.microsoft.com/?kbid=195591

0
 
vand3rAuthor Commented:
thanks for finding that makr.  it works for what i need.  one thing though - it is important that anonymous login is disabled at the webserver.  thanks again!
0
 
Makr_Watson27Commented:
Hope the end result was good, I take it you were doing some sort of 'activity board', I may try something similar in-house
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now