here is a scrip that attaches the file from your server
Code:
<HTML>
<BODY BGCOLOR="white">
<H1>aspSmartMail : Sample 5</H1>
<HR>
<%
On error resume next
Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
' Mail Server
' ***********
mySmartMail.Server = "mail.yourdomain.com"
mySmartMail.ServerPort = 25
mySmartMail.ServerTimeOut = 35
' From
' ****
mySmartMail.SenderName = "Your Name"
mySmartMail.SenderAddress = "youremail@yourdomain.com"
' To
' **
mySmartMail.Recipients.Add "yourfriend0@anydomain.com", "Friend0's name"
mySmartMail.Recipients.Add "yourfriend1@anydomain.com", "Friend1's name"
' Carbon copy
' ***********
mySmartMail.CCs.Add "yourfriend2@anydomain.com", "Friend2's name"
' Blind carbon copy
' *****************
mySmartMail.BCCs.Add "yourfriend3@anydomain.com", "Friend3's name"
' Reply To
' ********
mySmartMail.ReplyTos.Add "yourfriend4@anydomain.com", "Friend4's name"
' Message
' *******
mySmartMail.Subject = "aspSmartMail Sample 5"
mySmartMail.Body = "This mail which has been sent with aspSmartMail."
' Parameters
' **********
mySmartMail.DateTime = "Wed, 23 febr 2000 12:00 +0600"
mySmartMail.Organization = "your Society Inc."
mySmartMail.XMailer = "Your Web Application"
mySmartMail.Priority = 1
mySmartMail.ReturnReceipt = false
mySmartMail.ConfirmRead = true
mySmartMail.ContentType = "text/plain"
mySmartMail.Charset = "us-ascii"
mySmartMail.Encoding = "base64"
' Attached file
' *************
mySmartMail.Attachments.Add Server.MapPath("\aspSmartMail\sample.txt"), false
' Send the message
' ****************
mySmartMail.SendMail
if err.number <> 0 then
response.write("Error n° " & err.number - vbobjecterror & " = " & err.description & "<br>")
else
Response.Write "aspSmartMail has sent your message with this file as attachment : <br>"
Response.Write mySmartMail.Attachments.Item(1).FilePathName
end if
set mySmartMail = nothing
%>
</body>
</html> 
07-04-2007, 04:12 AM
upload images to send as an email attachment using ASP 
Linear Mode
