Emaillista - Jmail

fredrik99 · 2001-09-17, 21:46

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:[/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>
[/kod]

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]

2001-09-17, 21:46	#1
fredrik99 Medlem Registrerad: 2000-05-13 Ort: Skn Inlägg: 415 Lösningar: 1	Emaillista - Jmail 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:[/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> [/kod] 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] __________________ /F.

Trådverktyg
Visa utskriftsvänlig version E-posta den här sidan
Visningsalternativ
Linjär visning Växla till hybrid-visning Växla till trådad visning