if userip = "" then userip = request.servervariables("remote_addr") '獲得真實ip
set jmail = server.createobject("jmail.message")
jmail.silent = true
jmail.charset = "gb2312" '字符集，預設為"us-ascii"
jmail.isoencodeheaders = false
jmail.mailserverusername = "[email protected]" '發信郵箱帳號
jmail.mailserverpassword = "*******" '發信郵箱密碼
jmail.from = "[email protected]" '發信人的郵件位址
jmail.fromname = "流雲" '發信人的名字
jmail.subject = mail_subject '設定郵件的標題
'jmail.replyto = "[email protected]" '指定別的回信位址
jmail.priority = 1
jmail.addheader "originating-ip",userip '新增使用者定義的信件標頭
jmail.addrecipient(mail_to) '收信人郵件位址
jmail.body = mail_body '信件正文
jmail.send("**tp.163.com") '**tp位址
jmail.close()
set jmail = nothing
response.write "send ok."
end sub
call sendmail ("[email protected]","發信測試.","hi,現在好吧!!!")
%>
JMail元件的使用
在asp程式中用jmail發郵件的比較多，主要是因為多數虛擬主機支援他，其它的支援的較少。下面是乙個jmail發郵件的例子 on error resume next dim jmail,contentid set jmail server.createobject jmail.message jma...
ASP元件應用例項
1 vb6.0新建工程activex dll，引用 microsoft active server pages object library 和 microsoft activex data objects 2.1 library 工程名改為mydll，將類模組的名稱改為myclass，cls檔案內...
JMail傳送郵件元件用法
先看乙個簡單的例子 jmail4.3 應用事例 4.3 以前引數差不多 建立傳送郵件的物件 jmail4.0 server.createobject jmail.tpmail set jmail server.createobject jmail.message jmail.silent true ...