---
title: "Omvandla Jmail till CDONTS"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/91657-omvandla-jmail-till-cdonts"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2003-12-01T19:25:52.000Z"
updated: "2003-12-01T21:09:33.000Z"
replies: 7
views: 249
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/91657-omvandla-jmail-till-cdonts"
---

# Omvandla Jmail till CDONTS

## #1 — Ivar, 2003-12-01T19:25Z

```
Hej!

Mitt Webbhotell har ändrat Jmail till CDONTS och jag vet ingenting om CDONTS kan man omvandla Jmail koden till CDONTS?

<%
Dim connect, query, senaste
set connect = server.createobject("ADODB.connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" 
Set senaste = Server.CreateObject("ADODB.Recordset") 
query = "SELECT * FROM items WHERE email ORDER BY dateCreated DESC"
senaste.Open query, Connect, 1, 3
		If senaste.EOF Then
			Response.Write "Det finns inga inlägg."
		Else
id = senaste("id")
item = senaste("item")
password = senaste("password")
phone = senaste("phone")
description= senaste("description")
email = senaste("email")

'vallform= Request.QueryString("vallform")
SenderEmail = "info@stuffmarket.nu"
Subject =  item 
'Recipient = Request.QueryString("email")
'Body = Request.QueryString("vallform")

Set JMail = Server.CreateObject ("JMail.SMTPMail") 

' Below you should enter your own SMTP-server 
JMail.ServerAddress = "mail.stuffmarket.nu" 

JMail.Sender = Senderemail
JMail.Subject = Subject 
JMail.ContentType = "text/html"

JMail.AddRecipient Email 
JMail.AddRecipientBCC("ivo.trendewski@comhem.se")

JMail.body = "Tack f&ouml;r Din best&auml;llning.<br>Din order har blivit mottagen och kommer att behandlas snarast m&ouml;jligt. <br>Detta brev kommer ifrån Stuff Market annons En betal-annons med</br>denna e-postadress är inlagd via webben.<BR><B>Email: </B>" & email & "<br> Annonsen kostar<font color=#FF0000> 40 kr</font> och betalas på bankkonto nr: 8381-6-4032825624<br>inom<font color=#FF0000> 3 dagar,</font> var noga att ange annons_referens nummer som du har fåt via mailen.<br>Annonsen blir synlig i Stuffmarket omgående om inga fel föreligger..<br>Annonsen ligger i 30 dagar. Lycka till !</font><B><br>Annons_referens: </B>" & id & "<BR><B>Tel: </B>" & phone & "<BR>Om du vill tabort din annons?<BR><B> Lösenord: </B>" & password & vbcrlf

JMail.Priority = 3 

'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 
On Error Resume Next

JMail.Execute

End if

senaste.Close
	Set senaste= Nothing
	
	Connect.Close
	Set Connect= Nothing
%>

/Ivar
```

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

## #2 — Palle, 2003-12-01T19:56Z

En variant: 

```
[red]strContent = ""&_
"Tack för Din beställning.<br>"&_
"Din order har blivit mottagen och kommer att behandlas snarast möjligt. <br>"&_
"Detta brev kommer ifrån Stuff Market annons En betal-annons med<br>"&_
"denna e-postadress är inlagd via webben.<BR>"&_
"<B>Email: </b>" & email & "<br> "&_
"Annonsen kostar<font color=#FF0000> 40 kr</font> och betalas på bankkonto nr: 8381-6-4032825624<br>"&_
"inom<font color=#FF0000> 3 dagar,</font> var noga att ange annons_referens nummer som du har fåt via mailen.<br>"&_
"Annonsen blir synlig i Stuffmarket omgående om inga fel föreligger..<br>Annonsen ligger i 30 dagar. Lycka till !</font><B><br>"&_
"Annons_referens: </b>" & id & "<BR><B>Tel: </b>" & phone & "<BR>Om du vill tabort din annons?<BR><B> Lösenord: </b>" & password & vbcrlf

Set oMail = CreateObject("CDONTS.NewMail")
	oMail.From = Senderemail
	oMail.To = Email
	oMail.Bcc = "ivo.trendewski@comhem.se"
	oMail.Subject = Subject
	oMail.BodyFormat = 0
	oMail.MailFormat = 0
	oMail.Body = strContent
	oMail.Send
Set oMail = Nothing[/red]
```

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

## #3 — Ivar, 2003-12-01T20:17Z

Hello
Nej du ingen mail skickas och ingen fel meddelande?

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

## #4 — Palle, 2003-12-01T20:45Z

Har du angett korrekt fungerande mailadresser på *oMail.From*, *oMail.To* och *oMail.Bcc*?

Det fungerar iaf. finnemang för mig... :)

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

## #5 — Ivar, 2003-12-01T20:55Z

Hej Palle
 
Det är så här all info hämtas från databasen 
hur gör man i sdont?
/ivar

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

## #6 — Palle, 2003-12-01T21:06Z

..man gör så som jag skrev här ovan. :)

Viktigt är att man anger fungerande mailadresser,
annars kommer det inte fungera korrekt.

Ser också att din sql-sats inte är korrekt.. du borde få ett felmeddelande på din kod eftersom du har en *WHERE* sats i din sql-sats som inte gör någonting..

Kontrollera det och försök igen.

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

## #7 — Ivar, 2003-12-01T21:07Z

Tack Palle
 
Det var jag som strulade det hela men nu funkar fint.
/Ivar

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

## #8 — Palle, 2003-12-01T21:09Z

&nbsp; :bire

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/91657-omvandla-jmail-till-cdonts