您现在的位置是：网站首页> 编程资料编程资料
如何用组件实现自动发送电子邮件？_编程10000问_
2023-05-25
110人已围观
简介 如何用组件实现自动发送电子邮件？_编程10000问_
如何用组件实现自动发送电子邮件？
JMailUploadAutoForm.asp
撼雪喷云之动发送电子邮件
请填写好表单,点击发送!
您的姓名
电子邮件地址
接收邮件地址
您想...
咨询
问候
其它
主题
概述
请输入您的内容
附件1
附件2
附件3
发送">
感谢光临随风起舞!
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
%>
您的邮件已发送至<%= Recipient %>
[1]
