powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматическая рассылка счетов.
18 сообщений из 18, страница 1 из 1
Автоматическая рассылка счетов.
    #37474979
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Задача: автоматизировать процесс рассылки счетов по электронной почте.

1. Есть сторонний софт где формируются счета,
2. Есть БД электронных адресов, (xls файл)
3. Собственный почтовый сервер отсутствует.

Предлагается два варианта:
1. Печать счетов, после подписи Шефом сканить, «раскладывать» по папкам, (наимен. Договора, или № договора), ссылку на папки пихать в xls файл с эл.адресами.

2. Печать счетов в pdf, затем волшебным образом (не знаю как) накатывать туда (в pdf) печать и подпись шефа (скан), и раскладываем по папочкам, аналогично первому варианту.

затем писать какой то скрипт, который будет бегать по xls файлу и рассылать сканы на соответствующие адреса. (тоже пока не знаю на чем).

Приветствуется ВСЕ, от предложений по реализации, до готовых решений.
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475027
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
balbes,

да и мы приветствуем все что угодно, начиная шекелями и заканчивая белорусскими зайчиками, вопрос сколько у вас того и другого?
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475040
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
hi- Thermik
Для Вас я так понимаю предпочтительней шекели, т.к. они на первом месте...
Любите национальную валюту?, еще ничего не сделали, ни чем не помогли....
А уже речь о деньгах...
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475042
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
balbeshi- Thermik
Для Вас я так понимаю предпочтительней шекели, т.к. они на первом месте...
Любите национальную валюту?, еще ничего не сделали, ни чем не помогли....
А уже речь о деньгах...

а вас не смущает тот факт что я их поставил в один ряд с белорусскими зайчиками?
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475046
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
balbes, это логично. Ставите задачу - назначайте плату.
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475053
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
balbeshi- Thermik
Для Вас я так понимаю предпочтительней шекели, т.к. они на первом месте...
Любите национальную валюту?, еще ничего не сделали, ни чем не помогли....
А уже речь о деньгах...

ну давайте я вам помогу идеей

заставляете шефа расписаться на пустом бланке, сканируете бланк и обязательно, обязательно при сохраненнии скана в графическом виде заменяете белый фон прозрачным, для того чтобы в дальнейшем при наложении скана подписи на PDF файл наложиласть только подпись, круто?
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475096
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Thermik,

Thermikзаставляете шефа расписаться на пустом бланке, сканируете бланк и обязательно, обязательно при сохраненнии скана в графическом виде заменяете белый фон прозрачным, для того чтобы в дальнейшем при наложении скана подписи на PDF файл наложиласть только подпись, круто?

Это логично... Меня больше интересует реализация...
как это реализовать программно?

