Click to See Complete Forum and Search --> : Outllok.Application & 0x800A01AD


il_betto
12-01-2010, 08:38 AM
Hi to All,

I have a server with IIS Vers. 5.1. set in Low Protection level.

Under Admin Tools, Local Users and Groups,
I have set IUSR_computername as Administrators member
I have set IWAM_computername as Administrators member

under Start \ Execute I have successfully done:
regsvr32 C:\WINDOWS\system32\inetsrv\asp.dll
regsvr32 C:\WINDOWS\system32\scrrun.dll


In this server there is a page index.asp that contains a Form with many input type="text" that user fills before pushing Submit button.
Near this button there is another button called "Submit email" that, when the intranet user click on it, calls a page mail_dbo.asp which opens Outlook to send an email: in the object of the email appear the value of the form fields filled by the client.

If I work on the computer server,
pushing the button "Submit email", the email appears opened correctly by Outlook, so no problem...

If I do the same operation on a client pc,
I see that the page mail_dbo.asp goes in timeout
and appears this error:

Microsoft VBscript run-time error (0x800A01AD)
ActiveX component can' t create object Outlook.Application

Now I don' t know any way to solve the problem ... :confused:

Thanks a lot in advance for the help !!!!


Index.asp code

<head>
<Script Language="JavaScript">
function notify(n) {
if (n==9) {
document.FrontPage_Form1.action = "mail_dbo.asp "
document.FrontPage_Form1.submit();
return true; } }
</script>
</head>

<body>
<form method="POST" webbot-onSubmit language="JavaScript" name="FrontPage_Form1">

... different input type="text" to infill ....

<button onClick="notify(9)" style="width:110;height:26" id="send" name="send" value="Submit email">Submit email</button>
...
</form>


*********** mail_dbo.asp code **********

<%@ Language=VBScript %>
<%
Option Explicit
Dim aFrom, Message, olMailItem, Outlook, sender
'
'
sender = Request.Form("user")
Set Outlook = Server.CreateObject("Outlook.Application")
' Set Outlook = CreateObject("Outlook.Application")
Set Message = Outlook.CreateItem(olMailItem)
'
With Message
.To = "" & Request.Form("mess") & ""
.Subject = "The Ticket Num. " & Request.Form("rec_mod") & " is SUBMITTED !"
.HTMLBody="<br>Project Code: " & Request.Form("proj_code") & "<br>" &_
"<b>Project: </b>" & Request.Form("proj_name") & "<br><br>" &_
"<b>Product: </b>" & Request.Form("product") & "<br><br>" &_
"<b>Notes: </b>" & Request.Form("notes_2") & "<br><br>"
.Display '.Send
End With
'
Set Message = Nothing
Set Outlook = Nothing
'
'
Response.Redirect("http://nome_server/index.asp?rec=" & Request.Form("rec_mod") & "")
%>