Имя: Пароль:
1C
1C 7.7
v7: Почта и 1с
,
0 serg-lom89
 
29.08.13
13:46
Подскажите как получать и отправлять почту с 1с.кто может привести пример (надо обработка для этого или что))например с mail.ru можно это или нельзя?
1 serg-lom89
 
29.08.13
13:47
гугл выдает ответы но может кто нить поподробнее раскажет
2 Rie
 
29.08.13
13:47
(0) Можно.
- есть v7plus.dll (но она не очень удобная);
- есть куча внешних компонент (например, ROMMail).
Выбираешь понравившуюся внешнюю компоненту - и вперёд.
3 acanta
 
29.08.13
13:47
C Мейл ру нельзя! Тем более на 7ке.. Только на 8ке под контролем службЫ безопасности предприятия. А то эта шайтан-программа отправит такое!
4 fmrlex
 
29.08.13
13:47
(0)Точно v7?
5 Basilio
 
29.08.13
13:48
в некоторых конфигурациях есть встроенный почтовый клиент(CRM например). Настраиваешь и пользуешься. Можно свой написать если охото.
6 serg-lom89
 
29.08.13
13:48
точно (4)
7 Basilio
 
29.08.13
13:48
(5) сорри, не заметил, что v7.
8 Rie
 
29.08.13
13:50
Мне, к примеру, из ВК для почты нравится DialMail.
9 serg-lom89
 
29.08.13
13:50
(2)
я так понимаю надо документ делать для почты или что то такое..просто прочитал и не знаю как это едят и с чем)
10 Rie
 
29.08.13
13:52
(9) Не надо делать документ.
ВК отправляет письмо. Указываешь адреса, тему, текст, можно добавить вложения.
Как именно? А это смотря какую ВК выберешь.
11 ЧеловекДуши
 
29.08.13
13:52
(9) Читай (8) и там же есть и пример, как, что и куда :)
12 Bigbro
 
29.08.13
13:52
найди rommail я им пользовался, там и пример обработки вроде был.
13 serg-lom89
 
29.08.13
13:54
(10) а набирать текс ,тему где?
14 Rie
 
29.08.13
13:54
+(10) Вот пример для DialMail:
    Почта = СоздатьОбъект("AddIn.SMTP");
    Почта.ВестиЛогФайл = 0;
    Почта.РабочийКаталог = СокрЛП(глРабочийКаталогПочты);
    Почта.УстановитьКодировкуИСпособКодирования(14,1);
    Почта.MakeContentDescriptionTag = 0;
    Почта.ТипТелаПисьма = 0;
    Почта.ПочтоваяПрограмма = "1C";
    Почта.Важность = 3;
    Почта.СкрытыеКопии = "";
    Если ЕстьВложение=1 Тогда
        РезультатДействия = Почта.СоздатьПисьмо(АдресОтправителя,АдресПолучателя,"",ТемаПисьма,"",ТекстПисьма,ИмяФайлаВложения);
    Иначе
        РезультатДействия = Почта.СоздатьПисьмо(АдресОтправителя,АдресПолучателя,"",ТемаПисьма,"",ТекстПисьма,);
    КонецЕсли;
    Если ПустоеЗначение(РезультатДействия)=1 Тогда
        Предупреждение("Ошибка при создании письма");
        Возврат 0;
    КонецЕсли;
    Если Почта.Подключиться(Сервер,Порт,Пользователь,Пароль)=0 тогда
        Предупреждение("Не удалось подключиться к серверу исходящей почты");
        Возврат 0;
    КонецЕсли;
    РезультатДействия = Почта.ОтправитьПисьмо(,1,);
    Если РезультатДействия<>1 Тогда
        Предупреждение("Ошибка при отправке письма ("+РезультатДействия+")");
        Почта.Отключиться();
        Возврат 0;
    КонецЕсли;        
    Почта.Отключиться();
15 povar
 
29.08.13
13:59