Имя: Пароль:
1C
 
Эл. почта из 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
Извращенный метод создания письма с вложением
(есть еще более извращенный)


//*******************************************
Процедура Сформировать()
   Перем Файл,Папка;
   Если ФС.ВыбратьФайл(0,Файл,Папка,"","Все файлы (*)|*", "*")=0 Тогда
       Возврат;
   КонецЕсли;
   ЗначениеВФайл(КаталогВременныхФайлов()+"ПисьмоИзАдинесы.MAPIMAIL",ПолучитьПустоеЗначение(),0);
   Шел=СоздатьОбъект("Shell.Application");
   Папка=Шел.NameSpace(Папка);
   Файл=Папка.ParseName(Файл);
   Файл.InvokeVerb("copy");
   КаталогВременныхФайлов=Шел.NameSpace(КаталогВременныхФайлов());
   Отправка=КаталогВременныхФайлов.ParseName("ПисьмоИзАдинесы.MAPIMAIL");
   Отправка.InvokeVerb("paste");
КонецПроцедуры
22 Злопчинский
 
16.09.10
20:40
Советчики блин.. (кроме ")
//
юзайте - бесплатно взял образец, бесплатно раздаю продвинутую версию.
http://www.infostart.ru/public/14131/
-
1665 юзеров, как минимум хотя бы один раз воспользовались данной обработкой. сколько систем рассылко на ней действует - хз...
.
наскольо при этом народя наплевательский - это ваще...
23 MikaelW
 
16.09.10
21:13
(22) как пользователь!
Напишу. Что на основе обработок автора

+ обработки ЗОЛУШКА(есть на www.infostart.ru) настроил автоматическое формирование и рассылку отчетов по мылу...