Nyhedsbrev - som IKKE skal skrive modtager adresser (asp-mail)
Hej Eksperter!Jeg har følgende kode som skal sende mit nyhedsbrev. Problemet er bare at når jeg sender mailen kan man se alle modtager adresserne på mailen. Det skal man IKKE kunne. Hvordan gør jeg det???
Håber der er en der kan hjælpe!
/jacobs1
---------------------------------------------
<body>
<a href="index.asp">Opret Nyhedsbrev</a> - <a href="vis.asp">Vis tilmeldte</a>
<br><br>
<%Dim afsender_mail, afsender_navn, mailserver, subject, body, priority, modtager_liste
afsender_mail = Trim(Request.Form("afsender_mail"))
afsender_navn = Trim(Request.Form("afsender_navn"))
mailserver = Trim(Request.Form("mailserver"))
subject = Trim(Request.Form("subject"))
body = Trim(Request.Form("body"))
modtager_liste = Trim(Request.Form("modtager_liste"))
Response.Cookies("Nyhedsbrev")("afsender_mail") = afsender_mail
Response.Cookies("Nyhedsbrev")("afsender_navn") = afsender_navn
Response.Cookies("Nyhedsbrev")("mailserver") = mailserver
Response.Cookies("Nyhedsbrev")("modtager_liste") = modtager_liste
Response.Cookies("Nyhedsbrev").Expires = Date+365
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = afsender_navn
Mailer.FromAddress = afsender_mail
Mailer.RemoteHost = "mail.domæne.dk"
Mailer.Subject = subject
Mailer.BodyText = body
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev")
If Not rs.EOF Then
Do While Not rs.EOF
Mailer.AddRecipient "",(rs("email"))
Response.Write "Sender e-mail til: " & rs("email") & "<br>"
rs.MoveNext
Loop
Else
Response.Redirect("index.asp")
End If
Conn.Close
Set Conn = Nothing
If modtager_liste <> "" Then
End If
if Mailer.SendMail then
else
Response.Write "Der skete en fejl: " & Mailer.Response
end if
Set mailer = Nothing
Response.Write "Færdig! - Nyhedsbrev sendt"
%>
</body>
</html>
