Стоит задача - отсылать клиентам накладные в электонном виде (PDF) на электронные адреса. Клиентов порядка 100
Я думаю сделать так. Создать для каждого клиента папку, при печати бумажной накладной - автоматически скидывать ее в папку клиента. Выгрузку в pdf - думаю делать с помощью утилиты печати в pdf (PDFFacto
Далее настроить почтового робота (на основе zerat) Написаль cmd, который будет периодически проверять есть ли в папке каждого клиента файлы - если есть - то отправлять с помощью zerat клиенту.
Может есть способы проще? Накладные формируются в 1С
aC^dreik
Вот на мой взгляд пример самой простой отсылки почты... при помощи IIS`a. Чуть-чуть подпиливаешь и всё
CODE
'Send using the Pickup directory on the IIS server. Dim iMsg Dim iConf Dim Flds Dim strHTML
Const cdoSendUsingPickup = 1
set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup ' TODO: Replace <PICKUP DIRECTORY> with path to your pickup directory ' Typically, c:\Inetpub\mailroot\pickup .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="c:\Inetpub\mailroot\pickup" .Update End With
' Build HTML for message body. strHTML = "<HTML>" strHTML = strHTML & "<HEAD>" strHTML = strHTML & "<BODY>" strHTML = strHTML & "<b> This is the test HTML message body</b></br>" strHTML = strHTML & "</BODY>" strHTML = strHTML & "</HTML>"
Dim iBP With iMsg Set .Configuration = iConf .To = "[email protected]" .From = "[email protected]" .Subject = "This is a test CDOSYS message (Sent via Pickup)" .HTMLBody = strHTML 'TODO: if adding an attachment, 'uncomment the next line and alter file path as required 'Set iBP = iMsg.AddAttachment(App.Path & "\file1.txt") .Send End With
' Clean up variables. Set iBP = Nothing Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing
MsgBox "Mail Sent!"
piterpen
Наверное вариант, но я не хотел бы поднимать IIS, в последний раз когда поднимал - настраивал exchange - почтовый серевер - и что то у меня не поперло - какие то проблемы возникли. Поэтому настроил на eserv.
aC^dreik
QUOTE (piterpen @ 08.06.2006 - время: 14:47)
Наверное вариант, но я не хотел бы поднимать IIS, в последний раз когда поднимал - настраивал exchange - почтовый серевер - и что то у меня не поперло - какие то проблемы возникли. Поэтому настроил на eserv.
ну exchange тут совсем не при чем :) а IIS достаточно поднять в стандартной конфигурации с smtp'шником и настраивать ничего не надо. Только советую поднимать его не вывешивая наружу + прописать смартхостом ваш exchange/eserv
shworker
Мне в свое время понравился minimalist - но это было под FreeBSD
A763
Обычный Thebat - есть планировщик , умеет сканировать каталоги на наличие файлов и оправлять + мощные шаблоны .. вообщем посмотри у меня используется примерно для этих целей..
piterpen
QUOTE (A763 @ 15.06.2006 - время: 18:36)
Обычный Thebat - есть планировщик , умеет сканировать каталоги на наличие файлов и оправлять + мощные шаблоны .. вообщем посмотри у меня используется примерно для этих целей..