Hej Igen
Her er den kode som jeg bruger:
<%
strSQL = "Select * from svar WHERE id = " & Request("id")
' Henter oplysninger fra en datebase
set rs = conn.execute(strSQL)
strSQL = "SELECT * FROM oplysning"
' Henter oplysninger fra en mere datebase
set op = conn.execute(strSQL)
Set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = True
msg.Silent = True
msg.From = op("email") 'Afsender e-mail
msg.FromName = op("navn") 'Afsenders Navn
msg.Charset = "iso-8859-1"
msg.AddRecipient rs("email") 'Modtagers email
msg.Subject = rs("skrift") 'Overskriften/emne/subject til mailen
msg.Body = "Hej " & rs("name") 'Modtagers navn
msg.Body = msg.Body & vbCrLf 'Mellemrum
msg.Body = msg.Body & vbCrLf 'Mellemrum
msg.Body = msg.Body & rs("besked") 'Teksten som spørgsmålet er
msg.Body = msg.Body & vbCrLf 'Mellemrum
msg.Body = msg.Body & vbCrLf 'Mellemrum
msg.Body = msg.Body & rs("svar") 'Svaret på spørgsmålet
msg.Body = msg.Body & vbCrLf 'Mellemrum
msg.Body = msg.Body & vbCrLf 'Mellemrum
msg.Body = msg.Body & "Med venlig hilsen"
msg.Body = msg.Body & vbCrLf 'Mellemrum
msg.Body = msg.Body & op("navn") 'Afsenders Navn
'msg.Send("smtp.mail.dk" ) 'TDC mail server
msg.Send("smtp.tele2.dk" ) 'Tele2 mail server
Response.write "Meddelelsen er nu sendt!"
Set msg = nothing
%>
Håber at du kan bruge det til noget.
Mvh
Martin Jørgensen
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials