Взрослая социальная сеть
Текстовая версия форума
Знакомства для секса Регистрация


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

Текстовая версия форума: Архив компьютерного форума



Полная версия топика:
Автоматичаская рассылка почты -> Архив компьютерного форума


Страницы: [1]

piterpen
Стоит задача - отсылать клиентам накладные в электонном виде (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 - есть планировщик , умеет сканировать каталоги на наличие файлов и оправлять + мощные шаблоны .. вообщем посмотри у меня используется примерно для этих целей..

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

Страницы: [1]

Архив компьютерного форума -> Автоматичаская рассылка почты





Проститутки Киева | индивидуалки Москвы | Эротический массаж в Москве | Проститутки-индивидуалки Москва