Advertisement
Guest User

Untitled

a guest
Mar 21st, 2016
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.75 KB | None | 0 0
  1. <%@ Language=VBScript Debug='true' %> 'Debug=true doesn't work
  2.  
  3. Set Mailer = Server.CreateObject("Persits.MailSender")
  4. Mailer.Host = "mail.mydomain.com" ' Specify a valid SMTP server
  5. Mailer.From = Request.Form("AgentEmail") ' Specify sender's address
  6. Mailer.FromName = Request.Form("AgentsName") ' Specify sender's name
  7. Mailer.Port = 587
  8. Mailer.isHTML = True
  9.  
  10. Mailer.AddAddress "person1@email.com"
  11. Mailer.AddAddress "person2@email.net"
  12. Mailer.AddAddress "person3@email.com"
  13. Mailer.AddAddress Request.Form("AgentEmail")
  14. Mailer.Body = "stuff in my email"
  15.  
  16.  
  17. Mailer.Username = "me@emailcom"
  18. Mailer.Password = "123456"
  19. On Error Resume Next
  20. Mailer.Send
  21. If Err <> 0 Then
  22. Response.Write "Error encountered: " & Err.Description
  23. Else
  24. Response.Write "Success"
  25. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement