<% " mittentext
Dim MyCDONTSMail2
Dim HTML
Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "
HTML = HTML & "Exempel
"
HTML = HTML & "en textrad
HTML = HTML & "
HTML = HTML & ""
HTML = HTML & ""
MyCDONTSMail2.From= "mig@hemma.se"
MyCDONTSMail2.To="dig@borta.se"
MyCDONTSMail2.Subject="html-exempel"
MyCDONTSMail2.BodyFormat=0
MyCDONTSMail2.MailFormat=0
MyCDONTSMail2.Body=HTML
MyCDONTSMail2.Send
set MyCDONTSMail2=nothing
%>