NEWSZW_HZH_BEGIN-->
如何用组件实现自动发送电子邮件？
JMailUploadAutoForm.asp
<html>
<body>
<font face="verdana, arial" size="2"><b>
<form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data">
<p> 撼雪喷云之动发送电子邮件 </p>
请填写好表单 , 点击发送 !
<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>
请输入您的内容 <br>
<textarea name="question" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<br>
<br>
附件 1<br>
<input type="file" name="attachment1">
<br>
<br>
附件 2<br>
<input type="file" name="attachment2">
<br>
<br>
附件 3<br>
<input type="file" name="attachment3">
<br>
<br>
<input type="submit" value=" 发送 ">
</form>
</b> 感谢光临随风起舞 !
</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">
邮件发送成功 !</font></p>
<center>
<font face="Arial, geneva" size="3">
您的邮件已发送至 <%= Recipient %><br>
<BR>
</font>
</center>
</body></html>
[1]
NEWSZW_HZH_END-->查看更多关于如何用组件实现自动发送电子邮件？_编程10000问的详细内容...