On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject ( “JMail.M essage “)
JMail.Charset = “gb2312″ ‘mail Character Set The default is “U.S.-ASCII”
‘JMail.ISOEncodeHeaders = False’ whether I SO coding, which defaults to True

‘Sender information (available variable-assignment)
JMail.From = “goaler@goalerCN.com” ’sender addresses
JMail.FromName = “goaler” ’sender names
JMail.Subject = “JMail automatically sent mail” ‘theme mail

‘Identity Verification
JMail.MailServerUserName = “goaler@goale rCN.com ” ‘authentication by the user
JMail.MailServerPassword = “tomorrow.” ‘password authentication

‘Set priorities, ranging from 1 to 5, the greater the higher the priority, the three of the ordinary
JMail.Priority = 3

JMail.AddHeader “Originating-IP” Request.ServerVariables ( “REMOTE_ADDR”)

‘To a variable [email addressee : the addressee addresses -- can repeat the same statement to a number of
FriendEmail= "user@163.com" 'receivers mail addresses
JMail.AddRecipient (FriendEmail)

'Accession to the Annex [variable filename : Annex documents absolute address, IUSR_ machinery to ensure that users who have the permissions --
'[Parameter setting is the (True) No (False) -- Inline mode
'ContentId = JMail.AddAttachment (Server . MapPath ( "jmail.asp"), True)

'Main mail (HTML (letter to link the annex))
MailBody = MailBody & "" html>

"
MailBody = MailBody & "Mail"
MailBody = MailBody & "" php "
JMail.HTMLBody = MailBody

'Main mail (text)
JMail.Body = "Our mail using the HTML format. But check your mail software may not support ... "

'Send called Format : objJMail.Send ([username : password@]SMTPServerAddress[:Port]) —
‘JMail.Send ( “mail.guxido.com”)
JMail.Send ( “mail.goalerCN.com”)

‘Close and clear targets
JMail.Close ()
Set JMail = Nothing