Asp jmail發送郵件源代碼。

首先，已經下載了下壹個jmail服務器組件作為jmail發送郵件的源代碼

MailFromName= "客戶"

SmtpFlag="0 "

MailSubject= "設計咨詢"

郵件收件人

主題主題

郵件正文消息內容

用戶名發件人的郵箱用戶名。

密碼發件人的郵箱密碼。

發件人的電子郵件地址

FromSMTP發件人郵件服務器

秘密郵件密件抄送收件人

超送郵件抄送給收件人

AppendMessages附加信件的正文。

調用sendmail(郵件，主題，郵件正文，用戶名，密碼，frommail，from SMTP，secret mail，chaosongmail，append messages)。

1成功返回。

E_Server = "smtp.163.com " ' '發送服務器。

e _ server user = " xxxx @ 163 . com " ' '登錄用戶名。

E_ServerPass = "xxxxx " ' '登錄密碼

E _ sendman mail = " XXX @ 163 . com "'發件人電子郵件地址' E_SendManName = "系統管理員" '發件人姓名。

函數SendMail()

Dim Jmail

set Jmail = server . createobject(" Jmail。消息”)

Jmail。Charset = "GB2312 " '發送代碼

Jmail。ContentTransferEncoding = " base64 "

Jmail。Encoding = "base64 "

Jmail。等編碼頭=假

jmail。ContentType="html/text" jmail。ISOEncodeHeaders ="False "

Jmail。無聲=真實

Jmail。優先= 3 '普通郵件

Jmail。MailServerUserName = "自己的郵箱賬號"'郵箱用戶名，需要根據實際情況修改。

Jmail。MailServerPassword = "password " '郵箱密碼，需要根據實際情況修改。

Jmail。From = "賬號"

Jmail。Subject = "主題"

Jmail。AddRecipient("帳號")

JMail。AppendHTML消息

JMail。Body=mailcontent

jmail . addcustomattachment server . mappath("../fdcpx/images/1.gif))，" image/gif " '添加用戶自定義的信頭。JMail。AddRecipientBCC("收件人的郵箱")'密件抄送收件人

JMail。AddRecipientCC("收件人的郵箱")'抄送給收件人。

Jmail。Appendbodyfromfile "c: \ \ ss.rar " '將文件作為信函的正文。

jmail。add attachment server . mappath(formPath & amp；新名稱)

如果appendMessages= " "或isnull(appendMessages ),則

其他

JMail。AppendText("添加信函正文，如添加問候語或其他信息")'添加信函正文，如添加問候語或其他信息。

如果…就會結束

jmail . send(" SMTP . 163 . com ")' SMTP服務器，需要根據實際情況進行修改。

設置Jmail =無

SendMail=1

結束功能

SendMail % & gt