Posted to trash by kostix at Mon Aug 06 11:05:16 GMT 2007view raw

  1. Set objEmail = CreateObject("CDO.Message")
  2. objEmail.From = "foo@foo.com"
  3. objEmail.To = "bar@bar.com"
  4. objEmail.Subject = "Test message"
  5. ObjEmail.Fields.Item("urn:schemas:mailheader:content-type") = "text/plain; charset=koi8-r"
  6. ObjEmail.Fields.Update
  7. objEmail.Textbody = "This is a test message"
  8. objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  9. objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MailServer
  10. objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  11. objEmail.Configuration.Fields.Update
  12. objEmail.Send