Från CDONTS till JMAIL

Är det rätt??

Do While Not RS.eof
Set jmail = Server.CreateObject("JMail.Message")
If (Request("Format") = "Text") Then
jmail.BodyFormat = 1
jmail.MailFormat = 1
Else
jmail.BodyFormat = 0
jmail.MailFormat = 0
End If
jmail.From = RSBODY("From_Email")
jmail.To = RS("Email")
jmail.Subject = Request("Subject")
jmail.Body = Request("Body")
jmail.Send RS.movenext
Loop

Har du kikat i deras manual?
Eller sökt här på forumet?
Näst sista raden ser verkligen fel ut, RS.movenext ska stå på en egen rad. (Även fel i orginalscriptet.)

http://www.dimac.net/Websites/dimac/Website/Products/w3JMail

hur skall det se ut för att vara rätt ?

Så ser hela koden ut (eller skulle se ut):

<%
Server.ScriptTimeout = 1000000
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSBODY = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * from Settings"
RSBODY.Open SQL2, Conn, 1, 3

SQL = "SELECT Email FROM List"
RS.open SQL, conn

Select Case RSBODY("Component")

Case "Jmail"

    Do While Not RS.eof
	Set jmail = Server.CreateObject("JMail.Message")
	If (Request("Format") = "Text") Then
		jmail.BodyFormat = 1
		jmail.MailFormat = 1
	Else
		jmail.BodyFormat = 0
		jmail.MailFormat = 0
	End If
	jmail.From = RSBODY("From_Email")
	jmail.To = RS("Email")
	jmail.Subject = Request("Subject")
	jmail.Body = Request("Body")
	jmail.Send  RS.movenext
Loop

End Select

IF (Request("Archive") = "on") Then
Set RSARCHIVE = Server.CreateObject("ADODB.Recordset")
RSARCHIVE.Open "Archive", Conn, 2, 2
RSARCHIVE.addnew
RSARCHIVE("Subject") = Request("Subject")
RSARCHIVE("Body") = Request("Body")
RSARCHIVE("Format") = request("Format")
RSARCHIVE("Date") = Date
RSARCHIVE.update
End If
%>

På vilket sätt funkar det inte? Felmeddelande?

I övrigt:

solbulle skrev:

Näst sista raden ser verkligen fel ut, RS.movenext ska stå på en egen rad. (Även fel i orginalscriptet.)

när jag skickade mejl. det stod att den gick iväg men ingen har fått den.

Jag kan inte se att du anger adressen till mailservern som skall användas.

Tvenne frågor:

1. Har du flyttat ner RS.Movenext så det står på raden under? Scriptet kan bete sig konstigt annars.
2. Du har inte on error resume next i koden? Om du har det, ta bort det.

Jag har flyttat ner RS.Movenext till nästa rad.

Jag har inte on error resume next i koden.

Skickade mejl igen och den "gick iväg" . Ingen har fått den.

Jag ställer in genom admin funktion vilken typ av mejl jag använder.

Jag har en annan kod

function VerifyData() {
if (((document.frmUser.Component.value == "ASPEmail") ||
(document.frmUser.Component.value == "ASPMail")) &&
(document.frmUser.SMTP.value == "")) {
alert("You must enter a Mail Server if you are using the Mail Component you have selected");
return false;

Scriptet är hämtad från:

http://scripts.ocean12tech.com

Någon ?

Så här skulle jag testat:

Case "Jmail" 

Do While Not RS.eof 
	Set jmail = Server.CreateObject("JMail.Message") 
	If (Request("Format") = "Text") Then 
		jmail.Body = Request("Body") 
	Else 
		jmail.HTMLBody = Request("Body") 
	End If 
	jmail.From = RSBODY("From_Email")
	jmail.AddRecipient RS("Email")
	jmail.Subject = Request("Subject") 
	jmail.Send("mail.myDomain.net" )
	RS.movenext 
Loop

Märk att där det står "mail.myDomain.net" måste du ändra till din mailserver.