Sub Email() Dim mail 'As CDO.Message Dim conf 'As CDO.Configuration Const NAMESPACE = "http://schemas.microsoft.com/cdo/configuration/" Const cdoSendUsingPort = 2 Const cdoBasic = 1 Set mail = CreateObject("CDO.Message") Set conf = CreateObject("CDO.Configuration") conf.Fields(NAMESPACE & "sendusing") = cdoSendUsingPort conf.Fields(NAMESPACE & "smtpserver") = "mx.somewhere.com" conf.Fields(NAMESPACE & "smtpserverport") = 25 'Below three lines only needed with authenticating servers (SBC DSL) 'conf.Fields(NAMESPACE & "sendusername") = "username" 'conf.Fields(NAMESPACE & "sendpassword") = "password" 'conf.Fields(NAMESPACE & "smtpauthenticate") = cdoBasic conf.Fields.Update mail.Configuration = conf mail.TextBody = "Hello" mail.HTMLBody = "Hello" mail.AddAttachment "C:\data.zip" mail.From = """My Name"" " mail.Subject = "Testing" mail.To = """Some Body"" " mail.Send End Sub