---
title: "Från CDONTS till JMAIL"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/81884-från-cdonts-till-jmail"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Denniss"
published: "2003-07-12T19:26:11.000Z"
updated: "2003-07-14T19:17:58.000Z"
replies: 11
views: 364
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/81884-från-cdonts-till-jmail"
---

# Från CDONTS till JMAIL

## #1 — Denniss, 2003-07-12T19:26Z

Någon som kan ?

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

Permalänk: https://www.webforum.nu/p/81884

## #2 — Denniss, 2003-07-12T19:37Z

Ä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

Permalänk: https://www.webforum.nu/p/1108410

## #3 — solbulle, 2003-07-12T21:06Z

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>

Permalänk: https://www.webforum.nu/p/1108456

## #4 — Denniss, 2003-07-13T19:36Z

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

Permalänk: https://www.webforum.nu/p/1108878

## #5 — Denniss, 2003-07-13T19:38Z

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
%\>

Permalänk: https://www.webforum.nu/p/1108879

## #6 — @nders, 2003-07-13T20:06Z

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.)

Permalänk: https://www.webforum.nu/p/1108894

## #7 — Denniss, 2003-07-13T20:16Z

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

Permalänk: https://www.webforum.nu/p/1108899

## #8 — @nders, 2003-07-13T20:21Z

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.

Permalänk: https://www.webforum.nu/p/1108901

## #9 — Denniss, 2003-07-13T20:43Z

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;

Permalänk: https://www.webforum.nu/p/1108925

## #10 — Denniss, 2003-07-13T20:53Z

Scriptet är hämtad från:

<http://scripts.ocean12tech.com>

Permalänk: https://www.webforum.nu/p/1108933

## #11 — Denniss, 2003-07-14T17:09Z

Någon ?

Permalänk: https://www.webforum.nu/p/1109336

## #12 — solbulle, 2003-07-14T19:17Z

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.

Permalänk: https://www.webforum.nu/p/1109424

---

Tråden på webben: https://www.webforum.nu/amne/asp/81884-från-cdonts-till-jmail