lavalit

Dim out As Object 'назначим переменную для объекта

Set out = CreateObject("Outlook.Application")

With out.CreateItem(olMailItem) 'используя объект Outlook

'внесем получателей с помощью метода Add

.Recipients.Add "MAIL@MAIL.RU" 'в поле "кому"

.Subject = "тема сообщения" 'в поле "тема"

.Body = "Текст сообщения" 'в поле сообщения

'прикрепляем картинку к сообщению
'.Attachments.Add "c:\file"

'в заключение,копируем сообщение в папку исходящих и отправляем его

.Send
End With

Вообще то это стандартный способ, который описан в любом учебнике: