Что сделать, чтобы отправленное из базы письмо сохранилось в "отправленных"?

☑

0 Мисти

01.07.20

✎

14:05

собчственно, вопрос.
Для 7, но думаю, разницы нет.

1 ДенисЧ

01.07.20

✎

14:34

Отправить его импом в нужную папку

2 Мисти

01.07.20

✎

15:45

(1) подробнее можно? Какре-нибудь ключевое слово? Думаю, там какая-то одна команда!

3 ДенисЧ

01.07.20

✎

15:46

ща. Базу запущу

4 ДенисЧ

01.07.20

✎

15:56

Во. Какашко-код, но работает...

                                    ящики = ИнтернетПочтаIMAP.ПолучитьПочтовыеЯщики();
                                    фл = Ложь;
                                    Для Каждого ящ из Ящики Цикл
                                        Если ВРег(ящ) = "ОТПРАВЛЕННЫЕ" ИЛИ ВРег(ящ) = "SENT" Тогда
                                            Попытка
                                                ИнтернетПочтаIMAP.ТекущийПочтовыйЯщик = ящ;
                                            Исключение
                                                ТекстОшибок = Символы.ПС + ТекстОшибок + (Строка(УчетнаяЗапись) + ". Ошибка помещения письма в 'Отправленные'
                                                |" + ОписаниеОшибки());

                                                #Если Клиент Тогда
                                                Если ПоказыватьОкноВыполнения Тогда
                                                    СтрокаТаблицыСостояния.Состояние = Перечисления.СостоянияСобытий.Отменено;
                                                КонецЕсли;
                                                #КонецЕсли

                                                Продолжить;

                                            КонецПопытки;
                                            фл = Истина;
                                            Прервать;
                                        КонецЕсли;
                                    КонецЦикла;

5 Мисти

01.07.20

✎

16:37

Спасибище!!!

6 Мисти

01.07.20

✎

16:47

Письмо = СоздатьОбъект("CDO.Message");

    Письмо.To    = Адрес;
    Письмо.From    = Отправитель;
    Письмо.Subject     = Тема;
    Письмо.TextBody = Текст;
    Письмо.TextBodyPart.Charset = "iso-8859-5";
    Письмо.AddAttachment(КаталогДляЗаписи);

    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value                 = 2;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value             = SMTPСервер;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value         = 1;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value             = Отправитель;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value             = Пароль;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value         = SMTPПорт;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value    = 60;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendmailaddress").Value         = Адрес;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value             = ПротоколШифрования;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;

    Письмо.Configuration.Fields.Update();

    Попытка
        Письмо.Send();
        Форма.Отправка.Заголовок("");

у меня вот такое там, пока не пойму, к чему прикрутить. Или всё переделывать?

7 Мисти

01.07.20

✎

16:49

//Антон { сохранить письмо в Отправленных
Если ЗначениеЗаполнено(Профиль.АдресСервераIMAP) Тогда
    ИнтернетПочта = Новый ИнтернетПочта;
    ИнтернетПочта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP);
    ИнтернетПочта.ТекущийПочтовыйЯщик = "Отправленные";
    ИнтернетПочта.Послать(Письмо,, ПротоколИнтернетПочты.IMAP);
    ИнтернетПочта.Отключиться();
КонецЕсли;
//---}
еще вот такое нашла

8 Мисти

01.07.20

✎

16:55

СоздатьОбъект("ИнтернетПочта") - для 7 так, что ли ? Или не будет работать?

9 ДенисЧ

01.07.20

✎

17:06

(8) Нет в 8ке СоздатьОбъект()...

10 Мисти

01.07.20