JMail Send mail code

jmail| Send Mail On Error Resume Next
Dim JMail, ContentID
Set JMail = Server.CreateObject ("Jmail.message")
Jmail.charset = "gb2312"



Jmail.from = "Goaler@goalerCN.com"
Jmail.fromname = "Goaler"
Jmail.subject = "JMail messages sent automatically"


Jmail.mailserverusername = "Goaler@goalerCN.com"
Jmail.mailserverpassword = "**********"


Jmail.priority = 3

Jmail.addheader "Originating-ip", Request.ServerVariables ("REMOTE_ADDR")


Friendemail= "User@163.com"
Jmail.addrecipient (Friendemail)

' Add attachment ' variable filename: The absolute address of the attachment file to ensure that the user IUSR_ the machine name has access permission "
' "Parameter setting is (True) No (False) is inline mode"
' ContentID = jmail.addattachment (Server.MapPath ("jmail.asp"), True)


Mailbody = mailbody & "Mailbody = Mailbody & "Mail Content"
Mailbody = mailbody & "</body>Jmail.htmlbody = Mailbody


Jmail.body = "Our mail is in HTML format, but your mail viewing software may not support ... "

' Send ' call format: Objjmail.send ([username:password@]smtpserveraddress[:P ort])
' Jmail.send ("mail.guxido.com")
Jmail.send ("mail.goalerCN.com")


Jmail.close ()
Set JMail = Nothing