Private Sub Email2Client(cFileName, cMsgSub) > Dim cEmailList As String > > Dim oOutlook As Object > Dim oEmailmsg As Object > > Set oOutlook = GetObject(, "outlook.application") > Set oEmailmsg = oOutlook.CreateItem(0) > cEmailList = "abc@everybody.com" > oEmailmsg.Recipients.Add (cEmailList) > oEmailmsg.Attachments.Add cFileName, 1 <b> oEmailmsg.Body = strContents</b> > oEmailmsg.Subject = cMsgSub > oEmailmsg.Display >End Sub >You would have to read the text file into a string and then assign it to the Body property of the message item. See the change in the code above (assumming that you have read the file contents into the strContents variable)