以下為引用的內容：
<%
Set JMail = Server.CreateObject("JMail.Message")
'是否將信頭編碼成iso-8859-1字符集. 缺省是True
JMail.ISOEncodeHeaders = True
'如果JMail.silent設置為true,ErrorCode包含的是錯誤代碼
JMail.Silent = True
'設置標題和內容編碼，如果標題有中文，必須設定編碼為gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果發內嵌附件一定要注釋掉這行，重要！
JMail.From = "web@mail.skyhe.com" ' 發送者地址
JMail.FromName = "Skyhe System" ' 發送者姓名
JMail.MailServerUserName = "web" ' 身份驗證的用戶名
JMail.MailServerPassword = "123456" ' 身份驗證的密碼
'加入新的收件人
JMail.AddRecipient "kittow@mail.skyhe.com", "Mr.Example"
'JMail.AddRecipientBCC Email '密件收件人的地址
'JMail.AddRecipientCC Email '郵件抄送者的地址
JMail.Subject = "圖片測試?。?！"
JMail.Body = "A nice picture if you can read HTML-mail." '增加一個普通附件
JMail.AddAttachment(Server.MapPath("images/email.gif"))
'增加一個嵌入式附件
' The return value of AddAttachment is used as a
' reference to the image in the HTMLBody.
'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif"))
Dim contentId
contentId = JMail.AddAttachment("E:/images/email.gif") '只有HTML格式支持嵌入圖片附件，我們采用HTML格式的郵件內容
' As only HTML formatted emails can contain inline images
' we use HTMLBody and appendHTML
JMail.HTMLBody = "<html><body><font color=""red"">Hi, here is a nice picture:</font><br>"
JMail.appendHTML "<img src=""cid:" & contentId & """>"
JMail.appendHTML "<br><br> good one huh?</body></html>" '如果對方信箱不支持HTML格式郵件，我們仍需要給他一個友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you" JMail.Send( "mail.skyhe.com" )
JMail.Close()
Set JMail = Nothing
%> | 
