Set objEmail = CreateObject("CDO.Message")
objEmail.From = "john@mail.mydomain.corp"
objEmail.To = "bob@mail.mydomain.corp"
objEmail.Cc = "jack@mail.mydomain.corp"
objEmail.Subject = "Web Server Daily Report " & year(date) & Right("0" & Month(Date()),2) & Right("0" & Day(Date()),2)
objEmail.Textbody = "Web Server Daily Log Report "
objEmail.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.mydomain.corp"
objEmail.Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.AddAttachment"C:\report.txt"
objEmail.Send