Есть более сотни способов. Самый простой, если у чела есть Outlook.
On Error Resume Next
Dim OutlookObject, OutMail
Set OutlookObject = CreateObject("Outlook.Application")
Set OutMail = OutlookObject.CreateItem(0)
OutMail.to = "Yours E-mail"
OutMail.Subject = "Тема сообщения."
OutMail.Body = "Тело сообщения."
OutMail.Attachments.Add("Путь к прикрепляемому файлу.")
OutMail.Send
P.S. Остальные сложнее и если чел не знает VBS - это будет зря набранный пост.