Имя: Пароль:
1C
1С v8
Отправка почты из 1С через Outlook сбивает настройки папок в Outlook
,
0 SalaSky
 
18.03.14
14:50
Подскажите пожалуйста, может быть кто-нить сталкивался? Отправляю письмо из 1С через Аутлук, а при открытии Аутлука он просит заполнить настройки папок для входящих, отправленных и т.д., хотя до этого они уже были настроены. Чтобы было понятно: в Аутлуке несколько учеток почты, и для каждой есть настройки папок, если не заполнить эти настройки, то все письма будут валиться в общие папки и не сортироваться по папкам своих учетных записей.
К сожалению, сброс этих настроек происходит не всегда и не на всех пк, поэтому непонятно как это момент отследить. Нахожусь в тупике, поэтому пишу сюда.                      


Процедура ОтправитьИзАутлука()
    Попытка
        Outlook = Новый COMОбъект("Outlook.Application");
    Исключение
        Сообщить("Не удалось создать объект Outlook.Application!");
        Возврат;
    КонецПопытки;
    
    Письмо = Outlook.CreateItem(0);
    
    УчеткаНеНайдена = Истина;
    Для Каждого Учетка Из Письмо.Session.Accounts Цикл
        Если Учетка.SmtpAddress = УчетнаяЗапись.АдресЭлектроннойПочты Тогда
            Письмо.SendUsingAccount = Учетка;
            УчеткаНеНайдена = Ложь;
        КонецЕсли;    
    КонецЦикла;    
    
    Если УчеткаНеНайдена Тогда
        Сообщить("Учетная запись Outlook """ + УчетнаяЗапись.АдресЭлектроннойПочты + """ не найдена!" + Символы.ВК + "Отправьте письмо через 1С или обратитесь к системному администратору.", СтатусСообщения.Важное);
        Возврат;
    КонецЕсли;    
    
    Письмо.Subject = Тема;
    Письмо.HTMLBody = УправлениеЭлектроннойПочтой.ПропарситьHTMLИДВ_ТекстКартинки(глЗначениеПеременной("глСоответствиеТекстовЭлектронныхПисем"), глЗначениеПеременной("глТекущийПользователь"), Ссылка, ТекстПисьма);
    КомуКоп = "";
    Для Каждого Стр Из КомуТЧ Цикл
        КомуКоп = КомуКоп + Стр.АдресЭлектроннойПочты + ", ";
    КонецЦикла;
    Письмо.to = СтрЗаменить(КомуКоп, ",", ";");      
    КопииКоп = "";
    Для Каждого Стр Из КопииТЧ Цикл
        КопииКоп = КопииКоп + Стр.АдресЭлектроннойПочты + ", ";
    КонецЦикла;
    Письмо.cc = СтрЗаменить(КопииКоп, ",", ";");
    
    Выборка = Справочники.ВложенияЭлектронныхПисем.Выбрать(,, Новый Структура("Объект", Ссылка));
    Пока Выборка.Следующий() Цикл
        Если Прав(Выборка.ИмяФайла, 3) <> "gif" Тогда
            //РаботаСФайлами.СохранитьФайлНаДиске(Выборка.Хранилище, КаталогВременныхФайлов() + Выборка.ИмяФайла, Ложь, "", Ложь, "ВложенияЭлектронныхПисем");
            //Письмо.Attachments.Add(КаталогВременныхФайлов() + Выборка.ИмяФайла);
            Письмо.Attachments.Add(Выборка.Путь);
        КонецЕсли;
    КонецЦикла;    
        
    Попытка
        Письмо.Send();
        СтатусПисьма    = Перечисления.СтатусыПисем.Отправленное;
        ДатаТранспорта  = ТекущаяДата();
        ДатаОтправления = ТекущаяДата();
        
        Попытка
            ЭтотОбъект.Записать();
        Исключение
        КонецПопытки;
    Исключение
        Сообщить("Письмо не отправлено!" + Символы.ВК + "Обратитесь к программисту 1С.", СтатусСообщения.Важное);
    КонецПопытки;
    
    
КонецПроцедуры
1 SalaSky
 
20.03.14
12:37
ап
2 SalaSky
 
21.03.14
09:28
ап пятничный
3 SalaSky
 
28.03.14
11:03
ап пятничный спустянедельный