#DEFINE cDoSendUsingPickup 1 #DEFINE cDoSendUsingPort 1 #DEFINE cDoSendUsingExchange 3 #DEFINE cDoSendUsingMethod 1 #DEFINE cDoSMTPServerPort 25 oMSG = CREATEOBJECT("CDO.Message") iConf= CREATEOBJECT("CDO.Configuration") flds= iConf.Fields flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cDoSendUsingPort flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "CompanyNET" flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")= 10 flds.Update oMSG.Configuration= iconf oMSG.To = "name@company.com" oMSG.From = "name@hotmail.com" oMSG.Subject = "Hello Email" oMSG.HTMLBody = [< b >< P >< FONT COLOR="#CC0000" >Hello In Color< /FONT >< /b >] oMSG.Send oMSG= nullWhen oMSG.Send is attempted, the error is given - how do I correct this?