Подскажите как отправить письмо из 1Ски с определенной учетки Аутлука, у меня их несколько? В данный момент отправляет из учетной записи по умолчанию:(
ОЕ_УведомлениеОДоставке=?(СтруктураПараметров.Свойство("ОЕ_УведомлениеОДоставке"),СтруктураПараметров.ОЕ_УведомлениеОДоставке,Ложь);
ОЕ_УведомлениеОПрочтении=?(СтруктураПараметров.Свойство("ОЕ_УведомлениеОПрочтении"),СтруктураПараметров.ОЕ_УведомлениеОПрочтении,Ложь);
Outlook=Новый COMОбъект("Outlook.Application");
Письмо=Outlook.CreateItem(0);
Письмо.to=Кому;
Письмо.cc=Копия;
Письмо.bcc=СкрКопия;
МассивВложения=МассивИзСтроки(Вложения,";");
Для Каждого Элемент Из МассивВложения Цикл
Письмо.Attachments.Add(Элемент);
КонецЦикла;
Письмо.Subject=Тема;
Письмо.Body=Текст;
Письмо.OriginatorDeliveryReportRequested=ОЕ_УведомлениеОДоставке;
Письмо.ReadReceiptRequested=ОЕ_УведомлениеОПрочтении;
Письмо.Send();
Решение не идеальное, но оно работает:
Для Каждого Учетка Из Письмо.Session.Accounts Цикл
Если Учетка.SmtpAddress = УчетнаяЗапись.АдресЭлектроннойПочты Тогда
Письмо.SendUsingAccount = Учетка;
КонецЕсли;
КонецЦикла;
Как использовать "Найти" я так и не понял и в справке не нашел:(