Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "000.000.000.000"

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:inetpubmailrootpickup"

Flds.Update

Set iMsg.Configuration = iConf

iMsg.To = to_email

iMsg.From = From_email

iMsg.Subject = subject

iMsg.HTMLBody = mailBody

iMsg.Send

set iMsg = nothing