---
title: "Emaillista - Jmail"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38223-emaillista-jmail"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "fredrik99"
published: "2001-09-17T20:46:00.000Z"
updated: "2001-09-17T20:46:00.000Z"
replies: 0
views: 1147
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/38223-emaillista-jmail"
---

# Emaillista - Jmail

## #1 — fredrik99, 2001-09-17T20:46Z

Många som undrar och behöver hjälp med emailscript som skickar ut via jmail. 

Hade lite tid över så jag fixade ihop ett.

sendtolista.asp
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<html\>
\<head\>
\<title\>Jmail - Emaillista\</title\>
\</head\>

\<body\>
\<%
If Request.Form ("mess") = "" then
%\> 

\<Form Action="sendtolista.asp" Method="POST"\>
\<table border="0"\>

\<tr\>
\<td\>Ditt namn:\</td\>
\<td\>\<INPUT Id="namn1" Name="namn1" size="40" value=""\>\</td\>
\</tr\>

\<tr\>
\<td\>Din emailadress:\</td\>
\<td\>\<INPUT Id="epost" Name="epost" size="40" Value=""\>\</td\>
\</tr\>

\<tr\>
\<td\>Ämne:\</td\>
\<td\>\<INPUT Id="subject" Name="subject" size="40" Value=""\>\</td\>
\</tr\>

\<tr\>
\<td valign="top" align="left"\>Meddelande:\</td\>
\<td\>\<TEXTAREA id="mess" name="mess" COLS=40 ROWS=5\>\</TEXTAREA\>\</td\>
\</tr\>

\<tr\>
\<td\>\</td\>
\<td\>\<INPUT TYPE="Submit" Value="Skicka" Id="Submitbutton" Name="Submit1"\>\</td\>
\</tr\>

\<table\>

\<br\>\<br\>

\<%else%\> 

\<%
Set databas = Server.CreateObject("ADODB.Connection")
databas.Open "((((!!!!!Databas koppling!!!!!))))"
set poster3=databas.execute("SELECT adress FROM lista")

SMTPen="((((!!!!!Din SMTP-sever!!!!!))))"
namnet=Request.Form ("namn1")
emailet=Request.Form ("epost")
bodytext=Request.Form ("mess")
amnet=Request.Form ("subject")

function nyrad(textstrang)
textstrang = Replace(textstrang, vbCrLf, "\<br\>")
nyrad = textstrang
end function

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

DO WHILE not poster3.EOF
JMail.addrecipientbcc poster3("adress")
poster3.movenext
LOOP

JMail.LazySend = false
JMail.ServerAddress = SMTPen 
JMail.SenderName = namnet
JMail.Sender = emailet
JMail.Subject = amnet
JMail.Body = "\<font face=""Verdana"" size=""2""\>" & nyrad(bodytext) & "\</font\>"
JMail.Priority = 3 
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 
JMail.ContentType = "text/html"
JMail.execute()

%\>

\<br\>\<br\>

\<center\>\<b\>Meddelandet har skickats\</b\>\<br\>\<br\>
\<a href="email_lista.asp"\>Tillbaks\</A\>
\</center\>

\<%
Set poster3 = Nothing
databas.Close
Set databas = Nothing
end if
%\>

\</FORM\>

\</body\>
\</html\>

Databasen:
Tabell: lista, Fält: adress (text)

Disskussionstråd: <http://cgi.webforum.nu/wf/Forum11/HTML/006340.html> 

\[Redigerat av fredrik99 den 17 sep 2001\]

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38223-emaillista-jmail