hi -kuklp
если бы я хотел что бы работу выполнили за меня, то разместил бы объявление в другом месте и предложил бы оплату...
а я пришел к коллегам за советом, в аналогичных ветках по SQLи Delphi всегда выручали...
Но видно у VBA-шников (Basic-овцев) это не принято... :(

Только жажда наживы...

P.S. я просил советы по реализации, ссылки, наработки, рассуждения на тему и.т.п...
А не вымогутельство!
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475149
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
balbes,
ну мож я читать не умею. Я увидел: "Задача: ...". И не увидел:"я просил", "советы" и т.д. Вот и подумалось - задачи мне ставит начальсво, но за это мне платят.
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475165
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
balbesThermik,
Только жажда наживы...
P.S. я просил советы по реализации, ссылки, наработки, рассуждения на тему и.т.п...
А не вымогутельство!
Может поищете по форуму мои посты и укажете мне на тот(те), в к-ром(ых) видны "жажда наживы", "вымогутельство!" и.т.п?
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475221
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
непонятно, зачем вам вообще в этой задаче нужен Эксель.

PDF файлы со счетами есть? тот софт что формирует PDF счета может в файл счета вставить Email получателя?
А теперь на любом языке открываете все PDF файлы, хранящиеся в каталоге извлекаете email из файла и отсылаете письмо на этот адрес и перемещаете файл в другой каталог чтобы во второй раз не отправлять письма.
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475240
Taranaga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Thermik,

Я делаю так:
Сначала читаю список файлок из директории и складываю их в один из столбцов книги.
При этом имена файлов должны содержать идентификаторы получателей. Например: Отчет за сентябрь Получатель1.xls, Отчет за сентябрь Получатель2.xls ...
Затем с помощью функции =ПОДСТАВИТЬ убираем все лишнее, оставив лишь "Получатель1" и "Получатель2"...
Из справочника адресов ВПР подтаскиваем адреса,
задаем тему письма и текст письма

Рассылаем письма.

Создать и отправить письмо мне помогает вот такой скрипт:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
        Set myOlApp = CreateObject("Outlook.Application")
        Set myNameSpace = myOlApp.GetNamespace("MAPI")
        Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
        Set myItem = myOlApp.CreateItem( 0 )
        myItem.Recipients.Add CStr(Sheets("SPAMER").Cells(i,  3 ))
        If CStr(Sheets("SPAMER").Cells( 2 ,  2 )) <> "" Then myItem.Attachments.Add CStr(Sheets("SPAMER").Cells( 2 ,  2 ))
        myItem.Attachments.Add CStr(Sheets("SPAMER").Cells(i,  6 ))
        myItem.Subject = CStr(Sheets("SPAMER").Cells(i,  4 ))
        myItem.Body = CStr(Sheets("SPAMER").Cells(i,  5 ))

        myItem.Display
        myItem.Send
Полагаю сможете разобраться с ним, адаптировать под свою задачу и засунуть его в цикл.

Успехов!
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475266
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Thermik,

спб.
но pdf предполагаю делать с помощью под софта doPDF виртуальный принтер. Если научите как в него подсунуть фоном печать или подпись, буду благодарен.
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475277
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
hi -Taranaga,

низкий поклон....
OK буду разбираться.
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475327
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
огромное спасибо Taranaga, весьма помогло!
по транскрипции скрипта отыскал в инете живые примеры
так что скрип навоять проблем не составит...
осталось автоматизировать вставку подписи.


Нус просите что хотите! :)
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475386
Taranaga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
balbes,

)))
Что значит "просите"?
Мыло в профиле, яндекс принимает платежи прямо на мыло. ))
Пивную благодарность в России еще никто не запрещал, а только приветствовал.)
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475550
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
balbes ...

затем писать какой то скрипт, который будет бегать по xls файлу и рассылать сканы на соответствующие адреса. (тоже пока не знаю на чем).

Приветствуется ВСЕ, от предложений по реализации, до готовых решений.
По поводу отправки писем гуглите отправка писем в Экселе ч-з CDO, без всяких Оутлуков.
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475679
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
кладовщикbalbes ...

затем писать какой то скрипт, который будет бегать по xls файлу и рассылать сканы на соответствующие адреса. (тоже пока не знаю на чем).

Приветствуется ВСЕ, от предложений по реализации, до готовых решений.
По поводу отправки писем гуглите отправка писем в Экселе ч-з CDO, без всяких Оутлуков.

Топикастер ничего не сказал про почтовый сервер, посредством которого он собирается высылать счета, может это mail.ru? Тогда не более 50 счетов в 15 минут иначе загремит в спамеры.
...
Рейтинг: 0 / 0
Автоматическая рассылка счетов.
    #37475939
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Thermik ,

Да этот момент упустил... Действительно придется поднимать свой почтовый сервер.


hi - кладовщик

весьма своевременная идея с CDO понятия не имел что такое возможно, очень не хотелось настраивать Оутлуки пользователям, огромное спасибо.
...
Рейтинг: 0 / 0
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматическая рассылка счетов.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]