LOCAL cdoMessage AS CDO.Message LOCAL cdoConfig AS CDO.Config cdoHTML = FILETOSTR("FIRSTPAGE.HTM") && generic HTML File cdoMessage = CREATEOBJECT("CDO.Message") cdoConfig = CREATEOBJECT("CDO.Configuration") cdoFields = cdoConfig.Fields cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.100.100.75" && IP address of the SMTP server cdoFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 100 cdoFields.Update cdoMessage.Configuration = cdoConfig cdoMessage.From = "someone@somewhere.com" cdoMessage.To = "someoneelse@somewhere.com" cdoMessage.Subject = "this is a test message" cdoMessage.HTMLBody = cdoHTML cdoMessage.Send RELEASE cdoHTML RELEASE cdoMessage RELEASE cdoConfig RELEASE cdoFieldsThe only areas that need changing are the SMTP Server. This can be an IP address or a server name, and the HTML File you wish to send.