Sende mail til en gruppe
HejJeg er ved at oprette et nyhedsbrev og skal have sendt dette nyhedsbrev til alle i databasen(access). Hvordan får jeg alle emails trukket ud og hvordan får jeg dem adskilt + jeg vil gerne skjule emailadresserne så modtageren ikke kan se hvem der ellers får mail.
Min kode for den side hvor jeg skriver nyhedsbrevet:
dim emails
dim Email
dim dbConn
dim rs
Set dbConn = Server.CreateObject("ADODB.Connection")
strDSN = strPlacering
strSql = "SELECT Email FROM nyhedsbrev"
dbConn.Open strSql
rs.Open strSql, dbConn, adOpenForwardOnly
while not(rs.EOF)
emails = rs.fields("Email")
rs.movenext
wend
rs.close
set rs = nothing
dbConn.close
set dbConn = nothing
%>
<center>
<table cellpadding="0" cellspacing="0" width="100%">
<tr><td>
<h2>Opret nyhedsbrev for Struer Museum</h2>
<br>
<form action="send.asp" name="nyhed" method="post">
'her skal mail adresserne så vises
<input type="text" name="emails" value=" <%=Email%>">
<input type="text" name="titel" value="" size="30">
<br><br>
<textarea name="indhold" rows="10" cols="60" wrap="hard"></textarea>
<br><br>
<input type="text" name="titel2" value="" size="30">
<br><br>
<textarea name="indhold2" rows="10" cols="60" wrap="hard"></textarea>
<br><br>
<input type="text" name="titel3" value="" size="30">
<br><br>
<textarea name="indhold3" rows="10" cols="60" wrap="hard"></textarea>
<br><br>
<input type="submit" name="sendbrev" value=" Send ">
<input type="reset" name="nulstil" value=" Nulstil ">
</form>
Min kode for send.asp
<%@LANGUAGE="VBSCRIPT"%>
<%option explicit%>
<!-- #include file="connection.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
dim titel1
dim indhold1
dim titel2
dim indhold2
dim titel3
dim indhold3
dim emails
emails = Request.Form("emails")
titel1 = Request.Form("titel1")
indhold1 = Request.Form("indhold1")
titel2 = Request.Form("titel2")
indhold2 = Request.Form("indhold2")
titel3 = Request.Form("titel3")
indhold3 = Request.Form("indhold3")
set msg = server.CreateObject("JMail.Message")
msg.Logging = true
msg.Silent = true
msg.From = "mail@struermuseum.dk"
msg.FromName = "Struer Museum"
msg.AddRecipientBCC emails
msg.Subject = "Nyhedsbrev fra Struer Museum"
msg.Body = "<table width=""300"" border=""0""><tr><td bgcolor=""silver"">" & titel1 & "<br><br>" & indhold1 & "</td></tr>" &_
"<tr><td>" & titel2 & "<br><br>" & indhold2 & "</td></tr>" &_
"<tr><td bgcolor:""silver"">" & titel3 & "<br><br>" & indhold3 & "<br><br>Se mere på vores website" &_
"<a href=""www.struermuseum.dk</a></td></tr></table>"" target="_blank">http://www.struermuseum.dk"">www.struermuseum.dk</a></td></tr></table>"
%>
<table align="center">
<tr><td><h2><font color="#660000">Nyhedsbrevet er sendt med succes!
<%
if not msg.Send("localhost") then
Response.Write "<pre>" & msg.Log & "</pre>"
else
Response.Redirect("send.asp")
end if
%>
</font></h2>
<br><a href="../main.htm">Tilbage</a>
</td></tr>
</table>
</body>
</html>
håber en eller anden kan hjælpe.
celine
