Тема: автоматическая распечатка писем *.doc *.xls

Я уже видел подобную *http://www.forum.nobat.ru/index.php?…;threadid=287* тему но она была заблокирована так что я не смог там ответить. Хотелось бы узнать можно ли таким же способом сделать с офисовскими документами.
для самого бата смогу написать и сам вот примерный принцип работы (буду исходить из старого топика)
1. получен документ с вложением
2. печатается само письмо
3. приаттаченые сообщения сохраняются (к примеру) c:\temp\print
4. запускается программа и смотрит наличие документов с расширением *.doc *.xls
5. печатает их
6. удаляет
7. (незнаю как это сделать самым последним шагом) перемещает в папку (например) старое


И еще вопрос не теме: возможно ли создать сортировщик писем так чтобы он смотрел на дату и перемещал (создавал если в первый раз) письмо в папку январь, февраль, март…

в первом пункте -- не понял вопроса. Ну разумеется, можно, проблема-то в чем?

во втором пункте -- нет.

Сообщение от Alexander Kiselev

в первом пункте -- не понял вопроса. Ну разумеется, можно, проблема-то в чем?

нужно чтобы офис открыл распечатал а потом закрыл, как енто сделать?

Эх, какая-то версия офиса (97, кажется) умела печатать через параметр командной строки "p". xp, вроде как не умеет
Так что самый разумный вариант: состряпать VBScript. На память не подскажу, но там все просто: будет строчки четыре, типа открыть ворд, напечатать, закрыть ворд. Сходи на какой-нить форум по vbs -- помогут (да и примеров там дофига).

а на visual basic никто не поможет там есть какието плагины для офиса

Да по синтаксису это одно и тоже, практически. Если это на VBA делать, то этот макрос будет постоянно с вордом грузится (даже если ты какой-нить левый документ откроешь), что не очень хорошо, имхо (хотя бы потому, что проверять придется: надо печатать открываемый документ или нет).
А если на vbs делать, то те же команды пишутся в текстовый файл с расширением vbs, т.е. практически, как батник получается. Его из сортировщика писем и будешь запускать.

Неужели значит что нельзя ничем помоч страдающему админу? :(

Justao, я же дал всю необходимую информацию. По этой информации тебе понадобится не более 15 мин чтобы все сделать. Сходи просто на соответсвующий сайт и посмотри примеры. Здесь сайт по Бату все же…
Я бы тебе это все сделал, но времени совсем нет Может как-нить потом…

Есть работающий вариант через фильтр. Отлажено и работает уже 2 года как :-)
1. Делается фильтр , сохраняющий письмо на диск и запускающий батник разбирающий это письмо.
2. Вытаскивается приложенный файл утилитой decode64 (почему не получилось сохранять просто файл а не письмо уже не помню)
3. Запускается скрипт print.js следующего содержания
============CUT====================
var objXL = WScript.CreateObject("Excel.Application");
objXL.Visible = false;
objXL.WorkBooks.Open("c:\\mail\\doc.xls");
objXL.WorkSheets("Sheet1").PageSetup.Zoom =false ;
objXL.WorkSheets("Sheet1").PageSetup.FitToPagesWid e = 1;
objXL.WorkSheets("Sheet1").PageSetup.FitToPagesTal l = 10;
objXL.WorkSheets("Sheet1").PrintOut();
objXL.Application.DisplayAlerts = 0;
objXL.Quit();
============CUT====================
Задача была печатать только xls файлы но думаю doc не сильно меняют ситуацию.

Во-во. Типа этого. Единственное предложение: вместо WorkSheets("Sheet1") лучше писать WorkSheets(1). В противном случае, если лист будет называться как-нить подругому ("Лист1", например), то он может и не распечататься)