Автоматичаская рассылка почты

Популярное сегодня

Страницы: (1) 1

piterpen

Свободен

08-06-2006 - 10:41
Стоит задача - отсылать клиентам накладные в электонном виде (PDF) на электронные адреса. Клиентов порядка 100

Я думаю сделать так.
Создать для каждого клиента папку, при печати бумажной накладной - автоматически скидывать ее в папку клиента.
Выгрузку в pdf - думаю делать с помощью утилиты печати в pdf (PDFFacto

Далее настроить почтового робота (на основе zerat)
Написаль cmd, который будет периодически проверять есть ли в папке каждого клиента файлы - если есть - то отправлять с помощью zerat клиенту.

Может есть способы проще?
Накладные формируются в 1С

aC^dreik

Свободен

08-06-2006 - 13:29
Вот на мой взгляд пример самой простой отсылки почты... при помощи 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

Свободен

08-06-2006 - 14:47
Наверное вариант, но я не хотел бы поднимать IIS, в последний раз когда поднимал - настраивал exchange - почтовый серевер - и что то у меня не поперло - какие то проблемы возникли. Поэтому настроил на eserv.

aC^dreik

Свободен

13-06-2006 - 10:12

QUOTE (piterpen @ 08.06.2006 - время: 14:47)

Наверное вариант, но я не хотел бы поднимать IIS, в последний раз когда поднимал - настраивал exchange - почтовый серевер - и что то у меня не поперло - какие то проблемы возникли. Поэтому настроил на eserv.

ну exchange тут совсем не при чем :)
а IIS достаточно поднять в стандартной конфигурации с smtp'шником и настраивать ничего не надо. Только советую поднимать его не вывешивая наружу + прописать смартхостом ваш exchange/eserv

shworker

Свободен

14-06-2006 - 01:02
Мне в свое время понравился minimalist - но это было под FreeBSD

A763

Женат

15-06-2006 - 18:36
Обычный Thebat - есть планировщик , умеет сканировать каталоги на наличие файлов и оправлять + мощные шаблоны .. вообщем посмотри у меня используется примерно для этих целей..

piterpen

Свободен

27-06-2006 - 11:16

QUOTE (A763 @ 15.06.2006 - время: 18:36)

Обычный Thebat - есть планировщик , умеет сканировать каталоги на наличие файлов и оправлять + мощные шаблоны .. вообщем посмотри у меня используется примерно для этих целей..

Спасибо, нашел, попробую применить....

0 Пользователей читают эту тему

Страницы: (1) 1 ...

Наверх

Быстрый ответ