![]() |
1C, внешний почтовый клиент, как узнать адрес из учетной записи? Использую этот код Сообщение = Новый ПочтовоеСообщение; Сообщение.Текст = ""; // Как выбрать адрес из учетной записи Сообщение.Отправитель = "....."; Сообщение.Тема =""; Сообщение.Получатели.Добавить(ЭлПочтаПолучатель); Сообщение.Вложения.Добавить(Новый ДвоичныеДанные(""),""); Сообщение.Вложения.Добавить(Новый ДвоичныеДанные(""),""); Почта = Новый Почта; Почта.Подключиться(,); Попытка Почта.Послать(Сообщение,Истина); Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; Почта.Отключиться(); Точками указал цель вопроса, как узнать адрес своей учетной записи в внешнем потовом клиенте |
ВК=СоздатьОбъект("AddIn.AddInMail"); ВК.СерверОтправки=СокрЛП(СерверОтправки); ВК.ПортОтправки=Число(СокрЛП(ПортОтправки)); ВК.Логин=СокрЛП(Логин); ВК.Пароль=СокрЛП(Пароль); ВК.АутентификацияПриОтправке=1; ВК.ПодтверждениеДоставки=0; ВК.ПодтверждениеПрочтения=0; Если ВК.Подключиться("Отправка")=0 Тогда Сообщить("Не удалось подключиться к серверу!"); СтатусВозврата(0); Возврат; Иначе ВК.АдресПолучателя=СокрЛП(АдресПолучателя); ВК.ИмяОтправителя=СокрЛП(ИмяОтправителя) ; Если ПустоеЗначение(СокрЛП(Пользователь.ЭлПочта)) = 0 Тогда ВК.АдресОтправителя=СокрЛП(Пользователь.ЭлПочта); Иначе ВК.АдресОтправителя=СокрЛП(АдресОтправителя); КонецЕсли; ВК.Тема= Тема; Вложения = ИмяФайлаСоздаваемого; ВК.Вложения=СокрЛП(Вложения); ВК.Тело=ТекстПисьма; ВК.Кодировка="windows-1251"; ВК.ТипПисьма=0; ВК.Важность=2; |
вероятно и в твоей клиенте есть "АдресОтправителя" |
Текущее время: 06:24. Часовой пояс GMT +3. |