метод СохранитьПисьмоОтДиректора()
пер ПочтаДиректора = новый АдресПочты("dir@example.ru", "Директор")
знч Сервер = "imap.yandex.ru"
знч Порт = 993
знч Аутентификация = новый АутентификацияПочтыПоПаролю("Почта", "Пароль")
пер Параметры = новый ПараметрыПодключенияPop3(Сервер, Порт, Аутентификация)
исп Соединение = новый СоединениеPop3(Параметры, Истина)
пер ВсеВходящие = Соединение.ПолучитьЗаголовкиПисем()
для В из ВсеВходящие
если В.Заголовки.Отправитель! == ПочтаДиректора и В.Заголовки.Получатели.Размер() == 1
пер Письмо = Соединение.ПолучитьПисьмо(В.Индекс)
СохранитьПисьмо(Письмо.Письмо)
Соединение.ПометитьНаУдаление([Письмо.Индекс])
;
;
;
метод СохранитьПисьмо(Письмо: Письмо)
;