如何用組件實(shí)現(xiàn)自動發(fā)送電子郵件？

JMailUploadAutoForm.asp
html>
body>
font face="verdana, arial" size="2">b>
form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data">
p>撼雪噴云之動發(fā)送電子郵件/p>

請?zhí)顚懞帽韱?/SPAN>,點(diǎn)擊發(fā)送!

br>br>
您的姓名br>
input type="text" size="25" name="name">br>
電子郵件地址br>
input type="text" size="25" name="email">br>
接收郵件地址br>
input type="text" size="25" name="recipient">br>

您想...br>
select name="subject" size="1">
option value="help">咨詢
option value="hello">問候
option value="other">其它
/select>
br>
主題br>
input type="text" size="25" name="tipic">br>
概述br>
input type="text" size="25" name="resume">br>

請輸入您的內(nèi)容br>
textarea name="question" cols="40" rows="15" wrap="PHYSICAL">/textarea>
br>
br>
br>

附件1br>
input type="file" name="attachment1">
br>
br>
附件2br>
input type="file" name="attachment2">
br>
br>
附件3br>
input type="file" name="attachment3">
br>
br>
input type="submit" value="發(fā)送">
/form>
/b>感謝光臨隨風(fēng)起舞!
/font>
/body>/html>

JmailUploadAutoFormProcess.asp
%
Set upload = Server.CreateObject( "w3.Upload" )
Set JMail = Server.CreateObject("JMail.SMTPMail")

for i = 0 to upload.form.count-1
if upload.form( i ).isFile then
set attachment = upload.Form( i )
JMail.AddCustomAttachment attachment.filename, attachment.item

' 檢查附件并加入郵件.所有其他的form元素被加到郵件里.
else
JMail.appendtext( upload.form( i ).name ": " upload.form( i ).item vbcrlf )
end if
next

Name = upload.Form("name")
SenderEmail = upload.Form("email")
Subject = "Regarding " upload.Form("subject")
Recipient = upload.Form("recipient")

' 得到form變量,用上傳組件.

JMail.ServerAddress = "mail.intels.net"
' 輸入你的SMTP-server.

JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Priority = 3

JMail.Execute

%>
html>
body>
BR>
BR>
p align="center">font face="Arial, geneva" size="5">
郵件發(fā)送成功!/font>/p>
center>
font face="Arial, geneva" size="3">
您的郵件已發(fā)送至%= Recipient %>br>
BR>
/font>
/center>
/body>/html>

[1]