Dim mail 'As CDO.Message Dim conf 'As CDO.Configuration Set mail = CreateObject("CDO.Message") Set conf = CreateObject("CDO.Configuration") 'Define port access method, mail server, and mail port conf.Fields(5) = 2 conf.Fields(9) = "mx.somewhere.com" conf.Fields(10) = 25 conf.Fields.Update mail.Configuration = conf mail.HTMLBody = "Hello" mail.AddAttachment "C:\data.zip" mail.From = """My Name"" " mail.Subject ="Testing" mail.To = """Some Body"" " mail.Send