Não estou conseguindo resolver esse problema. O componente original do scripts para envio de e-mail é o CDONTS, só que o server não dá suporte, então tive que colocar o JMAIL. Esta dando erro abaixo.
Error Type:
(0x80004005)
Unspecified error
/newsletter/send.asp, line 103
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = my_conn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockPessimistic
Rs.Source = "News_History"
Rs.Open
' Add a new record
Rs.AddNew
Rs("Sentto") = Request.Form("Group_Number")
Rs("Message") = Session("message")
' Update the record
Rs.Update
Rs.movelast
' Retrive the ID
Dim newsletterID
newsletterID = Rs("ID")
' Close the RecordSet
Rs.Close
Set Rs = Nothing
%>
<font size="2" face="Arial">
<B><%=newsletterID%></B>
<%="<br><bR>"%>
<%
' Declaring variables
Dim rs_sendmail, mail, subject, static_message, sql_select, no, sql_condition
If request.form("Group_number") = 0 then
sql_select = "select * from Newsletter"
Else
sql_condition = request.form("Group_Number")
sql_select = "Select * from newsletter where Section = " & sql_condition
End if
no = 0
subject = Request.Form("subject")
message = Session("message")
' Adding a link to all messages by which users can delete their emails
' if they want later
static_message = "<a href=""http://yourdomain.co...del.asp?email="
Set rs_sendmail = Server.CreateObject("ADODB.Recordset")
linha 103> rs_sendmail.Open sql_select, my_conn
While Not rs_sendmail.EOF
Set Mail = Server.CreateObject("JMail.SMTPMail")
Mail.ServerAddress = "smtp.qual.com.br"
Mail.Sender = "contato@qual.com.br"
Mail.AddRecipient rs_sendmail("email")
Mail.Subject = Request.Form("subject")
Mail.Body = session("message") & "<BR>" & static_message & rs_sendmail("email") & """" & ">To remove your self from our mailing list please click here</a>"
Mail.Execute
Response.Write "Email sent to : " & rs_sendmail("email") & "<br>"
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "Emails sent to " & no & " users."
rs_sendmail.Close
Set rs_sendmail = Nothing
my_Conn.Close
Set my_Conn = Nothing
Session.abandon
%>
ESta aqui é parte com CDONTS, que é original do código.
<%
' Declaring variables
Dim rs_sendmail, mail, subject, static_message, sql_select, no, sql_condition
If request.form("Group_number") = 0 then
sql_select = "select * from Newsletter"
Else
sql_condition = request.form("Group_Number")
sql_select = "Select * from newsletter where Section = " & sql_condition
End if
no = 0
subject = Request.Form("subject")
message = Session("message")
' Adding a link to all messages by which users can delete their emails
' if they want later
static_message = "<a href=""http://yourdomain.co...del.asp?email="
Set rs_sendmail = Server.CreateObject("ADODB.Recordset")
rs_sendmail.Open sql_select, my_conn
While Not rs_sendmail.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = "youremail@yourdomain.com"
mail.To = rs_sendmail("email")
mail.Subject = Request.Form("subject")
Mail.BodyFormat = 0
Mail.MailFormat = 0
mail.Body = session("message") & "<BR>" & static_message & rs_sendmail("email") & """" & ">To remove your self from our mailing list please click here</a>"
mail.Send
Set mail = Nothing
Response.Write "Email sent to : " & rs_sendmail("email") & "<br>"
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "Emails sent to " & no & " users."
rs_sendmail.Close
Set rs_sendmail = Nothing
my_Conn.Close
Set my_Conn = Nothing
Session.abandon
%>
Se alguém puder me ajudar.
valeu
Edição feita por: cidadao_cane, 30/03/2004, 21:58.