Solved

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

Posted on 2003-11-06
12
328 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Salesforce Made Easy to Use

On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.

 
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

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Suggested Solutions

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :) To start, I want to make sure everyone understands the importance of utilizing p…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…
Are you ready to implement Active Directory best practices without reading 300+ pages? You're in luck. In this webinar hosted by Skyport Systems, you gain insight into Microsoft's latest comprehensive guide, with tips on the best and easiest way…

737 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