JMail og ASPsmartUpload

Et eks.. Jeg ved ikke helt om det virker men det er da en start.:

<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload
'Angiv stien til hvor billedet skal gemmes
mySmartUpload.Save("d:\homes\wwwroot\db\")


Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "(web)mail.DINSIDE.dk"

'Afsender
JMail.Sender = "admin@minside.dk"
JMail.Subject = "Et billede til dig"

' Get the recipients mailbox from a form.
JMail.AddRecipient mySmartUpload.Form("email")

'Body teksten
JMail.Body = "Here you go. Your request has been approved"

' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 1

JMail.AddAttachment mySmartUpload.Files("myFILE").Name

' Send it...
JMail.Execute
Set JMail = Nothing
%>
<html>
<body>

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="sendmail.asp">
<TABLE>
<TR><TD>Send mailen til, mail adr: </TD><TD><INPUT TYPE="TEXT" NAME="email"></TD></TR>
<TR><TD>Attachment:</TD><TD><INPUT TYPE=FILE NAME="myFILE"></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=SUBMIT VALUE="Send Mail" name="Send"></TD></TR>
</TABLE>
<INPUT TYPE=HIDDEN NAME="Send" VALUE="Send">
</FORM>
</body>
</html>

eagleeye tak for forsøget, men det virker ikke helt efter hensigten... hvis der ikke ønskes at vedhæfte en fil, skal upload funktionen jo ikke gennemføres... hvis du forstår?!

Så må man rette dinne linier:

mySmartUpload.Save("d:\homes\wwwroot\db\")

Til:

addFile = false
For each file In mySmartUpload.Files
  If not file.IsMissing Then
    file.SaveAs("d:\homes\wwwroot\db\" & file.FileName)
    addFile = true
  end if
next




Samt denne linie:
JMail.AddAttachment mySmartUpload.Files("myFILE").Name


Rettes til:

if addFile = true then
  JMail.AddAttachment mySmartUpload.Files("myFILE").Name
end if


Se evt mere om isMissing her: http://www.hostingsolutions.it/helpdesk/aspSmartUpload/Sample2.asp