Wats the error in this code

rajanikrishna · November 22nd, 2004, 10:56 PM

Hi,

dim receiptto
    receiptto="[email protected]"
    set cdoconfig=CreateObject("CDO.configuration")
    set cdomsg=CreateObject("CDO.Message")

    with cdoconfig.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail8.webmail.com"

'this is the SMTP server setting in my outlook.

        .Update
    end with
    with cdomsg
        set .Configuration=cdoconfig
        .Fields("urn:schemas:mailheader:disposition-notification-to")=receiptto
        .Fields("urn:schemas:mailheader:return-receipt-to") =receiptto
        .From="[email protected]"
        .To="[email protected]"
        .Subject="Sample mail"
        .HTMLBody="<b>Hello</b>"
        .DSNOptions=4
        .Fields.update
        .Send
    end with
    set cdoconfig=nothing
    set cdomsg=nothing

    Response.Write "Mail sent"

I am getting the error ar .Send (Internal Server error 500
If i didnt use configuration, sending mail correctly. (Simple from, to, subject, htmlbody, send).

Thanx in advance

shahchi1 · November 23rd, 2004, 10:25 AM

What error message are you getting? Internal Server error 500? You might want to change your browser setting to display more customized error message.

If you are using MS IE Then Tools-->Internet Options-->Advanced-->Uncheck Show friendly HTTP error message
Try this script change the SMTP server
**********************************************

<%
SUB sendmail( fromWho, toWho, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds

Const cdoSendUsingPort = 2

Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")

Set Flds = iConf.Fields
With Flds
            .Item(cdoSendUsingMethod) = cdoSendUsingPort
            .Item(cdoSMTPServer) = "Your SMTP Mail"
            .Item(cdoSMTPServerPort) = 25
            .Item(cdoSMTPconnectiontimeout) = 10
            .Update
End With

Set objCDO.Configuration = iConf

objCDO.From = fromWho
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.TextBody = Body
objCDO.Send

END SUB
fromWho = TRIM( Request.Form( "fromWho") )
toWho = TRIM( Request.Form( "toWho") )
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body") )
If toWho <> "" THEN
sendMail fromWho, toWho, Subject, Body

'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
Response.redirect "confirmation.html"
' Any existing page can be used for the response redirect method
END IF
%>

<HTML>
<HEAD><TITLE>Email Form</TITLE></HEAD>
<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")% >">
<BR>TO: <INPUT NAME="toWho" TYPE="text" SIZE=40>
<BR>FROM: <INPUT NAME="fromWho" TYPE="text" SIZE=40>
<BR>SUBJECT: <INPUT NAME="Subject" TYPE="text" SIZE=40>
<BR><TEXTAREA NAME="Body" COLS=40 ROWS=5></TEXTAREA>
<BR><INPUT TYPE="SUBMIT" VALUE="Send Mail">
</FORM>
</HTML>
************************************************** ****

rajanikrishna · November 23rd, 2004, 08:53 PM

Hello,

Thax 4 u r reply. I solved this. But i wonder,
i didnt use any configuration. Then only it is sending mail and requesting read receipt.

--------
Rajani