|
|
|
Эл. почта из 1с | ☑ | ||
|---|---|---|---|---|
|
0
UprDem
16.09.10
✎
16:40
|
Вроде как из 1с можно автоматизировать отсылку по эл. почте. Где бы глянуть?
|
|||
|
1
ДенисЧ
16.09.10
✎
16:40
|
в любой типовой...
|
|||
|
2
UprDem
16.09.10
✎
16:41
|
Пардон. Семёрка иентересует.
|
|||
|
3
Mitriy
16.09.10
✎
16:41
|
в типовой любой должна быть отправка писем в техподдержку...
|
|||
|
4
ДенисЧ
16.09.10
✎
16:41
|
Блин, уже столько написал и тут облом в (2) ...
Автор смотри в сторону V7plus.dll |
|||
|
5
Mikeware
16.09.10
✎
16:42
|
Как минимум тремя способами.
|
|||
|
6
UprDem
16.09.10
✎
16:43
|
(4) без него никак?
|
|||
|
7
ДенисЧ
16.09.10
✎
16:44
|
(6) Ну возьми другую коньпоненту...
В конце концов настрой почтовик и отправляй через start mailto: или найди консольную программу отправщик... |
|||
|
8
filh
16.09.10
✎
16:44
|
(6) можно и без него.
|
|||
|
9
andrewalexk
16.09.10
✎
16:46
|
:) с почтовым клиентом - v7plus
без - dialmail |
|||
|
10
ДенисЧ
16.09.10
✎
16:47
|
У меня так отправляется
стрКомм = "" + КаталогИБ() + "\postie.exe -host:srv004 -to:" + адрес + " -from:it@MyCompany.ru -s:""" + имяТабл + """ -nomsg -a:""" + ИмяФайла + """"; |
|||
|
11
ДенисЧ
16.09.10
✎
16:47
|
ну и
тт = СоздатьОбъект("Текст"); тт.КодоваяСтраница(1); тт.ДобавитьСтроку(стрКомм); тт.Записать(КаталогВременныхФайлов() + "send.cmd"); КомандаСистемы(КаталогВременныхФайлов() + "send.cmd"); |
|||
|
12
Mikeware
16.09.10
✎
16:51
|
(4) v7plus (угребищноватое решение)
rom-mail, dialmail - если нет религиозных предрассудков (лет 6 юзается rom-mail) CDO - на любитeля |
|||
|
13
VasilyKushnir
16.09.10
✎
17:09
|
(12) +100 rom-mail (через проксю FreeBSD - не путать с FreLSD!!!)давно и никаких нареканий
|
|||
|
14
filh
16.09.10
✎
17:10
|
у меня через CDO и нареканий тоже нет.
|
|||
|
15
Aleksey_3
16.09.10
✎
17:18
|
//Инициализация ВК
ЗагрузитьВнешнююКомпоненту("vkloader.dll"); //Загрузка длл без регистрации ЗагрузчикВК = СоздатьОбъект("ЗагрузчикВК"); //----ROM-Mail.dll ИмяБиблиотеки="ROM-Mail.dll"; //Отправка почты Результат = ЗагрузчикВК.ЗагрузитьВК(ИмяБиблиотеки, "Addin.AddInMail=8f63cbab-0ede-498a-a35b-67032054b945"); //КаталогДЛЛ+ Если Результат.КодОшибки<>0 Тогда Предупреждение("Описание ошибки ("+ИмяБиблиотеки+"): "+Результат.КодОшибки+" |"+Результат.Результат,"!"); Возврат; КонецЕсли; //работа с почтой Почта=СоздатьОбъект("AddIn.AddInMail"); Почта.СерверОтправки="smtp.... Почта.ПортОтправки=25; Почта.Логин="ТвойЛогин"; Почта.Пароль="ТвойПароль"; Почта.АутентификацияПриОтправке=1; Если Почта.Соединение=0 Тогда Если Почта.Подключиться("Отправка")=0 Тогда Сообщить("Не удалось подключиться к почтовому серверу","!"); Возврат; КонецЕсли; КонецЕсли; //сообщение Почта.ДобавитьАдрес("АдресПолучателя",Имя получателя,ЕгоАдрес); Почта.ДобавитьАдрес("СкрытаяКопия",Имя получателя,ЕгоАдрес); Почта.Важность=2; Почта.Кодировка="windows-1251"; Почта.ТипПисьма=0; Почта.АдресОтправителя="Почта@Почта.Ру"; Почта.ИмяОтправителя="Вася"; Вложения=СоздатьОбъект("СписокЗначений"); Вложения.ДобавитьЗначение(Путь+"\nmk"+Имя); Вложения.ДобавитьЗначение(Путь+"\nsf"+Имя); Вложения.ДобавитьЗначение(Путь+"\ttn"+Имя); стрТело=стрТело+РазделительСтрок+"Накладная № "+ТЗ.Номер+" от "+ТЗ.Дата; Почта.Вложения=Путь до файла с вложением+";"; Почта.Тема="Тестовое письмо"; Почта.Тело="Письмо |ООО Рого и Копыта |что-то еще | | |Конец"; //Отправляем письма; Если Почта.Соединение=0 Тогда Сообщить("Соединение потеряно","!"); ИначеЕсли Почта.Отправить()=1 Тогда Сообщить("Почтовое сообщение отправлено","i"); Иначе Сообщить("Не удалось отправить сообщение","!"); КонецЕсли; //отключение Почта.Отключиться(); |
|||
|
16
Ковычки
16.09.10
✎
17:26
|
в виндузе есть еще пара вариантов создания пиьма с вложением в любом мапи клиенте, даже не поддерживающем оле автоматизацию
|
|||
|
17
Gavrinev
16.09.10
✎
17:28
|
А извлечение прикрепленного файла возможно?
|
|||
|
18
alxxsssar
16.09.10
✎
17:37
|
rom-mail.dll
|
|||
|
19
Aleksey_3
16.09.10
✎
17:44
|
(17) Да возможно, но это прием
|
|||
|
20
Aleksey_3
16.09.10
✎
17:49
|
(17)
ПринятыйФайл = ""; Для й = 1 По Почта.КоличествоСообщений() Цикл //Читаем заголовки писем Если Почта.ПолучитьЗаголовок(й) = 1 Тогда //Читаем тексты писем Если Почта.ПолучитьТело(й)=1 Тогда //Выбираем вложения писем Для ф = 1 По Почта.КоличествоФайлов() Цикл //сохраняем вложение Почта.СохранитьФайл(ф,""); Конеццикла; Конецесли; Конецесли; Конеццикла; |
|||
|
21
Ковычки
16.09.10
✎
18:46
|
Извращенный метод создания письма с вложением
(есть еще более извращенный)
|
|||
|
22
Злопчинский
16.09.10
✎
20:40
|
Советчики блин.. (кроме ")
// юзайте - бесплатно взял образец, бесплатно раздаю продвинутую версию. http://www.infostart.ru/public/14131/ - 1665 юзеров, как минимум хотя бы один раз воспользовались данной обработкой. сколько систем рассылко на ней действует - хз... . наскольо при этом народя наплевательский - это ваще... |
|||
|
23
MikaelW
16.09.10
✎
21:13
|
(22) как пользователь!
Напишу. Что на основе обработок автора + обработки ЗОЛУШКА(есть на www.infostart.ru) настроил автоматическое формирование и рассылку отчетов по мылу... |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |