Here are the few lines of code that format and submit the email:
-------------------------------------------
Function SendMail(From,Rcpt,CC1,CC2,CC3,CC4,Subject,Body) 'Builds and
sends Email
Trim(From)
Trim(Rcpt)
Trim(CC1)
Trim(CC2)
Trim(CC3)
Trim(CC4)
If Len(From) < 1 Then
ReportError strError & "<br>No Reply-to address (From) for this
letter"
End If
If Len(Rcpt) < 1 Then
ReportError strError & "<br>No recipient for this letter"
End If
IsValidEmail Rcpt
IsValidEmail CC1
IsValidEmail CC2
IsValidEmail CC3
IsValidEmail CC4
IsValidEmail From
Set objMailer = CreateObject("CDONTS.Newmail")
objMailer.From = From
objMailer.To = Rcpt
objMailer.CC = CC1 & ";" & CC2 & ";" & CC3 & ";" & CC4
objMailer.Subject = Subject
objMailer.Body = Body
objMailer.Send
Set objMailer = Nothing
End Function
---------------------------------------------------
I have ensured that, on this web server, IUSR and IWAM have read access
to cdonts.dll as well as to the Exchsrv's pickup directory, as well as
the IIS pickup directory.
I do appreciate the help... Still plugging away!
> -----Original Message-----
> From: Tim George [mailto:[EMAIL PROTECTED]]
> Sent: Friday, February 07, 2003 4:48 PM
> To: NT 2000 Discussions
> Subject: RE: Microsoft VBScript runtime error '800a0046'
>
>
> What is on line 87 of your ASP page?
>
> Most likely I'd imagine that it is the Server.CreateObject line...
>
> If so, make sure that the IUSR account has read access to the
> CDonts dll (and possibly the directory or directory hierarchy
> that contains the dll -- most likely winnt\system32)
>
> If this is not the line in question, post several lines of your
> code and indicate which of the lines the error is occurring on...
>
> -Tim
>
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of Chris Levis
> Sent: Friday, February 07, 2003 4:26 PM
> To: NT 2000 Discussions
> Subject: Microsoft VBScript runtime error '800a0046'
>
>
> My web app is broken:
>
> I have an asp page with a form. Upon submission of this
> form, people are notified using CDONTS. It worked last week,
> but it does not anymore (tho everyone insists that nothing
> was changed/installed).
>
> Now, when the form is submitted, I get this error:
> Microsoft VBScript runtime error '800a0046'
> Permission denied
> /secure/MapRequest/mailrequest.asp, line 87
>
> I have followed the suggestions in Q197619 (i.e., setting
> various dir. permissions), but to no avail. I'm not on IIS 4
> anyway, I'm on IIS 5.0.
>
> Can anybody point me to an explicit set of permissions notes
> that will let this ASP page use the CDONTS NewMail and Send
> options on a server running Win 2K Server SP3? Exchange 2000
> SP3 is also running on this server (as OWA).
>
> Also, I ran Sysinternals filemon to see if the IUSR_Machine
> or IWAM_Machine were running into any problems accessing
> files. Nothing really stood out (but it was my first time
> using filemon, so I may have missed something :) ).
>
> Anyone run into this situation where the MS-recommended fix fixes not?
>
> TIA
> clevis
>
>
> ------
> You are subscribed as [EMAIL PROTECTED]
> Archives: http://www.swynk.com/sitesearch/search.asp
> To unsubscribe send a blank email to %%email.unsub%%
>
> ------
> You are subscribed as [EMAIL PROTECTED]
> Archives: http://www.swynk.com/sitesearch/search.asp
> To unsubscribe send a blank email to %%email.unsub%%
>
------
You are subscribed as [email protected]
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe send a blank email to [EMAIL PROTECTED]
