我要评论如何用组件实现自动发送电子邮件？
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]
发表评论