|
Отправка почты из 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
|
ап пятничный спустянедельный
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |