如何用组件实现自动发送电子邮件?
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-1if upload.form( i ).isFile thenset attachment = upload.Form( i )JMail.AddCustomAttachment attachment.filename, attachment.item
\’ 检查附件并加入邮件.所有其他的form元素被加到邮件里.elseJMail.appendtext( upload.form( i ).name & \”: \” & upload.form( i ).item & vbcrlf )end ifnextName = 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 = SenderemailJMail.Subject = SubjectJMail.AddRecipient RecipientJMail.Priority = 3JMail.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]