метод ОтправитьКоммерческоеПредложение()
знч Сервер = "imap.yandex.ru"
знч Порт = 993
знч Аутентификация = новый АутентификацияПочтыПоПаролю("Почта", "Пароль")
пер Параметры = новый ПараметрыПодключенияImap(Сервер, Порт, Аутентификация)
исп Соединение = новый СоединениеImap(Параметры)
пер Черновики = Соединение.ПолучитьКаталог("Черновики")
Черновики.ДобавитьПисьма([СконструироватьПисьмо()])
ВернутьсяКПисьмуИОтправить(Соединение)
;
метод СконструироватьПисьмо(): Письмо
пер Сообщение = новый Письмо("sender@1c.ru")
Сообщение.ДобавитьПолучателей("recipient@1c.ru")
Сообщение.УстановитьТекстКакСтроку("Текст исходящего сообщения электронной почты.")
Сообщение.Тема = "Тема сообщения"
возврат Сообщение
;
метод ВернутьсяКПисьмуИОтправить(Соединение: СоединениеImap)
пер Черновики = Соединение.ПолучитьКаталог("Черновики").Открыть(РежимОткрытияКаталогаImap.ЧтениеИЗапись)
пер Письмо = Черновики.ПолучитьПисьма(Черновики.КоличествоПисем() - 1, Черновики.КоличествоПисем() - 1)[0]
пер ПараметрыОтправки = новый ПараметрыПодключенияSmtp("smtp.yandex.ru", 465,
новый АутентификацияПочтыПоПаролю("Почта", "Пароль"))
КлиентSmtp.Отправить(ПараметрыОтправки, Письмо.Письмо)
пер Отправленные = Соединение.ПолучитьКаталог("Отправленные")
Черновики.ПереместитьПисьма([Письмо.Uid], Отправленные)
;