asp如何使用Jmail組件發送信息到指定郵箱

a=request(姓名)

aa=request(電話)

aaa=request(mail)

aaaa=request(yb)

aaaaa=request(dz)

b=request(bt)

bb=request(內容)

'上面是請求的數據，由普通表單提交過來即可。

DimJMail,contentId

SetJMail=Server.CreateObject(JMail.Message)

JMail.Charset=gb2312 '郵件字符集，默認為US-ASCII

'JMail.ISOEncodeHeaders=False '是否進行ISO編碼，默認為True

'發送者信息（可用變量方式賦值）

[email protected] '用於發送的郵箱

JMail.FromName=網站1 '發送者姓名

JMail.Subject=信箱a '郵件主題

'身份驗證

[email protected] '用於發送的郵箱

JMail.MailServerPassword=xxxxxxx '密碼

'設置優先級，範圍從1到5，越大的優先級越高，3為普通

JMail.Priority=3

JMail.AddHeaderOriginating-IP,Request.ServerVariables(REMOTE_ADDR)

'加入一個收件人【變量email：收件人地址】可以同一語句重複加入多個

JMail.AddRecipient([email protected])

'加入附件【變量filename：附件文件的絕對地址，確保用戶IUSR_????有訪問的權限】

'【參數設置是(True)否(False)為Inline方式】

'contentId=JMail.AddAttachment(filename,True)

'郵件主體（HTML(注意信件內鏈接附件的方式)）

JMail.HTMLBody=發信人姓名：&a&<br>電話：&aa&<br>mail：&aaa&<br>郵編：&aaaa&<br>聯繫地址：&aaaaa&<br>標題：&b&&nbsp;<br>

內容：&bb&<br>

'郵件主體（文本部分）

JMail.Body=我們的郵件採用了HTML格式，請點擊郵件下方HTML內容來查看詳細內容。

'發送【調用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】

sendok=JMail.Send(mail.xxx.com) '發送mail服務器

ifsendokthen

endstr=已經成功發送了郵件！

else

endstr=發送郵件失敗，可能是您填寫了錯誤的郵件地址。 <br/>&_

如果您確信沒有寫錯郵件地址，則可能是發信程序出了<br/>&_

故障，請與管理員聯繫！

endif

'關閉並清除對象

JMail.Close()

SetJMail=Nothing

%>

<%=endstr%>