Microsoft VBScript runtime error '800a01ad'

[CooterBrown]

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'Outlook.Application'

I am trying to connect to Microsoft Outlook with asp and I am getting this message. Do I need to install drivers on my exchange server? Also if I put set outlook=server.createobject i get a different error message.

<%
Set Outlook=CreateObject(&quot;Outlook.Application&quot
response.write outlook
If Outlook=&quot;Outlook&quot; Then
'Outlook is on this machine
Set Mapi=Outlook.GetNameSpace(&quot;MAPI&quot
Set Lists=Mapi.AddressLists
For Each ListIndex in Lists
If ListIndex.AddressEntries.Count<>0 THEN
ContactCount=ListIndex.AddressEntries.Count
For Count=1 to ContactCount
Set Contact=ListIndex.AddressEntries(Count)
emailaddresses=emailaddresses&Contact.Address&vbcrlf
Next
End IF
NEXT
MsgBox(emailaddresses)
END IF
%>

 

[shaddow]

I dont know if u could create an object to the server bu u could try

<OBJECT RUNAT=server PROGID=put your outlook id object here id=OBJECT1> </OBJECT> ________

George

 

[FengShui1998]

Cooterbrown,

You need to install the Outlook client and configure it to go to an Exchange server for your code to work.


fengshui1998

 

[CooterBrown]

what should go at the progID attribute? is that the path to OUTLOOK on my machine?

 

[shaddow]

Put
<OBJECT RUNAT=server PROGID=Outlook.Application id=outlook name=outlook> </OBJECT>
This declaration is same as yours but in manny cases this is the best way to deal wit it.
If u want to put an common dialog box in your html script i use it this way cuz createobject failed...

Bu u need like FengShui1998 says to install Outlook client
and hope he will tell u cuz i don't use it before...
________

George

 

[CooterBrown]

NEW PROBLEM!!
I have installed OUTLOOK on the server and now I am getting this error.

The application Outlook is on this machine
Microsoft Outlook error '00001000'

Could not complete the operation because the service provider does not support it.

/trial2.asp, line 15

<%
Set Outlook=CreateObject(&quot;Outlook.Application&quot

If Outlook=&quot;Outlook&quot; Then
response.write &quot;The application Outlook is on this machine&quot;
Set Mapi=Outlook.GetNameSpace(&quot;MAPI&quot
Set Lists=mapi.AddressLists<--------------Line 15
For Each ListIndex in Lists
If ListIndex.AddressEntries.Count<>0 THEN
ContactCount=ListIndex.AddressEntries.Count
For Count=1 to ContactCount
Set Contact=ListIndex.AddressEntries(Count)
emailaddresses=emailaddresses&Contact.Address&vbcrlf
Next
End IF
NEXT
MsgBox(emailaddresses)
END IF
%>