01
<%
02
'smtp為郵件服務器名
03
'user為smtp郵件服務器上的郵件地址
04
'pwd為smtp郵件服務器上的郵件的密碼
05
'sendto為要發送的郵件地址
06
'from發件人名
07
'subject為主題
08
'body為郵件內容
09
function sendmail(smtp,sendto,from,user,pwd,subject,body)
10
Set jmail = Server.CreateObject("JMAIL.Message") '建立發送郵件的對象
11
jmail.silent = true '屏蔽例外錯誤，返回FALSE跟TRUE兩值j
12
jmail.logging = true '啟用郵件日志
13
'加上如下語句，否則還有可能出現亂碼的可能性：
14
jmail.Charset = "GB2312" '郵件的文字編碼為國標
15
jmail.ContentTransferEncoding = "base64"
16
jmail.Encoding = "base64"
17
jmail.ISOEncodeHeaders = false
18
19
'jmail.ContentType = "text/html" '郵件的格式為Html格式 -- 有此句則發送附件時為亂碼
20
jmail.AddRecipIEnt sendto '郵件收件人的地址
21
jmail.From = from '發件人的E-MAIL地址
22
jmail.MailServerUserName = user '登錄郵件服務器所需的用戶名
23
jmail.MailServerPassWord = pwd '登錄郵件服務器所需的密碼
24
jmail.Subject = subject '郵件的標題
25
jmail.Body = body '郵件的內容
26
'jmail.AddAttachment Server.MapPath("login.gif")'附件--不能有此句:jmail.ContentType = "text/Html"
27
'Jmail.AddAttachment Server.MapPath("b.rar") '否則附件會變成亂碼
28
jmail.Priority = 3 '郵件的緊急程序，1 為最快，5 為最慢， 3 為默認值
29
if jmail.send(smtp)=false then'執行郵件發送（通過郵件服務器地址）
30
sendmail=0
31
else
32
sendmail=1
33
end if
34
jmail.Close
35
end Function
36
37
'舉例
38
smtp1="smtp.163.com"
39
user1="你的郵箱@163.com"
40
pwd1="郵箱的密碼"
41
sendto1="要發送人的郵箱"
42
from1="你的郵箱@163.com" '要和user中的內容一樣
43
subject1="郵件的主題"
44
body1="郵件內容"
45
t=sendmail(smtp1,sendto1,from1,user1,pwd1,subject1,body1)
46
if t=1 then
47
response.write "發送成功"
48
else
49
response.write "發送失敗"
50
end if
51
%>
