asp Jmail發送郵件的示例2

把以下全部代碼內容保存為jmail.asp文件，里面的郵箱信息修改為自己的即可

<%@ Language=VBScript %>

<%

'==================================================

' 參數設置

'==================================================

'修改收信人電子郵件地址，表單里的內容將發送到這個信箱中

myemail ="test@test.com"

'修改收信人姓名

myname ="我的公司"

'修改SMTP服務器

smtpserver ="smtp.test.com"

'修改SMTP服務器的用戶名和密碼

smtpuser ="test@test.com"

smtppwd ="123456"

'與相應SMTP服務器對應的郵件地址

'很多SMTP服務器除了要驗證用戶名和密碼外，還要驗證發件人地址，

'比如163.net的SMTP服務器在檢查發信人郵件地址是不是以163.net

'結尾，否則不予發送，因此，使用相應的信箱做為發信人信箱是必要的

smtpemail ="test@test.com"

'==================================================

' 程序開始

'==================================================

tname =Request("t1")

temail =Request("t2")

tother =Request("t3")

tsubject =Request("t4")

tbody =Request("t5")

if tname <> "" and temail <> "" then

set jmail=server.CreateObject ("jmail.message")

jmail.Silent =true

jmail.Charset ="gb2312"

if smtpemail <> "" then

jmail.From ="test@test.com"

else

jmail.From =temail

end if

jmail.FromName =tname

jmail.ReplyTo =temail

jmail.Subject ="網上提交：" & tsubject

jmail.Body =tbody & vbcrlf & vbcrlf & "聯系方式：" & tother

jmail.AddRecipient myemail,myname

jmail.MailServerUserName =smtpuser

jmail.MailServerPassWord =smtppwd

isgo=jmail.Send(smtpserver)

if isgo then

msg="提交成功！謝謝您的支持。"

else

msg="發送失敗！請檢查您的郵件地址是否填寫正確。"

end if

jmail.Close

set jmail=nothing

end if

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>與我司聯系</title>
</head>
<style type="text/css">

</style>
<body>
<form action=jmail.asp><%=msg%>
<br>您的姓名：
<br><input name=T1 size=29>
<br>電子郵件：
<br><input name=T2 size=29>
<br>聯系方式：
<br><input name=T3 size=29>
<br>文章主題：
<br><input name=T4 size=29>
<br>文章正文：
<br><textarea rows=6 cols=28 name=T5>
</textarea>
<br><input type="submit" value="確定">
</form>
</body></html>