CDOSys Mail Script Example

CDOSys Mail Script Example

Here is a working example of -----------====CDOSYS====---------- without the opening ASP tags:
  1. Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
  2. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 
  3. Const cdoAnonymous = 0 'Do not authenticate 
  4. Const cdoBasic = 1 'basic (clear-text) authentication 
  5. Const cdoNTLM = 2 'NTLM 
  6. Set objMessage = Server.CreateObject("CDO.Message") 
  7. objMessage.Subject = "Example CDO Message" 
  8. objMessage.Sender = "me@mydomain.com" 
  9. objMessage.From = "me@mydomain.com" 
  10. objMessage.To = "recipient@test.com" 
  11. objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication." 

  13. 'This section provides the configuration information for the remote SMTP server. 
  14. objMessage.Configuration.Fields.Item _ 
  15. ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

  17. 'Name or IP of Remote SMTP Server 
  18. objMessage.Configuration.Fields.Item _ 
  19. ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com" 

  21. 'Type of authentication, NONE, Basic (Base64 encoded), NTLM 
  22. objMessage.Configuration.Fields.Item _ 
  23. ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 

  25. 'Your UserID on the SMTP server 
  26. objMessage.Configuration.Fields.Item _ 
  27. ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "you@your.com" 

  29. 'Your password on the SMTP server 
  30. objMessage.Configuration.Fields.Item _ 
  31. ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password_of_you@your.com" 

  33. 'Server port (typically 25) 
  34. objMessage.Configuration.Fields.Item _ 
  35. ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 

  37. 'Use SSL for the connection (False or True) 
  38. objMessage.Configuration.Fields.Item _ 
  39. ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 

  41. 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) 
  42. objMessage.Configuration.Fields.Item _ 
  43. ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
  44. objMessage.Configuration.Fields.Update 
  45. objMessage.Send 

Here is a working example of -----------====CDOSYS (with simple asp.net) or System.Net.Mail in C# ====---------- without the opening ASP tags: 
  1. //using System.Net.Mail; 
  2. public string SendEmail(string in_from, string in_to, string in_subject, string in_body, byte[] attachmentBytes, string attachmentName) 
  3. { 
  4. string errorMessage; 

  6. try 
  7. { 
  8. //create the mail message 
  9. MailMessage mail = new MailMessage(); 
  10. SmtpClient smtp = new SmtpClient("mail.DOMAINNAME.com"); 
  11. System.Net.NetworkCredential SMTPUserInfo = new System.Net.NetworkCredential(in_from, "in_froms_PASSWORD"); 
  12. smtp.UseDefaultCredentials = false; 
  13. smtp.Credentials = SMTPUserInfo; 

  15. //set the addresses 
  16. mail.From = new MailAddress(in_from); 
  17. mail.To.Add(in_to); 

  19. //set the content 
  20. mail.Subject = in_subject; 
  21. mail.Body = in_body; 
  22. mail.IsBodyHtml = true; 

  24. //set the attachment 
  25. if (attachmentBytes != null) 
  26. { 
  27. MemoryStream ms = new MemoryStream(attachmentBytes); 
  28. mail.Attachments.Add(new Attachment(ms, attachmentName)); 
  29. } 

  31. //send the message 
  32. smtp.Send(mail); 

  34. errorMessage = ""; 
  35. } 

  37. catch (Exception err) 
  38. { 
  39. errorMessage = "An error has occurred in sending the email. Please contact support.<br />" + err.Message.ToString(); 
  40. } 

  42. return errorMessage; 
  43. }