EmailAdd = "Barry.Dixon@idealboilers.com" 'MessageAttachment = "C:\Users\dharrison.CPUK\Pictures\ct\8.jpg" EmailFromaddr = "Mike.Rogers@idealboilers.com" messagetxt1 = " I Left my phone again...." emailText = "" emailText = emailText & "" emailText = emailText & "" emailText = emailText & "" emailText = emailText & "" & messagetxt1 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") = "smtprelay" ' "1.52.90.80" .update End With Set cdoMessage = CreateObject("CDO.Message") ' send an image in the email body 'Set objBP = cdoMessage.AddRelatedBodyPart(MessageAttachment, "3.jpg", 1) ' objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "" ' objBP.Fields.Update With cdoMessage Set .Configuration = cdoConfig .From = EmailFromaddr .To = trim(EmailAdd) .bcc = trim(EmailFromaddr) .Subject = "P45" .htmlBody = emailText .Send End With '.AddAttachment MessageAttachment Set cdoMessage = Nothing Set cdoConfig = Nothing msgbox("sent")