Try this
[VBA] With MItem
.To = "eMail address"
.Subject = "Message title"
.Attachments.Add (file Path & "\" & file name)
.Body = "message"
.display
'NOTE: To actually send the emails, use .Send instead of .Display
'.send
End With 'mail item[/VBA]