Översättas till JMAIL

TikMedlem sedan juli 2002108 inlägg

Frågan17 aug. 2002 19:53#1

Är det någon som kan översätta det ?

'******************* skickar mail ************
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.BodyFormat = 0
Dim strHTML
strHTML = "<HTML>"
strHTML = strHTML & "<Head>"
strHTML = strHTML & "</Head>"
strHTML = strHTML & "<Body>"
strHTML = strHTML & "Hej!"
strHTML = strHTML & "Annons Tackar Dig
för Din
inlagda annons
("&request.form("rubrik")&")"
strHTML = strHTML & "AnnonsID:
"&recset("AnnonsID")&" "
strHTML = strHTML & "Lösenord:
"&recset("Losenord")&""
strHTML = strHTML & "Mvh/Annons"
strHTML = strHTML & "</Body>"
strHTML = strHTML & "<HTML>"

Set ObjSendMail = CreateObject("CDONTS.NewMail")

With ObjSendMail
.From = "annons@hotmail.com"
.To = request.form("epost1")
.subject = "Viktigt gällade din annons"

.MailFormat = cdoMailFormatMIME
.BodyFormat = cdoBodyFormatHTML
.Body = strHTML
.Send
End With

Set ObjSendMail = Nothing

'*********************************************

MVH
Johan