EmailAdd = "USER@TEST1.com" emailText = "" emailText = emailText & "" emailText = emailText & "" emailText = emailText & "" emailText = emailText & "" emailText = emailText & "
" emailText = emailText & " " emailText = emailText & "" 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") = "10.200.150.110" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "USER@EMAIL1.com" .To = trim(EmailAdd) .Subject = "Sample Mobile Support" .htmlBody = emailText .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing