this is the answer to my question, the other answer did not work because it hadn't been set up with a SMPT server this is what I now use:
Set myMail=CreateObject("CDO.Message")
myMail.Subject="SUBJECT"
myMail.From="FROM EMAIL"
myMail.To="TO EMAIL"
myMail.TextBody= "TEXT BODY"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="exchangeremote.webappuk.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing