Почта

1С v8

Почта

05.04.13

✎

10:56

Добрый день!
Использую программу Mozilla Thunderbird этот код не ругается, но и не работает. Если закомментирую строку Письмо.Вложения.Добавить("C:\Temp\Дебеторка.xls"); , то все нормально, видно и в отправленных и письмо доходит. Как прикрепить файл ?

Почта = Новый Почта;
Попытка
Почта.Подключиться();
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;

Письмо = Новый ПочтовоеСообщение;
Письмо.Получатели.Добавить("[email protected]");
Письмо.Текст = "Тест";
Письмо.Тема = "1С";
Письмо.Вложения.Добавить("C:\Temp\Дебеторка.xls");
Почта.Послать(Письмо);
Почта.Отключиться();

1 vitek89

05.04.13

✎

11:19

ну дак файла то и нет
ИмяФайла = "C:\Temp\Дебеторка.xls";
Письмо.Вложения.Добавить(Новый ДвоичныеДанные(ИмяФайла), ИмяФайла);

2 Wobland

05.04.13

✎

11:22

(1) врёшь ведь. рабочий код:
ИмяВременногоФайла=КаталогВременныхФайлов()+"ЕжедневныйОтчёт_"+СсылкаНаОбъект.Пациент.ПолноеНаименование+"_"+Формат(СсылкаНаОбъект.Дата, "ДФ=yyyyMMdd")+".xls";
Сообщение.Вложения.Добавить(ИмяВременногоФайла);

3 Wobland

05.04.13

✎

11:23

(2) хотя, у меня ИнтернетПочта

4 vitek89

05.04.13

✎

11:26

(3) ога, или для ПочтовоеСообщение() тоже так

5 MSII

05.04.13

✎

11:28

Почта = Новый ПочтаРоссии;
Вот теперь все правильно.

6 Snik_666

05.04.13

✎

11:36

(1) не сработало. Thunderbird открывается но в отправленных нету и не доходит соответственно. Отладчиком смотрю вроде все заполнено. Что это особенность Thunderbird ?

7 vitek89

05.04.13

✎

11:43

о. а как оно должно вообще попасть в отправленные, если оно отправляется из 1с, а не из тандербёрд???

8 Wobland

05.04.13

✎

11:45

(7) 1С командует почтовым клиентом

9 vitek89

05.04.13

✎

11:57

(8) не думал, что 1с командует почтовым клиентом так. вот например, в ут10.3

СтрокаВыполнения = "mailto:";
СтрокаВыполнения = СтрокаВыполнения + Представление + "<" + Адрес + ">";
СтрокаВыполнения = СтрокаВыполнения + "?subject=" + ?(ПустаяСтрока(СокрЛП(Тема))," ",СокрЛП(Тема));
СтрокаВыполнения = СтрокаВыполнения + "&body=" + СокрЛП(Текст);

WshShell = Новый COMObject("WScript.Shell");

WshShell.Run("""" + СтрокаВыполнения + """");

10 Wobland

05.04.13

✎

11:57

(9) есть почты, а есть интернетпочты ;)

11 vitek89

05.04.13

✎

12:00

(10) нашел, понял. не знал)

12 Snik_666

05.04.13