How do I get the document shown below as body of text - the way I have it below just shows the name of the document

loMailman.SmtpHost = "auth.smtp.1and1.co.uk"
loMailman.SmtpUsername = "colin@colin-northway.com"
loMailman.SmtpPassword = "ngoloosh"
loEmail = CreateObject('Chilkat.Email2')
loEmail.Subject = "Marketing, Customer Retention or IT. Could you use help?"
loEmail.Body = "m:\advertising\businessstrategy.doc"
loEmail.From = "colin@colin-northway.com"
loEmail.AddTo("","&eccmail")
lcContentType = loEmail.AddFileAttachment("m:\advertising\businessstrategy.doc")