Send email til modtager fra database

se evt http://www.serverobjects.com/comp/Aspmail4.htm for mail komponent

Indlaeg_item = Request(\"indlæg\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"dindb.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
strSQL = \"SELECT * FORM tabelnavn WHERE indlaegID  = (\" & Indlaeg_item & \")\"
Set rs = myConn.Execute(strSQL)


Do While NOT rs.EOF

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.FromName  = \"Dit FOrum\"
Mailer.FromAddress= \"forum@forum.dk\"
Mailer.RemoteHost = \"mailhost.ditforum.dk\"
Mailer.AddRecipient rs(\"navn\"), rs(\"email\")
Mailer.Subject    = \"Indlæg fra Forum.dk\"
Mailer.BodyText  = \"Hej \"& rs(\"navn\") & \" & VbCrLf & \"Der er kommet et indlæg!\"
if Mailer.SendMail then
  Response.Write \"Mail sent...\"
else
  Response.Write \"Mail send failure. Error was \" & Mailer.Response
end if


rs.Movenext
Loop

rs.CLose
Set rs = Nothing


Så skriv dennefil.asp?indlæg=idnr og så skulle mail\'sne gerne være sendt ud!

mange tak jeg kigger lige på det, og vender tilbage senere.

OK!

Je har lavet denne fil:

<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
conStr = \"Provider=Microsoft.Jet.OLEDB.4.0;\"
%><!--#INCLUDE FILE=\"../include/db.inc\" --><%
objConn.Open conStr
Set rs = Server.CreateObject(\"ADODB.Recordset\")
sql = \"Select * from forumindlaeg where id = \" & Request.QueryString(\"id\") & \"\"
rs.Open sql, objConn, 1, 3

Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.Host = \"mail.12tri.dk\"
Mail.From = \"Forum@12tri.dk\"
Mail.FromName = \"12TRI - Forum\"
Mail.Subject = \"12TRI: \" & rs(\"overskrift\")
Mail.Body = \"Hej <br><br> Der er blevet svaret på indlægget: \" & rs(\"overskrift\") & \"<br><br> Du kan læse svaret på denne side: <a href=\'www.12tri.dk/forum/show.asp?id=\" & rs(\"id\") & \"\'>www.12tri.dk/forum/show.asp?id=\" & rs(\"id\") & \"</a><br><br> Venlig hilsen 12TRI\"

sql = \"Select * from forummail where indlaegid = \" & Request.QueryString(\"id\") & \"\"

Do while not rs.BOF or rs.EOF

Mail.AddAddress \"\" & rs(\"mail\")
On Error Resume Next
Mail.Send

rs.MoveNext
Loop
rs.Close
Set rs = Nothing
objconn.close
response.Redirect \"show.asp?id=\" &  Request.QueryString(\"id\")
%>

Hvordan får jeg mine linieskift og links tli at virke i mailen ???

Udskfite Mail.Body med Mail.HTMLBody ! Så virker dine HTML koder!

mange tak, men er det en sikker metode, jeg mener kan alle se mine mails?

Dine mails?!? Nej, da Mail.HTMLBody gør bare sådan at Outlook handler email\'en som en HTML side...

Ja netop - Outlook handler email\'en som en HTML side..., men hvad med alle andre mail programmer stationære som online ???

Hotmail og andre kan ikke håndtere HTML i email. Nogle få Onlineservices kan dog! Men så må man jo vælge om man vil have en grim alm. mail eller med HTML......

hvad gør eksperten, man kan da godt læse deres mail med links osv via eks solmail.dk ?

Ja, men det er fordi de bare har skrevet http://www.eksperten.dk ... Ikke <A HREF=\"......, så finder services (EKs.: solmail.dk) selv ud af det er en URL og laver det til en <A HREF=\"....... Derfor...

så kan jeg vel også gøre sådan, det virker jo fint, ik\'

Jo det kan du også....

fint tak for hjælpen

Thx for poinz!