EmailAdd = "Dave.Harrison@idealboilers.com" emailText = emailText & "" emailText = emailText & "This is the body" emailText = emailText & "" ' THIS PART SENDS THE EMAILS. '======================================================== sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "smtprelay" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "Steve.Jobs@apple.com" .To = trim(EmailAdd) .Subject = "Sample Mobile Support" .htmlBody = emailText .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing msgbox("hello")