objMessage.Subject = Subj
 objMessage.From = Sender
 objMessage.To = Receivers

 objMessage.TextBody = Body

 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ServerName

 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2

 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

 objMessage.Configuration.Fields.Update

 objMessage.Send

objMessage.Subject = Subj;
 objMessage.From = Sender;

 objMessage.To = Receivers;
 objMessage.TextBody = Body;

 ADODB.Field      ADODB.FieldSMTPSendUsing =      ADODB.Fields["http://schemas.microsoft.com/cdo/configuration/sendusing"];
 ADODB.FieldSMTPSendUsing.Value = 2;

 ADODB.Field      ADODB.FieldSMTPServer =      ADODB.Fields["http://schemas.microsoft.com/cdo/configuration/smtpserver"];
 ADODB.FieldSMTPServer.Value = ServerName;

 ADODB.Field      ADODB.FieldSMTPServerPort =      ADODB.Fields["http://schemas.microsoft.com/cdo/configuration/smtpserverport"];
 ADODB.FieldSMTPServerPort.Value = 25;

 ADODB.Field      ADODB.FieldSMTPconnectiontimeout =      ADODB.Fields["http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"];
 ADODB.FieldSMTPconnectiontimeout.Value =  60 ;

 ADODB.Field      ADODB.FieldSMTPauthenticate =      ADODB.Fields["http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"];
 ADODB.FieldSMTPauthenticate.Value = 2;

 ADODB.Field      ADODB.FieldSMTPsendusername =      ADODB.Fields["http://schemas.microsoft.com/cdo/configuration/sendusername"];
 ADODB.FieldSMTPsendusername.Value = "";

 ADODB.Field      ADODB.FieldSMTPsendpassword =      ADODB.Fields["http://schemas.microsoft.com/cdo/configuration/sendpassword"];
 ADODB.FieldSMTPsendpassword.Value = "";

 ADODB.Field      ADODB.FieldSMTPusessl =      ADODB.Fields["http://schemas.microsoft.com/cdo/configuration/smtpusessl"];
 ADODB.FieldSMTPusessl.Value = false;

 objMessage.Configuration.Fields.Update();

 objMessage.Send();