I found this on another thread. I was looking for the code myself
You can't with SendObject.
If you use Outlook (not Outlook Express), then it can be done like below:
Sub SendAttachedFile(FileNameAndPath$, AttachDescr$, ToAdds$, CCAdds$, BCCAdds$, SubjectLine$, MsgBody$)
Dim myOlApp...