| |
sreenivas2k
Posts: 4
Score: 0
Joined: 1/13/2006
Status: offline
|
whats wrong with my code .i amnot reciveingany mails <%Dim objCDONTS ' Email object Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.MailFormat = 0 objCDONTS.BodyFormat=0 objCDONTS.From = "Admin" & " <" & "admin_auto@" & Request.ServerVariables("HTTP_HOST") & ">" objCDONTS.To = Trim(Request.Form("mfr")) objCDONTS.Subject = "Acknowledgement[Report a Problem]" strBody ="We are dealing with your problem.This message is a system generated acknowledgement to your report. Please do not reply to this." objCDONTS.Body = "--------------------------------------" & vbcrlf & vbcrlf & strbody & vbcrlf & vbcrlf & " --Support Team : Http://"& Request.ServerVariables("HTTP_HOST") & vbcrlf & "--------------------------------------------------------------" & vbcrlf & "MESSAGE ENDS: End of message" objCDONTS.Send Set objCDONTS = Nothing response.write "mail sent to :"+Trim(Request.Form("mfr"))%> sree
|
|