|
0
viktorovichvadim
16.12.11
✎
11:07
|
Код:
ВыборкаСчетов = ВыборкаДоговоров.Выбрать();
Пока ВыборкаСчетов.Следующий() Цикл
Если ВыборкаСчетов.Email = "" Тогда //отсутствует email для отправки
Продолжить;
КонецЕсли;
ТабДокумент = ВыборкаСчетов.СчетНаАренду.ПолучитьОбъект().ПечатьСчета("Свернутый");
ТабДокумент.Записать("C:\Счет.xls", ТипФайлаТабличногоДокумента.XLS);
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "bion.mmm.ru";
Профиль.ПортSMTP = 25;
Профиль.Пользователь = "";
Профиль.Пароль = "";
Почта = Новый ИнтернетПочта;
Почта.Подключиться(Профиль);
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Вложения.Добавить("C:\Счет.xls", "Счет на оплату");
Сообщение.Отправитель = "mmm.ru";
Сообщение.Получатели.Добавить(ВыборкаСчетов.Email);
Почта.Послать(Сообщение);
Почта.Отключиться();
КонецЦикла;
Ошибка возникает такая:
{Форма.Форма.Форма(147)}: Ошибка при вызове метода контекста (Записать)
ТабДокумент.Записать("C:\Счет.xls", ТипФайлаТабличногоДокумента.XLS);
по причине:
по причине:
Ошибка совместного доступа к файлу 'C:\Счет.xls'
Как победить?
|
|
