Solved

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

Posted on 2003-11-06
12
326 Views
Last Modified: 2007-12-19
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 = "myusername"
    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
Comment
Question by:vand3r
  • 4
  • 3
  • 3
  • +2
12 Comments
 
LVL 46

Expert Comment

by:fritz_the_blank
ID: 9694723
Have you seen this?

http://support.microsoft.com/default.aspx?scid=%2fservicedesks%2fbin%2fkbsearch.asp%3fArticle%3d323915


It does not match what is happening to you, but it does seem to point to some sort of a permissions issue...


FtB
0
 

Author Comment

by:vand3r
ID: 9694922
Thanks I checked those reg keys and the permissions are set properly.  Other ideas?
0
 
LVL 46

Expert Comment

by:fritz_the_blank
ID: 9694937
Apart from wondering about the permissions for the LDAP, I can offer only what I am sure that you already know--start with a simpler CDO sample, test it, and then add what you need one bit at a time until the error reveals its source. In case this helps, I am including an extended CDO example:

<%
Const cdoSendUsingMethod        = _
      "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
      "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
      "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
      "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate       = _
      "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic                  = 1
Const cdoSendUserName           = _
      "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword           = _
      "http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim objConfig  ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields     ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
      .Item(cdoSendUsingMethod)       = cdoSendUsingPort
      .Item(cdoSMTPServer)            = "smtp_server_name"
      .Item(cdoSMTPServerPort)        = 25
      .Item(cdoSMTPConnectionTimeout) = 10
      .Item(cdoSMTPAuthenticate)      = cdoBasic
      .Item(cdoSendUserName)          = "username"
      .Item(cdoSendPassword)          = "password"

      .Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
      .To       = "Display Name <email_address>"
      .From     = "Display Name <email_address>"
      .Subject  = "SMTP Relay Test"
      .TextBody = "SMTP Relay Test Sent @ " & Now()
      .Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>
0
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
LVL 21

Expert Comment

by:ap_sajith
ID: 9709045
Check this out.. this has more detailed info on what you are trying to achieve...

http://www.docendo.se/mspress/msp_online/samplechapter/0735607729.htm

Cheers!!
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 9709241
you might want to go through this as well..

http://support.microsoft.com/?id=288807

Cheers!!
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 9709260
BTW.. what O.S and what version of exchange are you running?

Cheers!!
0
 

Author Comment

by:vand3r
ID: 9714627
Thanks for the suggestions AP - I will work through them today and let you know.  It is exchange 2003 running on and windows 2003 box.
0
 

Author Comment

by:vand3r
ID: 9718420
I ended up using this:

http://support.microsoft.com/?kbid=195591

because none of the comments really helped me figure out the error.  The link above did provide the same functionality I was after.

Also I had to be sure anonymous login was turned off at the webserver.  
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 9720350
Glad you solved the issue.

You can request for a points refund by posting a 0 point question in Community support with a link to this question.

Cheers!!
0
 
LVL 7

Expert Comment

by:vnvk
ID: 11867906
No comment has been added to this question in more than 21 days, so it is now classified as abandoned.

I will leave the following recommendation for this question in the Cleanup topic area:
    PAQ with points refunded

Any objections should be posted here in the next 4 days. After that time, the question will be closed.

vnvk
EE Cleanup Volunteer
0
 
LVL 46

Expert Comment

by:fritz_the_blank
ID: 11869616
Either that or points to ap_sajith as his link helped to point things in the right direction.

FtB
0
 

Accepted Solution

by:
modulo earned 0 total points
ID: 11912394
PAQed, with points refunded (500)

modulo
Community Support Moderator
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
INNER JOIN ? 8 50
msxml3.dll error '80072efd' A connection with the server could be not established 8 44
Select record with the most recent date 14 67
ASP/VB email question 4 46
I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

856 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question