MailFromName="客戶"
'SmtpFlag="0"
MailSubject="設計咨詢"
'ToMail收件人
'subject主題
'MailBody郵件內容
'userName發件人郵箱用戶名
'passWord發件人郵箱密碼
'FromMail發件人郵箱地址
'FromSMTP發件人郵件服務器
'SecretMail密件收件人
'ChaoSongMail抄送收件人
'appendMessages追加信件的正文內容
'調用SendMail (ToMail,subject,MailBody,userName,passWord,FromMail,FromSMTP,SecretMail,ChaoSongMail,appendMessages)
'成功返回1
'E_Server = "smtp.163.com" ''發件服務器
'E_ServerUser = "xxxx@163.com" ''登錄用戶名
'E_ServerPass = "xxxxx" ''登錄密碼
'E_SendManMail = "xxx@163.com" ''發件人郵件地址 'E_SendManName = "系統管理員" ''發件人姓名
function SendMail()
Dim Jmail
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '發送編碼
Jmail.ContentTransferEncoding = "base64"
Jmail.Encoding = "base64"
Jmail.ISOEncodeHeaders = false
jmail.ContentType="html/text" jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3'普通郵件
Jmail.MailServerUserName = "自己郵箱帳號" '郵箱用戶名,需要根據實際修改
Jmail.MailServerPassword = "密碼" '郵箱密碼,需要根據實際修改
Jmail.From = "帳號"
Jmail.Subject = "主題"
Jmail.AddRecipient("帳號")
'JMail.AppendHTML msg
JMail.Body=mailcontent
'JMail.AddCustomAttachment server.MapPath("../fdcpx/images/1.gif"), "image/gif" '添加用戶定義的信件標頭。 JMail.AddRecipientBCC( "收件人郵箱" )'密件收件人
JMail.AddRecipientCC( "收件人郵箱" )'抄送收件人
'JMail.AppendBodyFromFile "c:\\ss.rar" '將文件作為信件正文
jmail.AddAttachment Server.mappath(formPath&newname)
if appendMessages="" or isnull(appendMessages) then
else
JMail.AppendText( "追加信件的正文內容，比如增加問候語或者其它信息" )'追加信件的正文內容，比如增加問候語或者其它信息。
end if
Jmail.Send("smtp.163.com") 'SMTP服務器,需要根據實際修改
Set Jmail=nothing
SendMail=1
end function
SendMail%>