Jmail寄信

----------------------------------------------------------------------------
form.htm
----------------------------------------------------------------------------

連絡資料填寫　*為必填區

*姓名：
*電話：
*主題：
*E-Mail：
*連絡事項：

--------------------------------------------------------------------------------
jmail.asp
--------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" %>
<%
dim username, e_mail, tel, memo
username=Trim(request("username"))
e_mail=Trim(request("e_mail"))
tel=Trim(request("tel"))
memo=Trim(request("memo"))
title=Trim(request("title"))
%>



<%
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "xxx@xxx.xxx", "yourname" '此處為收信人的電子郵件位址
jmail.From = "you@name.com.tw" '此處為寄信人的電子郵件位址

jmail.ISOEncodeHeaders = false
jmail.ContentTransferEncoding = "base64"

jmail.Subject = "[JMail測試]--" & title
jmail.Body = ""

' 將圖片附檔夾入信件中
'contentId = jmail.AddAttachment("c:picture.gif")

' 製作信件 HTML 本文
jmail.HTMLBody = ""
'jmail.appendHTML "姓名：" & username & "
電話：" & tel & "
電子郵件：" & e_mail & "
連絡事項：
" & memo
jmail.appendHTML "嗨!!這有一張圖片:
"
'jmail.appendHTML ""
jmail.appendHTML "

"
jmail.Send( "" ) '指定送信伺服器 SMTP ，空白即不指定

%>
信件寄出

引用通告地址: 點擊獲取引用地址