Автоматичаская рассылка почты
piterpen
Мастер
6/8/2006, 2:41:10 PM
Стоит задача - отсылать клиентам накладные в электонном виде (PDF) на электронные адреса. Клиентов порядка 100
Я думаю сделать так.
Создать для каждого клиента папку, при печати бумажной накладной - автоматически скидывать ее в папку клиента.
Выгрузку в pdf - думаю делать с помощью утилиты печати в pdf (PDFFacto
Далее настроить почтового робота (на основе zerat)
Написаль cmd, который будет периодически проверять есть ли в папке каждого клиента файлы - если есть - то отправлять с помощью zerat клиенту.
Может есть способы проще?
Накладные формируются в 1С
Я думаю сделать так.
Создать для каждого клиента папку, при печати бумажной накладной - автоматически скидывать ее в папку клиента.
Выгрузку в pdf - думаю делать с помощью утилиты печати в pdf (PDFFacto
Далее настроить почтового робота (на основе zerat)
Написаль cmd, который будет периодически проверять есть ли в папке каждого клиента файлы - если есть - то отправлять с помощью zerat клиенту.
Может есть способы проще?
Накладные формируются в 1С
aC^dreik
Специалист
6/8/2006, 5:29:45 PM
Вот на мой взгляд пример самой простой отсылки почты... при помощи 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!"
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
Мастер
6/8/2006, 6:47:37 PM
Наверное вариант, но я не хотел бы поднимать IIS, в последний раз когда поднимал - настраивал exchange - почтовый серевер - и что то у меня не поперло - какие то проблемы возникли. Поэтому настроил на eserv.
aC^dreik
Специалист
6/13/2006, 2:12:48 PM
(piterpen @ 08.06.2006 - время: 14:47) Наверное вариант, но я не хотел бы поднимать IIS, в последний раз когда поднимал - настраивал exchange - почтовый серевер - и что то у меня не поперло - какие то проблемы возникли. Поэтому настроил на eserv.
ну exchange тут совсем не при чем :)
а IIS достаточно поднять в стандартной конфигурации с smtp'шником и настраивать ничего не надо. Только советую поднимать его не вывешивая наружу + прописать смартхостом ваш exchange/eserv
ну exchange тут совсем не при чем :)
а IIS достаточно поднять в стандартной конфигурации с smtp'шником и настраивать ничего не надо. Только советую поднимать его не вывешивая наружу + прописать смартхостом ваш exchange/eserv
shworker
Специалист
6/14/2006, 5:02:47 AM
Мне в свое время понравился minimalist - но это было под FreeBSD
A763
Специалист
6/15/2006, 10:36:18 PM
Обычный Thebat - есть планировщик , умеет сканировать каталоги на наличие файлов и оправлять + мощные шаблоны .. вообщем посмотри у меня используется примерно для этих целей..
piterpen
Мастер
6/27/2006, 3:16:21 PM
(A763 @ 15.06.2006 - время: 18:36) Обычный Thebat - есть планировщик , умеет сканировать каталоги на наличие файлов и оправлять + мощные шаблоны .. вообщем посмотри у меня используется примерно для этих целей..
Спасибо, нашел, попробую применить....
Спасибо, нашел, попробую применить....