Исходный текст

'---------------------------------------------------------
ThisApplication.Utility.SendEMailMAPI "anatoliy@mcad.ru", "Привет :)", "Как дела ?", "C:\МояФотка.jpg"

'---------------------------------------------------------
Dim Attachments(2)
Attachments(0) = "C:\МояФотка 1.jpg"
Attachments(1) = "C:\МояФотка 2.jpg"
ThisApplication.Utility.SendEMailMAPI "anatoliy@mcad.ru", "Привет :)", "Как дела ?", Attachments