Имя: Пароль:
1C
1С v8
Отправка почты через Outlook из нескольких учеток
0 SalaSky
 
13.11.12
15:51
Подскажите как отправить письмо из 1Ски с определенной учетки Аутлука, у меня их несколько? В данный момент отправляет из учетной записи по умолчанию:(

ОЕ_УведомлениеОДоставке=?(СтруктураПараметров.Свойство("ОЕ_УведомлениеОДоставке"),СтруктураПараметров.ОЕ_УведомлениеОДоставке,Ложь);
       ОЕ_УведомлениеОПрочтении=?(СтруктураПараметров.Свойство("ОЕ_УведомлениеОПрочтении"),СтруктураПараметров.ОЕ_УведомлениеОПрочтении,Ложь);
       Outlook=Новый COMОбъект("Outlook.Application");
       Письмо=Outlook.CreateItem(0);
       Письмо.to=Кому;
       Письмо.cc=Копия;
       Письмо.bcc=СкрКопия;
       МассивВложения=МассивИзСтроки(Вложения,";");
       Для Каждого Элемент Из МассивВложения Цикл
           Письмо.Attachments.Add(Элемент);
       КонецЦикла;
       Письмо.Subject=Тема;
       Письмо.Body=Текст;
       Письмо.OriginatorDeliveryReportRequested=ОЕ_УведомлениеОДоставке;
       Письмо.ReadReceiptRequested=ОЕ_УведомлениеОПрочтении;
       Письмо.Send();
1 SalaSky
 
13.11.12
15:56
То есть будет как-то вот так:
Учетка = Письмо.Session.Accounts.Найти(УчетнаяЗапись.АдресЭлектроннойПочты, "SmtpAdress");
Письмо.?????? = Учетка;
2 SalaSky
 
14.11.12
10:03
Апну
3 SalaSky
 
14.11.12
10:08
4 SalaSky
 
14.11.12
10:19
Так, Письмо.?????? это Письмо.SendUsingAccount
5 SalaSky
 
14.11.12
10:48
Решение не идеальное, но оно работает:
Для Каждого Учетка Из Письмо.Session.Accounts Цикл
       Если Учетка.SmtpAddress = УчетнаяЗапись.АдресЭлектроннойПочты Тогда
           Письмо.SendUsingAccount = Учетка;
       КонецЕсли;    
   КонецЦикла;

Как использовать "Найти" я так и не понял и в справке не нашел:(
Ошибка? Это не ошибка, это системная функция.