Michael Tillgaard wrote in
dk.edb.internet.webdesign.serverside.asp:
> Jeg har database "breve" i den er der en tabel "modtagere" med
> div. email adresser. De der står i denne tabel skulle gerne
> modtage en mail når formen udfyldes.
> Hvordan får jeg hentet disse mail adresser ind? Jeg har kun
> mulighed for at bruge Jmail.
KLIP
Fik følgende til at virke:
Dim conn, rs, strsql, strconn
Dim strFrom, strSubject, strBody
Dim cmdData, strMailAddress
strFrom = "post@multibook.dk"
strSubject = request.form("overskrift")
strBody = request.form("teksten")
Set conn = Server.CreateObject("ADODB.Connection")
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" &
Server.MapPath("breve.mdb")
conn.open strconn
Set cmdData = Server.CreateObject("ADODB.Command")
cmdData.ActiveConnection = conn
strsql = "SELECT Email FROM modtagere"
cmdData.CommandText = strsql
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open cmdData, , 0, 2
rs.MoveFirst
While Not rs.EOF
strMailAddress = rs("Email")
Set msg = Server.CreateObject("JMail.Message")
msg.Logging = true
msg.Silent = true
msg.From = strFrom
msg.FromName = "Multibook.dk"
msg.AddRecipient "post@multibook.dk"
msg.AddRecipientBCC strMailAddress
msg.Subject = strSubject
msg.HTMLBody = strBody
msg.Send("mail.mailserver.dk")
Set msg = Nothing
rs.movenext
wend
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials