Dim OutlObj As Object, NameSpaceObj As Object, EmailObj As Object, AttachmentObj As Object
    
    Set OutlObj = CreateObject("Outlook.Application")
    Set NameSpaceObj = OutlObj.GetNamespace("MAPI")
    Set EmailObj = OutlObj.CreateItem(0)
    EmailObj.Subject = "your Subject"
    EmailObj.To = "[email protected]"
    Set AttachmentObj = EmailObj.Attachments
    AttachmentObj.Add "C:\Attachment.doc"
    ' you can save it in draft
    EmailObj.Save
    'you can Display it to the user
    EmailObj.Display
    'you can send it
    EmailObj.send