w3Upload Examples

Examples

 

Automated forms with multiple attachments

This example shows how to create an email which adds all form element values to the email body and attaches any files uploaded.

First comes the the form, this time with several file elements and quite a few ordinary form elements.

   JMailUploadMulti.asp

<html>
<head>
<title>emailform</title>
</head>
<body>
<font face="verdana, arial" size="2"><b>
<form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data">
   Complete this form and click the submit-button. We will answer your
   questions as soon as possible.
   <br><br>
   Your name <br>
   <input type="text" size="25" name="name"><br>

   Your email<br>
   <input type="text" size="25" name="email"><br>

   Recipient email <br>
   <input type="text" size="25" name="recipient"><br>

   State your business <br>
   <select name="subject" size="1">
    <option value="help">help
    <option value="tips">tips
    <option value="other">other
   </select>
   <br>

   OS <br>
   <input type="text" size="25" name="os"><br>

   Browser <br>
   <input type="text" size="25" name="browser"><br>

   Enter your question <br>
   <textarea name="question" cols="40" rows="15" wrap="PHYSICAL"></textarea>
   <br>
   <br>
   <br>

   Attachments<br>
   <input type="file" name="attachment1">
   <br>
   <br>

   Attachments<br>
   <input type="file" name="attachment2">
   <br>
   <br>

   Attachments<br>
   <input type="file" name="attachment3">
   <br>
   <br>
   <input type="submit" value="  Submit ">
</form>
</b></font>
</body>
</html>

Using the upload object we access the forms collection and iterate thru it and at the same time checks if the value is a file, if it is we attach it, if not then we add the value to the body of the e-mail.

   JmailUploadAutoFormProcess.asp

<%
Set upload  = Server.CreateObject ( "w3.Upload" )
Set JMail  = Server.CreateObject("JMail.SMTPMail")

' Check for attachments and add them to the email
' all other form elements are added to the body of the email
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

' Get the form variables, using the upload object
Name     = upload.Form("name")
SenderEmail = upload.Form("email")
Subject    = "Regarding " & upload.Form ("subject")
Recipient   = upload.Form("recipient")

' Below you should enter your own SMTP- server
JMail.ServerAddress = "mail.duplo.org"
JMail.Sender   = Senderemail
JMail.Subject   = Subject
JMail.AddRecipient Recipient
JMail.Priority  = 3
JMail.Execute
%>
<html>
<head>
<title>Dimac</title>
</head>
<body>
<BR>
<BR>
<p align="center"><font face="Arial, geneva" size="5">
eMail sent </font></p>
<center>
<font face="Arial, geneva" size="3">
Your email has been sent to <%= Recipient %><br>
<BR>
<BR>
<BR>

</font>

</center>
</body>
</html>