台灣最大程式設計社群網站
線上人數
696
 
會員總數:244666
討論主題:188768
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> jamil範例教學
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
jamil範例教學
價值 : 0 QP  點閱數:3242 回應數:0

樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
這是別人post的好像是: A-Man 呀!

好像很多人要,我就post在這裡了呀!

這是西風的jamil範例

轉貼出來讓不知道如何使用附檔秀圖的人看看

<HTML>

<BODY>

<%

'建立jmail物件

Set jmail = Server.CreateObject("JMail.Message")

'設定收件人信箱

jmail.AddRecipient "double_dragon@kimo.com.tw"

'設定寄件人信箱

jmail.From = "double_dragon@kimo.com.tw"

'設定寄件主旨

jmail.Subject = "Here's some graphics!"

'設定寄信內容

jmail.Body = "A nice picture if you can read HTML-mail."



' The return value of AddAttachment is used as a

' reference to the image in the HTMLBody.

'設定寄件附檔(可以用不同變數設很多個,true為夾圖時不在信後面秀出)

contentId = jmail.AddAttachment("c:\adsl\img\working.gif", True)



' As only HTML formatted emails can contain inline images

' we use HTMLBody and appendHTML

' 設定郵件的html內容

jmail.HTMLBody = "<html><body><font color=""red"">Hi, here is a nice picture:</font><br>"

'增加html內容和設定使用郵件附檔的方法

jmail.appendHTML "<img src=""cid:" & contentId & """>"

jmail.appendHTML "<br><br>good one huh?</body></html>"



' But as not all mailreaders are capable of showing HTML emails

' we will also add a standard text body

'設定郵件內容(不能讀html格式時才會秀出)

jmail.Body = "Too bad you can't read HTML-mail."

'增加一般文字版郵件內容

jmail.appendText " There would have been a nice picture for you"

'寄出信件(所使用的smpt)

jmail.Send("ms6.hinet.net")

'寄完信後秀出的訊息

%>

Email sent! </BODY>

</HTML>


以下是元件下載處

Jmail4.1

http://www.aspcn.com/download/w3JMail41Personal.exe (大陸)


--------------------------------------------------------------------------------

第1篇回應: A-Man 來自 203.77.126.62 貼於 2000/12/8 11:44

這是西風板上另一個範例的說明


mail_server = "172.16.15.1:2525" 

set smtp=server.createobject("jmail.smtpmail") '建立jmail物件

smtp.serveraddress = mail_server 'smpt設定

smtp.contenttransferencoding = "8bit" '郵件傳送方式

smtp.charset = "big5" '郵件語言編碼方式

smtp.contenttype = "text/html" '郵件內容格式

smtp.encoding = "base64" '郵件內容編碼方式

smtp.mimeversion = "1.0" 'mime版本

smtp.sender = "ux129@rsea.gov.tw" '寄件人信箱

smtp.sendername = "電子公報管理員" '寄件人名稱

smtp.subject = "工程材料事業部電子公報" '郵件主旨

smtp.priority=3 '郵件等級

'讀取資料庫作為信件內容

strsql = "select * from message where sn=" & request("sn")

set rs = server.createobject("adodb.recordset")

rs.open strsql,session("connect"),2,2,1

'將斷行符號替換

text = replace(rs("content"),vbcrlf,"<br>")

'將內容套進表格中

content = "<table border=""0"" width=""400"" align=""center"">"

content = content & "<tr><td>" & text & "</td></tr>"

content = content & "<tr><td> </td></tr>"

content = content & "</table>"

'關閉資料庫

rs.close:set rs=nothing



'設定寄信內容

smtp.body = content



'讀取資料庫內的收件人信箱

strsql = "select * from enews where isorder=true"

set enews = server.createobject("adodb.recordset")

enews.open strsql,session("connect"),2,2,1

while not enews.eof

smtp.addrecipient enews("e_mail")

enews.movenext

wend


'將信件寄出

smtp.execute


'關閉物件

set smtp=nothing


'轉至發信結束頁

'response.redirect "message.asp"


--------------------------------------------------------------------------------

第2篇回應: A-Man 來自 203.77.126.62 貼於 2000/12/8 17:00

各元件的乾脆整理在一起好了,aspemail的註冊版本,夾檔秀出方式

mail.addembeddedimage "c:\dir\bk.gif", "my-image"

mail.body="<html><body background=cid:my-image>...</html>"
本篇文章發表於2001-03-20 00:00
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.