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

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