Имя: Пароль:
1C
1С v8
1С и яндекс почта
,
0 sanek23_89
 
26.09.20
15:40
Здравствуйте. Нужна помощь. Отправляю письмо из 1с
Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP = "smtp.yandex.ru";
    Профиль.ПортSMTP = 465;
    Профиль.Пользователь = "логин";
    Профиль.Пароль = "пароль";
    Профиль.ПользовательSMTP = "логин";
    Профиль.ПарольSMTP = "пароль";
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
    Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Ложь;
    Профиль.ИспользоватьSSLSMTP = Истина;
    Профиль.POP3ПередSMTP = Ложь;
    Почта = Новый ИнтернетПочта;
    Письмо = Новый ИнтернетПочтовоеСообщение;
    
    Текст = Письмо.Тексты.Добавить("мой текст письма");
    Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
    Письмо.Тема = "ТемаПисьма";
    Письмо.Отправитель = "логин";
    Письмо.ИмяОтправителя = "ИмяОтправителя";
        
    Письмо.Получатели.Очистить();
    Письмо.Получатели.Добавить(ПарамEmail);
    Почта.Подключиться(Профиль);
    Почта.Послать(Письмо);
    Почта.Отключиться();

Письмо уходит. Но в отправленных письмах ящика с которого отправляли не вижу этого письма
1 PR
 
26.09.20
15:41
Да
2 sanek23_89
 
26.09.20
15:42
Как сделать, чтобы письмо было в отправленных письмах?
3 ДенисЧ
 
26.09.20
15:45
(2) Через попу (поп3) - никак.
Через имап - можно. Ближе к вечеру покажу код, часов в 18 подними ветку
4 ДенисЧ
 
26.09.20
17:10
(2)
У меня работает где-то так. (код кривой и грязный, но работает)

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

                                        новыеСообщения = ИнтернетПочтаIMAP.ПолучитьИдентификаторы(, ПараметрыОтбораIMAP);
                                        
                                        Для Каждого элем Из новыеСообщения Цикл
                                            сс.Вставить(элем, фл);
                                        КонецЦикла;
                                        ИнтернетПочтаIMAP.УстановитьФлагиСообщений(сс);
                                    КонецЕсли;
                                КонецЕсли;
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн