| Регистрация Правила Главная форума Поиск |
| 0
- 22.11.2012 - 18:35
|
Использую этот код Сообщение = Новый ПочтовоеСообщение; Сообщение.Текст = ""; // Как выбрать адрес из учетной записи Сообщение.Отправитель = "....."; Сообщение.Тема =""; Сообщение.Получатели.Добавить(ЭлПочтаПолучатель); Сообщение.Вложения.Добавить(Новый ДвоичныеДанные(""),""); Сообщение.Вложения.Добавить(Новый ДвоичныеДанные(""),""); Почта = Новый Почта; Почта.Подключиться(,); Попытка Почта.Послать(Сообщение,Истина); Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; Почта.Отключиться(); Точками указал цель вопроса, как узнать адрес своей учетной записи в внешнем потовом клиенте     | |
| 1
- 23.11.2012 - 10:45
|
ВК=СоздатьОбъект("AddIn.AddInMail"); ВК.СерверОтправки=СокрЛП(СерверОтправки); ВК.ПортОтправки=Число(СокрЛП(ПортОтправки)); ВК.Логин=СокрЛП(Логин); ВК.Пароль=СокрЛП(Пароль); ВК.АутентификацияПриОтправке=1; ВК.ПодтверждениеДоставки=0; ВК.ПодтверждениеПрочтения=0; Если ВК.Подключиться("Отправка")=0 Тогда Сообщить("Не удалось подключиться к серверу!"); СтатусВозврата(0); Возврат; Иначе ВК.АдресПолучателя=СокрЛП(АдресПолучателя); ВК.ИмяОтправителя=СокрЛП(ИмяОтправителя) ; Если ПустоеЗначение(СокрЛП(Пользователь.ЭлПочта)) = 0 Тогда ВК.АдресОтправителя=СокрЛП(Пользователь.ЭлПочта); Иначе ВК.АдресОтправителя=СокрЛП(АдресОтправителя); КонецЕсли; ВК.Тема= Тема; Вложения = ИмяФайлаСоздаваемого; ВК.Вложения=СокрЛП(Вложения); ВК.Тело=ТекстПисьма; ВК.Кодировка="windows-1251"; ВК.ТипПисьма=0; ВК.Важность=2; | |
| 2
- 23.11.2012 - 10:46
| вероятно и в твоей клиенте есть "АдресОтправителя" | |
Интернет-форум Краснодарского края и Краснодара |
