home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / cf / advsmtp / act_sendmail.cfm next >
Encoding:
ColdFusion Markup Language  |  2001-12-06  |  1.4 KB  |  48 lines
  1. <html>
  2. <head>
  3.     <title>AdvSMTP Component</title>
  4. </head>
  5. <body>
  6. <cfobject class="AdvSMTP.SMTP" action="CREATE" name="AdvSMTP">
  7. <cfset AdvSMTP.Bcc = #Form.bcc#>
  8. <cfset AdvSMTP.Body = #Form.Body#>
  9. <cfset AdvSMTP.Cc = #Form.cc#>
  10. <cfset AdvSMTP.LogFile = #Form.LogFile#>
  11. <cfset AdvSMTP.Logging = #Form.Logging#>
  12. <cfset AdvSMTP.Priority = #Form.Priority#>
  13. <cfset temp = AdvSMTP.CustomHeader(#Form.MailerID#,#Form.MailerValue#)>
  14. <cfif #Form.MimeAttach1# Neq "">
  15.     <cfset temp = AdvSMTP.MimeAttach(#Form.MimeAttach1#,#Form.Delete1#)>
  16. </cfif>
  17. <cfif #Form.MimeAttach2# Neq "">
  18.     <cfset temp = AdvSMTP.MimeAttach(#Form.MimeAttach2#,#Form.Delete2#)>
  19. </cfif>
  20. <cfif #Form.Port# Neq "">
  21.     <cfset AdvSMTP.Port = #Form.Port#>
  22. </cfif>
  23. <cfif ParameterExists(Form.Lookup)>
  24.     <cfset AdvSMTP.Lookup = true>
  25. <cfelse>
  26.     <cfset AdvSMTP.Lookup = false>
  27. </cfif>
  28. <cfif ParameterExists(Form.Receipt)>
  29.     <cfset AdvSMTP.Receipt = true>
  30. <cfelse>
  31.     <cfset AdvSMTP.Receipt = false>
  32. </cfif>
  33. <cfset AdvSMTP.Server = #Form.Server#>
  34. <cfset AdvSMTP.Subject = #Form.Subject#>
  35. <cfset AdvSMTP.Type = #Form.Type#>
  36. <cfif #Form.CharsPerLine# Neq "">
  37.     <cfset AdvSMTP.CharsPerLine = #Form.CharsPerLine#>
  38. </cfif>
  39. <cfset temp = AdvSMTP.SendMail(#Form.From#,#Form.To#)>
  40. <cfif #AdvSMTP.IsError# Eq 1>
  41.     <cfoutput>#AdvSMTP.ErrorReason#</cfoutput> <br>
  42. <cfelse>
  43.     <cfoutput>Successfully Done</cfoutput> <br>
  44. </cfif>
  45. <a href="dsp_sendmail.htm">Back</a>
  46. </body>
  47. </html>
  48.