|
Re: для helldomain
Цитата:
Как писал 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
Вообще то это стандартный способ, который описан в любом учебнике:
|
Woobsche-to ya znaju raz tak w 8 bolshe sposobow, wot i sprosil, kak eto labat.
__________________
Осколки прошлого, как снег, закрутит ураган времён,
В ушедший день для нас навек, обрушив мост,
Оставив в наших душах след, тьма уплывёт за горизонт,
И в чистом небе вспыхнет свет, свет новых звёзд.
|