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