Avatar billede stengaard Praktikant
07. november 2004 - 18:17 Der er 6 kommentarer og
1 løsning

kan man skjule mailadresser i et nyhedsbrev man sender ud til man

jeg ville hører hvordan man eventuelt kan skjule alle de mail adresser der modtager et nyhedsbrev på mit domain
Avatar billede cpccorp Juniormester
07. november 2004 - 18:19 #1
Ved at sætte det ind i BCC-feltet
Avatar billede stengaard Praktikant
07. november 2004 - 18:22 #2
ok og hvordan gør man det
Avatar billede bufferzone Praktikant
07. november 2004 - 18:22 #3
Ved at bruge en list server, der udsender en mail pr modtager. En sådan list server er tunet til nyhedsbreve og anden masseudsendelse af mail
Avatar billede stengaard Praktikant
07. november 2004 - 18:23 #4
hvis dette er scriptet som virker med alle adresserne fra databasen

<%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"))
priority = Request.Form("priority")
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")("subject") = subject
Response.Cookies("Nyhedsbrev")("modtager_liste") = modtager_liste
Response.Cookies("Nyhedsbrev").Expires = Date+365

Set mail = Server.CreateObject("JMail.SMTPMail") 'Opretter objekt af JMail-komponent
With mail
.ServerAddress = mailserver
.Sender = afsender_mail
.SenderName = afsender_navn
.Subject = subject
.Body = body
.Priority = priority

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
.AddRecipient(rs("email"))
Response.Write "Sender e-mail til: " & rs("email") & "<br />"
rs.MoveNext
Loop
Else
Response.Redirect("mail_write.asp")
End If
Conn.Close
Set Conn = Nothing
If modtager_liste <> "" Then
.HideRecipients = modtager_liste
End If
.Execute() 'Sender e-mails
mail.Close()
End With
Set mail = Nothing
Response.Write "<p>Færdig! - Nyhedsbrev sendt</p>"
%>
Avatar billede amews_aj Nybegynder
07. november 2004 - 18:26 #5
Nu er jeg ekstrem dårlig til ASP men i PHP bruger jeg selv bare en lykke der henter hver enkelt email fra en mysql database, og sender hver mail enkeltvis. Denne metode kan man dog kun bruge hvis man ikke har alt for mange adresser at sende til, Da det tager lidt tid med den lykke. Måske kan du selv lave en i ASP
Avatar billede fennec Nybegynder
08. november 2004 - 08:15 #6
Du skal bare udskifte:
.AddRecipient(rs("email"))

med:
.AddRecipientBCC(rs("email"))
Avatar billede stengaard Praktikant
08. november 2004 - 19:04 #7
jeg takker for hjælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester