Thread: email

Here is the code

Code:

<%

Set rs= Server.CreateObject("ADODB.Recordset")
str="select * from students"
rs.Open str, Conn


If rsproducts.eof then

else
                Do while not rs.eof
                                getnames=getnames & rs("Email") & ","
                                rs.movenext
                                Loop
                      

%>
<textarea cols="80" rows="12" name="email1" id="email1"><%=Left(getnames, Len(getnames) -1)%></textarea>
<input type="submit" value="Sent">
<%
End If
rs.close
Set rs=Nothing
%>

Code:

<%
email=Trim(Request.Form("email1"))
subject=Trim(Request.Form("emailsubject"))
body=Trim(Request.Form("emailbody"))


email=Split(email, ",")

For Each address In email
Subject1=subject
Body1 = Body1 & body
Set JMail1 = Server.CreateObject("JMail.SMTPMail")
JMail1.ServerAddress = "XX.XXX.XX.XXX"
JMail1.ContentType = "text/html"

JMail1.Sender = "myemail@yahoo.com"
JMail1.AddRecipient email
JMail1.Subject = Subject1
JMail1.HTMLBody =Body1
JMail1.Priority = 1
JMail1.Execute
Set JMail1 = Nothing

Next
%>

Json,

Sorry my mistake

now new error type mismatch AddRecipient

Todd

Thanks both Jason and Richyrich