|
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.УстановитьФлагиСообщений(сс); КонецЕсли; КонецЕсли; |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |