Sending an email using ASP

[Anthony1312002]

I hope someone can help me. I'm trying to setup an ASP page that will automatically send and email once the submit button is clicked. But my problem is that Lotus Notes is the email client and the script below is setup for Outlook to be the client. I've tried looking on the web but I can't seem to find anything that helps. Can anyone help me alter the code below so that it will work with Lotus Notes?

<%

if not IsEmpty(Request .Form("Send")) then
if Request.Form("S endTo") = "All" then
set RSEmails = conn.Execute("s elect EmpEmailAddress from I1BlastEmps")
elseif Request.Form("S endTo") = "Department " then
set RSEmails = conn.Execute("s elect EmpEmailAddress from I1BlastEmps " _
& "where Department = '" & Request.Form("D epartmentName") & "'")
else
set RSEmails = conn.Execute("s elect EmpEmailAddress from I1BlastEmps " _
& "where Role = '" & Request.Form("R oleName") & "'")
end if
set RSWhoForm = conn.Execute("S elect EmpID, EmpEmailAddress from I1BlastEmps " _
& "where EmpID = " & Request.Form("E mpID"))
FromAddress = RSWhoForm("EmpE mailAddress")
do Until RSEmails.eof
set objMail = CreateObject("C DONTS.NewMail")
objMail.Send FromAddress,RSE mails("EmpEmail Address"), _
cstr(Request.Fo rm("Subject")), cstr(Request.Fo rm("Message"))
set objmail = nothing
RSEmails.MoveNe xt
loop
conn.Execute "Insert Into I1Blasts (EmpID, Subject, Message, WhenSent) values (" _
& "" & Request.Form("E mpID") & ", " _
& "'" & Request.Form("S ubject") & "', " _
& "'" & Request.Form("M essage") & "', " _
& "'" & Now() & "')"

TheMessage = "Message was sent!"
else
TheMessage = "Enter your message below"
end if

set RSDepartments = conn.Execute("s elect distinct Department from " _
& "I1BlastEmp s order by Department")
set RSRoles = conn.Execute("s elect distinct Role from " _
& "I1BlastEmp s order by Role")
set RSEmps = conn.Execute("s elect EmpID, EmpName from " _
& "I1BlastEmp s order by EmpName")

%>

[devsusen]

do Until RSEmails.eof
set objMail = CreateObject("C DONTS.NewMail")
objMail.Send FromAddress,RSE mails("EmpEmail Address"), _
cstr(Request.Fo rm("Subject")), cstr(Request.Fo rm("Message"))
set objmail = nothing
RSEmails.MoveNe xt
loop

I think you should write Server.CreateOb ject instead CreateObject. You should write this statement outside of the loop, otherwise it will create object every for sending the mail.

The script will send mail using the SMTP server. In that case email client is not that important matter. Almost same sort of script worked for me. I found no problem with it.

susen

[Anthony1312002]

Thanks for the response susen. I'm able to create the objMail object just fine. But I'm getting the error "(0x8007000 3) /EmailBlast.asp, line 25". Line 25 is where I try to send the email. Using objMail.Send. How can I fix this?


set objMail = Server.CreateOb ject("CDONTS.Ne wMail")

do Until RSEmails.eof

objMail.Send FromAddress,RSE mails("EmpEmail Address"), _
cstr(Request.Fo rm("Subject")), cstr(Request.Fo rm("Message"))

set objmail = nothing
RSEmails.MoveNe xt
loop

[devsusen]

Hi,

objMail.Send FromAddress,RSE mails("EmpEmail Address"), _
cstr(Request.Fo rm("Subject")), cstr(Request.Fo rm("Message"))

Please try writing this way -

objMail.From = FromAddress
objMail.To = RSEmails("EmpEmailAddress")
objMail.Subject = cstr(Request.Form("Subject"))
objMail.Body = cstr(Request.Form("Message"))
objMail.Send

You need to set the required attributes first and then call the Send function. I hope this will work for you.

Susen

[clain]

My dear friend CDONTS wont work anymore.. use new CDOSYS
here is the code



<%
dim too,from,messag e,subject
from=request.Fo rm("txtTo")
too=request.For m("txtFrom")
subject=request .Form("textSubj ect")
message=request .Form("message" )


'------------------------------Configuration-------------------
sch = "http://schemas.microso ft.com/cdo/configuration/"
Set cdoConfig = Server.CreateOb ject("CDO.Confi guration")
cdoConfig.Field s.Item(sch & "sendusing" ) = 2
cdoConfig.Field s.Item(sch & "smtpserver ") = "192.168.29 .20"
cdoConfig.field s.update
'-------------------------------------------------------------
Set myMail=CreateOb ject("CDO.Messa ge")
myMail.Configur ation = cdoConfig
myMail.Subject= subject
myMail.From=fro m
myMail.To=too
myMail.TextBody =message
myMail.Send
set myMail=nothing
response.write( "your mail has been send")

%>

Happy coding