Добрый день. Подскажите, пожалуйста, возможно ли как то настроить отправку почты так, чтобы письмо появлялось в отправленных? Мне кажется что только в получатели себя же добавлять, а в отправленных оно никак не появится, потому как отправка осуществляется не мной, а программой. Но может я ошибаюсь. Если все же я прав, то подскажите, пожалуйста, как сделать так, чтобы при ответе на письмо присланное из 1с отправлялись и вложения этого письма? У меня при ответе на входящее письмо все вложения пропадают. Управление торговлей, редакция 11.1 (11.1.10.180)
---
Вот так у себя сделал, все работает. Спасибо еще раз.
```1c
    Если ТипЗнч(Соединение) <> Тип("ИнтернетПочта") Тогда
    ПараметрыПисьма.Свойство("Пароль", Пароль);
    Профиль = ИнтернетПочтовыйПрофиль(УчетнаяЗапись, , Пароль);
    ПротоколПолученияПочты = ПротоколИнтернетПочты.POP3;
    Если Найти(НРег(УчетнаяЗапись.СерверВходящейПочты), "imap") Тогда
    Профиль.АдресСервераIMAP = УчетнаяЗапись.СерверВходящейПочты;
    Профиль.ПортIMAP = УчетнаяЗапись.ПортСервераВходящейПочты;
    Профиль.ПользовательIMAP = Профиль.ПользовательSMTP;
    Профиль.ПарольIMAP = Профиль.ПарольSMTP;
    Если Профиль.ПортIMAP = 993 Тогда
    Профиль.ИспользоватьSSLIMAP = Истина;
    Иначе
    Профиль.ИспользоватьSSLIMAP = Ложь;
    КонецЕсли;
    ПротоколПолученияПочты = ПротоколИнтернетПочты.IMAP;
    КонецЕсли;
    Соединение = Новый ИнтернетПочта;
    Соединение.Подключиться(Профиль, ПротоколПолученияПочты);
    ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();

    Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
    Если НРег(ПочтовыйЯщик) = "отправленные"
    Или НРег(ПочтовыйЯщик) = "inbox.sent"
    Или НРег(ПочтовыйЯщик) = "sent" Тогда

    Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
    Прервать;

    КонецЕсли;
    КонецЦикла;

    КонецЕсли;

    Соединение.Послать(Письмо, ОбрабатыватьТекстСообщения, ПротоколПолученияПочты);
```
---
```1c
    Процедура ОпределитьПапкуОтправленные(Соединение)

    ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
    Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
    Если НРег(ПочтовыйЯщик) = "отправленные"
    Или НРег(ПочтовыйЯщик) = "inbox.sent"
    Или НРег(ПочтовыйЯщик) = "sent" Тогда

    Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
    Прервать;

    КонецЕсли;
    КонецЦикла;

    КонецПроцедуры
```
---
Нет статьи, необходимо после отправки письма помещать его в папку /Sent, штатный механизм не умеет это делать
---
штатно - никак, можно допилить и использовать протокол IMAP для этих целей.
---
можно допилить и использовать протокол IMAP для этих целей. в настройках учетной записи почты именно этот протокол и использую, с ssl. Можете поподробнее рассказать, или статьей поделиться, пожалуйста?
---
Нет статьи, необходимо после отправки письма помещать его в папку /Sent, штатный механизм не умеет это делать
---
понял, спасибо.
---
```1c
    Процедура ОпределитьПапкуОтправленные(Соединение)

    ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
    Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
    Если НРег(ПочтовыйЯщик) = "отправленные"
    Или НРег(ПочтовыйЯщик) = "inbox.sent"
    Или НРег(ПочтовыйЯщик) = "sent" Тогда

    Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
    Прервать;

    КонецЕсли;
    КонецЦикла;

    КонецПроцедуры
```
---
Спасибо за подсказку, но не взлетело у меня:{ОбщийМодуль.РаботаСПочтовымиСообщениямиСлужебный.Модуль(338)}: Ошибка при вызове метода контекста (ПолучитьПочтовыеЯщики)
  ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
по причине:
Данная операция не может быть выполнена, не установлено соединение IMAP.
  ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
```1c
    Если ТипЗнч(Соединение) <> Тип("ИнтернетПочта") Тогда
    ПараметрыПисьма.Свойство("Пароль", Пароль);
    Профиль = ИнтернетПочтовыйПрофиль(УчетнаяЗапись, , Пароль);
    Если Найти(НРег(УчетнаяЗапись.СерверВходящейПочты), "imap") Тогда
    Профиль.АдресСервераIMAP = УчетнаяЗапись.СерверВходящейПочты;
    Профиль.ПортIMAP = УчетнаяЗапись.ПортСервераВходящейПочты;
    Профиль.ПользовательIMAP = Профиль.ПользовательSMTP;
    Профиль.ПарольIMAP = Профиль.ПарольSMTP;
    КонецЕсли;
    Соединение = Новый ИнтернетПочта;
    Соединение.Подключиться(Профиль);
    ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
    КонецЕсли
```
---
Соединение.ПолучитьПочтовыеЯщики

УНФ 3.0 см..
---
УНФ 3.0 см.. спасибо
---
Вот так у себя сделал, все работает. Спасибо еще раз.
```1c
    Если ТипЗнч(Соединение) <> Тип("ИнтернетПочта") Тогда
    ПараметрыПисьма.Свойство("Пароль", Пароль);
    Профиль = ИнтернетПочтовыйПрофиль(УчетнаяЗапись, , Пароль);
    ПротоколПолученияПочты = ПротоколИнтернетПочты.POP3;
    Если Найти(НРег(УчетнаяЗапись.СерверВходящейПочты), "imap") Тогда
    Профиль.АдресСервераIMAP = УчетнаяЗапись.СерверВходящейПочты;
    Профиль.ПортIMAP = УчетнаяЗапись.ПортСервераВходящейПочты;
    Профиль.ПользовательIMAP = Профиль.ПользовательSMTP;
    Профиль.ПарольIMAP = Профиль.ПарольSMTP;
    Если Профиль.ПортIMAP = 993 Тогда
    Профиль.ИспользоватьSSLIMAP = Истина;
    Иначе
    Профиль.ИспользоватьSSLIMAP = Ложь;
    КонецЕсли;
    ПротоколПолученияПочты = ПротоколИнтернетПочты.IMAP;
    КонецЕсли;
    Соединение = Новый ИнтернетПочта;
    Соединение.Подключиться(Профиль, ПротоколПолученияПочты);
    ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();

    Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
    Если НРег(ПочтовыйЯщик) = "отправленные"
    Или НРег(ПочтовыйЯщик) = "inbox.sent"
    Или НРег(ПочтовыйЯщик) = "sent" Тогда

    Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
    Прервать;

    КонецЕсли;
    КонецЦикла;

    КонецЕсли;

    Соединение.Послать(Письмо, ОбрабатыватьТекстСообщения, ПротоколПолученияПочты);
```
---
нашел кучу статей как настроить imap, но там настраивается не через конфигуратор. В моей утшке справочник учетные записи электронной почты не такой, как в статьях