Mailsender, skal sende HTML
Hejsa.Jeg har fundet sådan et nyhedsbrevs script på nettet.
Det benytter sig af JMail.
Jeg har så modificeret det lidt så det kører med en WYSIWYG Editor istedet for et <textarea> og det virker faktsik fint.
Problemet er bare "senderen" tror jeg.. for når WYSIWYG editoren har lavet sit html og man sender det kan modtageren også _Kun_ se html koden og _ikke_ se resultatet ??
Selve Send scriptet.
------------------------------
<%
if request("mode") = "send" then
mailertype = 1
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\db.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * from mailingliste"
set send = conn.execute( SQL )
do while not send.eof
on error resume next
if mailertype = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "smtp.nordit.dk"
' mail config settings
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "???@??.??"
JMail.Subject = request("header")
JMail.AddRecipient send("email")
JMail.Body = request("message")
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
' Send it...
JMail.Execute
set JMail = nothing
elseif mailertype = 2 then
' importance = 0 ' lav
importance = 1 ' normal
' importance = 2 ' høj
Set mailObj = CreateObject("CDONTS.NewMail")
' send email med parametre : fra email, til email, header, besked, importance
mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("message"), importance
' slet reference til CDONTS object
Set mailObj = Nothing
end if
%>
<%
send.movenext
loop
conn.close
%>
HTML koden bliver "gemt" i message
Spørsmål kort og godt
Hvordan får jeg den til at sende HTML kode så modtageren også kan se HTML koden.
på forhånd tak
<\\izemate
