<% Dim CR Dim MailText Dim oCDONTSMail CR = Chr(10) & Chr(13)
Set oCDONTSMail = CreateObject("CDONTS.NewMail")
oCDONTSMail.From= "emailer@myapp.com" oCDONTSMail.To= session("mailto") oCDONTSMail.Cc= "info@visualbuilder.com,webmaster@visualbuilder.com " oCDONTSMail.Subject="automated email"
'this line below is for sending the email attachment
oCDONTSMail.AttachFile "C:\InetPub\wwwroot\myapp\files\" & session("filename")
MailText = "This is an automated email from myapp " & CR MailText = MailText & "More text " & CR MailText = MailText & " And more text "
oCDONTSMail.Body= MailText oCDONTSMail.Send
set oCDONTSMail=nothing%>
|