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]