PUBLIC objmail as CDO.Message 
objmail = CreateObject("CDO.Message")
objMail.From = "sales@rudemics.com" 
objMail.To = "CLIENT@XX.XX" 

objMail.Subject = "Your Order Has Been Received" 
objMail.TextBody = [Test order] 

objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2  
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.XX.XX" 
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  25  
objMail.Configuration.Fields.Update() 

objMail.Send()