<%
Function SendJmail(emailto,Title,Mailbody)
'Function SendJmail(emailto,email,emailname,Title,Mailbody,emailserver,user,pass)
emailserver="smtp.163.com"
user="luqingkkk@163.com"'這里填郵箱用戶名
pass="******"'這里填郵箱密碼
email="luqingkkk@163.com"'這里填郵箱用戶名
emailname="灝洋網(wǎng)"'發(fā)信人姓名
replytos="luqingkkk@163.com"'指定回復(fù)人EMAIL
Set jmail = server.CreateObject("Jmail.Message") '創(chuàng)建對(duì)象
jmail.Silent = true '一般不用改
jmail.Charset ="gb2312" '信件的語言編碼
jmail.ContentType = "text" '信件的格式html或純文本
jmail.From = ""&email&"" '發(fā)信人郵箱
jmail.FromName = ""&emailname&"" '發(fā)信人姓名
jmail.Subject = Title '信件主題
jmail.AddRecipient ""&emailto&"" '收信人地址
jmail.ReplyTo=replytos
jmail.Body = Mailbody '信件正文
jmail.MailServerUserName = ""&user&"" '服務(wù)器登陸用戶名(您的郵件地址)
jmail.MailServerPassWord = ""&pass&"" '服務(wù)器登陸密碼(您的郵件密碼)
jmail.Send(""&emailserver&"") '服務(wù)器地址
' jmail.AddAttachment (replace(server.MapPath("/test.doc"),"",""))
jmail.Close:Set jmail = nothing
End function
call SendJmail("58375596@qq.com","你好","123")
%>
