文件1 - JMailUploadAutoForm.asp

这是个类似jmail自动发邮件的例子，也可以带附件。可以同时上传多个文件

文件2 - JmailUploadAutoFormProcess.asp

<%

Set upload = Server.CreateObject( "w3.Upload" )

Set JMail = Server.CreateObject("JMail.SMTPMail")

' 检查附件并加入邮件

' 所有其他的form元素被加到邮件里

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

else

JMail.appendtext( upload.form( i ).name & ": " & upload.form( i ).item & vbcrlf )

end if

next

'得到form变量，用上传组件

Name = upload.Form("name")

SenderEmail = upload.Form("email")

Subject = "Regarding " & upload.Form("subject")

Recipient = upload.Form("recipient")

'输入你的SMTP-server

JMail.ServerAddress = "mail.duplo.org"

JMail.Sender = Senderemail

JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Priority = 3

JMail.Execute

%>

eMail sent