Имя: Пароль:
1C
1C 7.7
v7: Вылазит окошко при разборе почты через v7plus
0 ptrtss
 
29.08.12
10:13
Пытаюсь наладить автоматический разбор почты через v7plus (то есть, через AddIn.V7Mail). При каждом вызове метода ПолучитьСообщение или ПрочитатьСообщение вылазит окошко, что дескать аутлук боится что сторонняя прога украдет письма, ок или не ок.

А мне надо сделать робота, чтобы загружал по многу писем в день

В аутлуке в центре обеспечения безопасности в разделе "программный доступ" есть варинт чтобы ничего не проверять. Выбрал. Перезагрузился. Все равно вылазит.

Уже и касперсого отключал, думал может это он охраняет аутлук - нет не он.

Как убрать окошко?
1 varelchik
 
29.08.12
10:28
Бери dialmail и неморочь людям голову.
2 ДенисЧ
 
29.08.12
10:29
убрать аутлук.
3 andrewks
 
29.08.12
10:39
4 Sh1ko
 
29.08.12
10:42
всегда использовал rom-mail,  работает без проблем.
5 Sh1ko
 
29.08.12
10:43
v7plus + аутлук приколько использовать только если надо у пользователя на компе открыть уже наполовину заполненное письмо, с последующей "ручной" отправкой
6 andrewks
 
29.08.12
10:46
(4) проблемы есть, на самом деле
7 ptrtss
 
29.08.12
10:47
Спасибо, друзья! Я как раз надеялся что мне в этой ветке посоветуют какую-нибудь альтернативу)) Сначала посмотрю dialmail
8 varelchik
 
29.08.12
10:56
(7) скачай последнюю версию.
Работает надежнее некуда по сравнению с руммайлом.
ПРоверено. Я общался с разарботчиком и он сказал что про баги знает но устранять к сожалению не будет, что оставил ее обслуживать.
9 Sh1ko
 
29.08.12
11:02
(6)-(8) А какие проблемы и баги у Ром-майла? Надо быть готовым-) Я ее уже лет 5 для авто-обменов использую, принял-отправил, почтовый сервер - свой.
10 andrewks
 
29.08.12
11:08
(9) периодически на форуме появляются темы. Win7, x64 среды, и т.д.

работает - не трожь
не работает или что-то новое написать - лучше dialmail
11 Sh1ko
 
29.08.12
11:09
(10) Ну, я у себя проверял на 2008 сервере, и на вин7, вроде работало-) трогать не буду-)
12 Zolberg
 
29.08.12
11:09
В Outlook есть настройка, вроде как Сервис > Центр управления безопасностью > Безопасность программного доступа (зависит от версии Outlook).
Надо отключить контроль.
13 andrewks
 
29.08.12
11:11
14 varelchik
 
29.08.12
12:02
(13) Все верно.
Разработчик как раз об это в курсе.
15 ptrtss
 
29.08.12
12:08
dial не смог заставить работать
ROM - пошло
16 varelchik
 
29.08.12
12:13
(15) нуну намучаешся ты с ним.
17 ptrtss
 
29.08.12
12:21
(16) Ну а куда деваться?
18 varelchik
 
29.08.12
12:45
(17) а че вообще непонятного?
Вот пример отправки:

   ПочтаОтправки=СоздатьОбъект("AddIn.Smtp");
   Если ФС.СуществуетФайл(КаталогИБ()+"TMPURBD")=0 Тогда
       ФС.СоздатьКаталог(КаталогИБ()+"TMPURBD");
   КонецЕсли;
   Если ФС.СуществуетФайл(КаталогИБ()+"TMPURBD\SMTP\")=0 Тогда
       ФС.СоздатьКаталог(КаталогИБ()+"TMPURBD\SMTP\");
   КонецЕсли;
   ПочтаОтправки.РабочийКаталог=КаталогИБ()+"TMPURBD\SMTP\";
   Если ПочтаОтправки.Подключиться(СерверОтправки,25,ПользовательОтправки,ПарольОтправки,5)=0 Тогда
       ЗаписьЖурналаРегистрации("Подключение к Почтовому серверу",,"Отправка почты",,5);
       ЗаписьЖурналаРегистрации(ПочтаОтправки.ПоследняяОшибкаСтр,,"Отправка почты",,5);
       ЗаписьЖурналаРегистрации(ПочтаОтправки.ПоследнийОтветСервера,,"Отправка почты",,5);
       Возврат;
   КонецЕсли;



       ПочтаОтправки.СоздатьПисьмо(ПользовательОтправки,Получатели,Копии,Тема,Организация,Тело,ПрисоединенныеФайлы);
       ПочтаОтправки.ВремяДоРазрыва=5*60*1000;
       Если ПочтаОтправки.ОтправитьПисьмо(1,1)=0 Тогда
           ЗаписьЖурналаРегистрации("Ошибка отправки дебиторки",,"Отправка почты",,5);
           ЗаписьЖурналаРегистрации(ПочтаОтправки.ПоследняяОшибкаСтр,,"Отправка почты",,5);
           ЗаписьЖурналаРегистрации(ПочтаОтправки.ПоследнийОтветСервера,,"Отправка почты",,5);
       Иначе
           ЗаписьЖурналаРегистрации("Письмо успешно доставлено "+Получатели,,"Отправка почты",,3);
       КонецЕсли;
       ПочтаОтправки.ОчиститьРабочийКаталог();
19 varelchik
 
29.08.12
12:46
Ну конечно перед этим надо сделать:
ЗагрузитьВнешнююКомпоненту("dialmail.dll");
20 ptrtss
 
29.08.12
13:16
(18) У меня стандартный пример загрузки по pop3 не поехал. Прокси
21 ptrtss
 
29.08.12
13:17
(18) Подключиться выдает ошибку по таймауту
22 andrewks
 
29.08.12
13:30
(21) покажи свой код, логины/пароли забей звёздочками
23 varelchik
 
29.08.12
14:02
а ты настройки прокси делал?
24 Надсмотрщик
 
29.08.12
14:11
(0) Настрой Оутлук
25 ЧеловекДуши
 
29.08.12
14:17
(0) почта через v7plus  - это грабли от 1С, частенько дают сбой :)
26 ЧеловекДуши
 
29.08.12
14:18
(24)Не поможет, не даром появились Почтовые ВК ;)
27 ptrtss
 
29.08.12
14:29
(23) скопировал все с аутлука: айпи, порт, тип прокси, галки шифрования. Аутлук все видит, dialmail - нет
28 varelchik
 
29.08.12
14:30
Код покажи.
Тебе ж казали.
29 ptrtss
 
29.08.12
14:30
(23) Фу блин. Чо сказал то. С мозиллы
30 ptrtss
 
29.08.12
14:30
Код из стандартного примера
31 ptrtss
 
29.08.12
14:31
Он вот такой, если интересно

//******************************************************************************
//*                                                                            *
//*  Пример для объекта POP3 компоненты DialMail (c) SWA corp                  *
//*  (e-mail:[email protected])                                                      *
//*                                                                            *
//******************************************************************************
//
// Последняя правка 11.09.2007
//

Перем ПолучениеПочты;

//******************************************************************************

Функция Отфильтровать()
   Если ПустоеЗначение(ЗначениеФильтра)=1 тогда
       Возврат ""
   Конецесли;
   НазвПоля=СокрЛП(СписокПолейДляФильтра.ПолучитьЗначение(СписокПолейДляФильтра.ТекущаяСтрока()));
   Взв=",";
   
   // для коррекции реквизита ОбщаяДлинаПолучение
   ПолучениеПочты.Лист();
   //
   
   Для й=1 по ПолучениеПочты.КоличествоПисем() цикл
       НомерПисьма    = ПолучениеПочты.ПолучитьНомерПисьма(й);
       ДлинаПисьма    = ПолучениеПочты.ПолучитьРазмерПисьма(й);
       ПолучениеПочты.ПолучитьЗаголовокПисьма(Число(НомерПисьма));
       Если НазвПоля="ОтКого" тогда
           ЗначВПисьме=ПолучениеПочты.ОтКого;
       ИначеЕсли НазвПоля="Кому" тогда
           ЗначВПисьме=ПолучениеПочты.Кому;
       ИначеЕсли НазвПоля="ТемаПисьма" тогда
           ЗначВПисьме=ПолучениеПочты.ТемаПисьма;
       Конецесли;
       Если Найти(ЗначВПисьме,СокрЛП(ЗначениеФильтра))>0 тогда
           Взв=Взв+НомерПисьма+",";
       Иначе
           ОбщаяДлинаПолучение=ОбщаяДлинаПолучение-ДлинаПисьма;
           ВсегоПисемНаСервере=ВсегоПисемНаСервере-1;
       КонецЕсли;
   КонецЦикла;
   Возврат Взв;
КонецФункции

//******************************************************************************


Функция ПодключитьсяКPop3()
   ПолучениеПочты.РабочийКаталог=СокрЛП(РабочийКаталог);
   Получили=0;
   
   // Введем параметры прокси-сервера
   
   //!начало
   ПолучениеПочты.ВремяДоРазрыва=3000;
   //!конец
   
   ПолучениеПочты.ИмяПользователяПрокси=ИмяПользователяПрокси;
   ПолучениеПочты.ПарольПрокси=ПарольПрокси;
   ПолучениеПочты.ХостПрокси=ХостПрокси;
   ПолучениеПочты.ПортПрокси=ПортПрокси;
   // Если ПолучениеПочты.ИспользоватьПрокси=0 тогда все вышевведенные
   // параметры не учитываются
   
   ПолучениеПочты.ИспользоватьПрокси=ТипПрокси.ПолучитьЗначение(ТипПрокси.ТекущаяСтрока());
   ПолучениеПочты.ИспользоватьSSL=ИспользоватьSSL;
   ПолучениеПочты.ИспользоватьTSL=ИспользоватьTSL;

   ПолучениеПочты.ЛокальныйИнтерфейс = Интерфейс.ПолучитьЗначение(Интерфейс.ТекущаяСтрока());
   Если ПолучениеПочты.Подключиться(
                       СокрЛП(Pop3Сервер),
                       СокрЛП(Pop3Порт),
                       СокрЛП(Pop3Пользователь),
                       СокрЛП(Pop3Пароль),
                       1,
                       1
                       )=0
   тогда
       Предупреждение("Не смогли подключиться к POP3-серверу");
       Возврат 0;
   КонецЕсли;
   ВсегоПисемНаСервере=ПолучениеПочты.КоличествоПисем;
   ОбщаяДлинаПолучение=Число(ПолучениеПочты.ОбщийРазмерПисем);
   Если ВсегоПисемНаСервере=0 тогда
       ИндикПолучение="";
       СообщениеПолучение="Нет Писем";
       Возврат -1;
   КонецЕсли;
   Возврат 1;
КонецФункции

Процедура ПодключитьсяЛистОтключиться(ПросмотретьИД=0)
   Табл.Очистить();
   Рез=ПодключитьсяКPop3();
   Если Рез<>1 тогда
       ПолучениеПочты.Отключиться();
       Возврат;
   КонецЕсли;
   Данные ="";
   Если ПросмотретьИД=0 тогда
       Рез=ПолучениеПочты.Лист(,Данные);
       НазвКолонки="РазмерПисьма";
   Иначе
       Рез=ПолучениеПочты.ЛистИД(,Данные);
       НазвКолонки="ИДПисьма";
   КонецЕсли;
   Табл.НоваяКолонка("Номер","Строка");
   Табл.НоваяКолонка(НазвКолонки,"Строка");    
   Для й=1 по ПолучениеПочты.КоличествоПисем() цикл
       Номер    = ПолучениеПочты.ПолучитьНомерПисьма(й);
       Если ПросмотретьИД=0 тогда
           Значен    = ПолучениеПочты.ПолучитьРазмерПисьма(й);
       Иначе
           Значен    = ПолучениеПочты.ПолучитьИДПисьма(й);
       КонецЕсли;
       Табл.НоваяСтрока();
       Табл.Номер=Номер;
       Табл.УстановитьЗначение(й,НазвКолонки,Значен);
   КонецЦикла;
   ПолучениеПочты.Отключиться();
КонецПроцедуры

Процедура ПолучатьПисьмаВЦикле()
   БылиОшибки = 0;
   Для ц=1 по КолвоЦиклов Цикл
       Сообщить("//==================================================================");
       Сообщить(""+ц + " итерация.");
       Рез=ПодключитьсяКPop3();
       Если Рез<>1 тогда
           БылиОшибки = 1;
           Сообщить("Неудачное подключение на "+ ц + " итерации.","!!");
           Продолжить;
       КонецЕсли;
       СписПисем=0;
       Если ц % 2 = 1 Тогда
           Если ПолучениеПочты.ЛистИД() = 0 Тогда
               Сообщить("Не Получилось ЛистИД.","!!");
               Продолжить;
           КонецЕсли;
           Если ПолучениеПочты.Лист() = 0 Тогда
               Сообщить("Не Получилось Лист.","!!");
               Продолжить;
           КонецЕсли;
           Сообщить("Сделали Лист и ЛистИД.");
       КонецЕсли;
       
       Для й=1 по ПолучениеПочты.КоличествоПисем() цикл
           Если ПолучениеПочты.ПолучитьЗаголовокПисьма(й) = 0 Тогда
               БылиОшибки = 1;
               Сообщить("Не получили заголовок " + й + " письма.","!!");
               Продолжить;
           КонецЕсли;
           Сообщить("Размер письма "+ ПолучениеПочты.ПолучитьРазмерПисьма(й));
           Если ПолучениеПочты.ПолучитьПисьмо(й) = 0 Тогда
               БылиОшибки = 1;
               Сообщить("Не получили " + й + " письмо.","!!");
               Продолжить;
           КонецЕсли;
           Сообщить("Получили " + й + " письмо.");
       КонецЦикла;
       ПолучениеПочты.Отключиться();
   КонецЦикла;
   Сообщить("//==================================================================");
   Если БылиОшибки = 1 Тогда
       Предупреждение("!!!!Были ошибки!!!!");
   Иначе
       Предупреждение("Все получено");
   КонецЕсли;
КонецПроцедуры    // ПолучатьПисьмаВЦикле

Процедура ПрочитатьЗаголовкиВсехПисем()
   Табл.Очистить();
   Табл.НоваяКолонка("ОтКого","Строка");
   Табл.НоваяКолонка("АдресНаОтвет","Строка");
   Табл.НоваяКолонка("Кому","Строка");
   Табл.НоваяКолонка("ТемаПисьма","Строка");
   Табл.НоваяКолонка("ДатаСоздания","Строка");
   Табл.НоваяКолонка("ВремяСоздания","Строка");
   Табл.НоваяКолонка("ПочтоваяПрограмма","Строка");
   Табл.НоваяКолонка("Организация","Строка");
   Табл.НоваяКолонка("ИДПисьма","Строка");
   Рез=ПодключитьсяКPop3();
   Если Рез<>1 тогда
       Возврат;
   КонецЕсли;
   СписПисем=0;
   //стр1 = "";
   //ПолучениеПочты.Лист(, стр1);
   //Сообщить(стр1);
   //стр2 = "";
   //ПолучениеПочты.ЛистИД(, стр2);
   //Сообщить(стр2);
   Для й=1 по ПолучениеПочты.КоличествоПисем цикл
       //стр1 = "";
       //ПолучениеПочты.Лист(й, стр1);
       //стр2 = "";
       //ПолучениеПочты.ЛистИД(й, стр2);
       //Сообщить(стр1);
       //Сообщить(Стр2);
       ПолучениеПочты.ПолучитьЗаголовокПисьма(й);
       Табл.НоваяСтрока();
       Табл.ОтКого=ПолучениеПочты.ОтКого;
       Табл.АдресНаОтвет=ПолучениеПочты.АдресНаОтвет;
       // Преобразуем "текст" в одну строку
       Табл.Кому=СтрЗаменить(ПолучениеПочты.Кому,РазделительСтрок,", ");

       Табл.ТемаПисьма=ПолучениеПочты.ТемаПисьма;
       Табл.ДатаСоздания=ПолучениеПочты.ДатаСоздания;
       Табл.ВремяСоздания=ПолучениеПочты.ВремяСоздания;
       Табл.ПочтоваяПрограмма=ПолучениеПочты.ПочтоваяПрограмма;
       Табл.Организация=ПолучениеПочты.Организация;
       Табл.ИДПисьма = ПолучениеПочты.ИДПисьма;
   КонецЦикла;
   
   ПолучениеПочты.Отключиться();
КонецПроцедуры

Функция РаспаковатьВсеПисьма()
   ПолучениеПочты.РабочийКаталог = СокрЛП(РабочийКаталог);
   ВсегоПисемНаКомпьютере = ПолучениеПочты.КоличествоПисемВРабочемКаталоге;
   Взв=1;
   Для й=1 по ВсегоПисемНаКомпьютере цикл  
       Сообщить("*****************************************");
       Сообщить("Письмо № "+й);
       Если ПолучениеПочты.РаспаковатьПисьмо(ВсегоПисемНаКомпьютере-й+1)=0 тогда
           Взв=0;
           Продолжить;
       КонецЕсли;
       
       Сообщить("ОтКого: "+ПолучениеПочты.ОтКого);
       Сообщить("Кому: "+ПолучениеПочты.Кому);
       Сообщить("Тема письма: "+ПолучениеПочты.ТемаПисьма);
       Сообщить("Важность: "+ПолучениеПочты.Важность);
       Сообщить("Почтовая программа: "+ПолучениеПочты.ПочтоваяПрограмма);
       Сообщить("ИД письма: "+ПолучениеПочты.ИДПисьма);
       Сообщить("Дата Время создания: "+ПолучениеПочты.ДатаСоздания + " " + ПолучениеПочты.ВремяСоздания);
       
       кпф=Число(ПолучениеПочты.КоличествоПрисоединенныхФайлов);
       Для ф=0 по кпф цикл
           Ф2=Ф;
           Сообщить("Файл № "+Ф+" имя файла: "+ПолучениеПочты.ПолучитьИмяПрисоединенногоФайла(ф2));
           ПолучениеПочты.СохранитьПрисоединенныйФайл(ф2);
       КонецЦикла;
       // Удаляем "текущее" письмо
       ПолучениеПочты.УдалитьПисьмоИзРабочегоКаталога();
   КонецЦикла;
   Возврат Взв;
КонецФункции


Функция ПолучитьПочтуЧерезPop3()
   Рез=ПодключитьсяКPop3();
   Если Рез<>1 тогда
       Возврат Рез
   КонецЕсли;
   СтрокаНомеровПисем=Отфильтровать();
   Если ВсегоПисемНаСервере=0 тогда
       ИндикПолучение="";
       СообщениеПолучение="Нет писем, удв. фильтру";
       Возврат -1;
   КонецЕсли;
   Если ПолучениеПочты.ПолучитьВсеПисьма(1,0,1,СтрокаНомеровПисем)=-100 тогда
       Возврат 1;
   КонецЕсли;
   Возврат 0;
КонецФункции

//******************************************************************************

Функция НачатьПолучение()
   ВсегоПисемНаСервере=0;Получили=0;
   ИндикПолучение=Индик;
   ОшибкаПолучения=1;
   Если ПолучитьПочтуЧерезPop3()<>0 тогда
       ОшибкаПолучения=0;
       Возврат 1;
   КонецЕсли;
   СообщениеПолучение="ОШИБКА!";
   ИндикПолучение="";
   Форма.Обновить(0);
   Возврат 0;
КонецФункции

//******************************************************************************

Функция УстановитьКомпоненту()
   ПутьКПримеру = "";
   РасположениеФайла(ПутьКПримеру);
   Если ЗагрузитьВнешнююКомпоненту(ПутьКПримеру + "DialMail.dll")=0 Тогда
       Сообщить("Не удалось обнаружить компоненту DialMail.dll!");
       Возврат 0;
   КонецЕсли;
   Попытка
       ПолучениеПочты = СоздатьОбъект("AddIn.POP3");
       ПолучениеПочты.ВестиЛогФайл = 1;
       ПолучениеПочты.ИмяЛогФайла = "c:\dialmail.pop3.log";
       Сообщить(ПолучениеПочты.ВерсияОбъектаСтр);
   Исключение
       Сообщить("Не удалось создать объект из компоненты DialMail.dll!");
       Возврат 0;
   КонецПопытки;
   Возврат 1;
КонецФункции  // УстановитьКомпоненту

//******************************************************************************

Функция УстановитьТипПрокси()
   Если ТипПроксиТек <> ТипПрокси.ТекущаяСтрока() Тогда
       ТипПрокси.ТекущаяСтрока(ТипПроксиТек);
   КонецЕсли;
   Возврат "";
КонецФункции

//******************************************************************************

Процедура ПолучитьСписокИнтерфейсов()
   Интерфейс.УдалитьВсе();
   Интерфейс.ДобавитьЗначение(""," - По умолчанию");
   IP = "";
   ПолучениеПочты.ПолучитьИнтерфейсы();
   Для й=1 по ПолучениеПочты.ПолучитьКоличествоИнтерфейсов() Цикл
       Если ПолучениеПочты.ПолучитьИнтерфейс(й,IP)=1 Тогда
           Интерфейс.ДобавитьЗначение(IP,IP);
       КонецЕсли;
   КонецЦикла;
КонецПроцедуры    // ПолучитьСписокИнтерфейсов

//******************************************************************************

Процедура ПриОткрытии()
   Если УстановитьКомпоненту()=0 тогда
       СтатусВозврата(0);
       Возврат;
   КонецЕсли;
   ПолучениеПочты.РабочийКаталог=СокрЛП(РабочийКаталог);
   Если ПустоеЗначение(РабочийКаталог)=1 тогда
       РабочийКаталог="c:\";
   КонецЕсли;
   Если ПустоеЗначение(Pop3Сервер)=1 тогда
       Pop3Сервер="pop.mail.ru";  // адрес pop сервера бесплатной почтовой службы
   КонецЕсли;
   Если ПустоеЗначение(Pop3Порт)=1 тогда
       Pop3Порт="110"; // или "smtp"
   КонецЕсли;
   ПолучитьСписокИнтерфейсов();
КонецПроцедуры

//******************************************************************************

Процедура ПрерватьПочту()
   ПолучениеПочты.ОстановитьПолучение();
   ПолучениеПочты.Отключиться();
   ИндикПолучение="";
КонецПроцедуры
//******************************************************************************

Процедура Пинг()
   Если ТипПроксиТек > 1 Тогда
       Предупреждение("Через прокси не пингуется!!!");
       Возврат;
   КонецЕсли;
   IPСервера = "";
   Если ПолучениеПочты.Пинг(POP3Сервер,IPСервера)>=0 Тогда
       Сообщить("Сервер "+IPСервера+" доступен");
   Иначе
       Предупреждение("Сервер недоступен");
   КонецЕсли;
КонецПроцедуры    // Пинг

//******************************************************************************

Процедура ПриЗакрытии()
   ПолучениеПочты.ОстановитьПолучение();
КонецПроцедуры


Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
   Сообщить(""+Источник+" "+Событие+" "+Данные);
   Если Источник="POP3" тогда
       Если ВРЕГ(СокрЛП(Событие))="RECEIVE" тогда
           Если ВРЕГ(СокрЛП(Данные))="BEGIN" тогда
               
           ИначеЕсли ВРЕГ(СокрЛП(Данные))="DONE" тогда
               СообщениеПолучение="Все получили";
               Форма.Обновить(0);
               Возврат;
           КонецЕсли;
           
           х=ПолучениеПочты.ПолученоВБайтах/ОбщаяДлинаПолучение*СтрДлина(Индик);
           ИндикПолучение=Лев(Индик,СтрДлина(Индик)-х);
           Форма.Обновить(0);
       ИначеЕсли ВРЕГ(СокрЛП(Событие))="RECEIVED" тогда
           х=ПолучениеПочты.ПолученоВБайтах/ОбщаяДлинаПолучение*СтрДлина(Индик);
           ИндикПолучение=Лев(Индик,СтрДлина(Индик)-х);
           Форма.Обновить(0);
           Получили=Получили+1;
       ИначеЕсли ВРЕГ(СокрЛП(Событие))="ERROR" тогда
           Сообщить(Данные+"  "+СокрЛП(ПолучениеПочты.ПоследняяОшибка)+" ("+ПолучениеПочты.ПоследняяОшибкаСтр+")");
           Сообщить("Последний ответ сервера: " + ПолучениеПочты.ПоследнийОтветСервера);
           ОшибкаПолучения=1;
           Возврат;
       КонецЕсли;
   КонецЕсли;
КонецПроцедуры

//Индик="ЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭ";
Индик="ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ";
ИндикПолучение="";


ОшибкаПолучения=1;ВсегоПисемНаСервере=0;Получили=0;

СписокПолейДляФильтра.ДобавитьЗначение("ОтКого","От кого");
СписокПолейДляФильтра.ДобавитьЗначение("Кому","Кому");
СписокПолейДляФильтра.ДобавитьЗначение("ТемаПисьма","Тема письма");
СписокПолейДляФильтра.ТекущаяСтрока(1);
ТипПрокси.ДобавитьЗначение(0,"Нет прокси - прям. соед.");
ТипПрокси.ДобавитьЗначение(1,"Socks5");
ТипПрокси.ДобавитьЗначение(2,"Socks4/4a");
ТипПрокси.ДобавитьЗначение(3,"HTTP-Tunnel");
Если ТипПроксиТек=0 Тогда
   ТипПроксиТек = 1;
КонецЕсли;
32 andrewks
 
29.08.12
14:41
весь-то не надо было.

там в dialmail  можно прописать путь к логу, его надо изучать, там всё - запросы, ответы
33 varelchik
 
29.08.12
15:07
ПРОверь что в логе.
34 ptrtss
 
29.08.12
16:38
В логе там только строчки. "Подключаемся к сокету", как-то так
35 ptrtss
 
30.08.12
14:14
Поробовал без настроек прокси запускать.

Лог получился больше, вот такой:

30.08.12 17:13:01.821 Pop3: Подключаемся к сокету
30.08.12 17:13:01.821 Pop3: К сокету подключились успешно
30.08.12 17:13:01.821 Подключаемся к SSL
30.08.12 17:13:01.821 Не подключились к SSL
30.08.12 17:13:01.821 Pop3 ErrorCode = 10091
30.08.12 17:13:01.821 Pop3 ErrorDesc = Network subsystem is unusable
36 andrewks
 
30.08.12
14:30
(35) что за почтовый сервер? по какому порту подключаешься?
37 ptrtss
 
30.08.12
14:36
pop.mail.ru
110
38 ptrtss
 
30.08.12
15:09
Только сейчас додумался попробовать без прокси и без галки SSL. Так - работает
39 ptrtss
 
30.08.12
15:10
Видимо поэтому отработал и ROM-mail, у него этой галки просто нет в настройках
40 ptrtss
 
30.08.12
15:10
(как и прокси)
41 andrewks
 
30.08.12
15:14
(38) забыл сказать: галками SSL/TSL у dialmail лучше вообще не пользоваться, ибо для незащищённых почтовых серверов (mail, rambler и т.п.) они не нужны, а в случае защищённых (gmail, yandex через SSL) гораздо удобнее использовать stunel, чем настраивать dialmail (инструкция по такой настройке имеется в его als-файле)
42 varelchik
 
30.08.12
16:14
(41) Между прочим все с ними отлично работает.
Главное правильно представлять что за шифрование надо использовать, вот и все.
Скажем так mail.ru щас использует pop обычный а smtp шифрованный.
Так что ненадо ляля.
У меня куча клиентов использует dialmail для обменов по почте через mail.ru и пока никаких проблем не испытували.
43 Злопчинский
 
30.08.12
16:18
postie..???
44 andrewks
 
30.08.12
16:24
(42) я привык доверять своим глазам, а глаза мои мне говорят, что с включенными галками SSl/TSL dialmail до "обычного" мэйл-сервера не достукивается

а насчёт мэйл.ру - ну-ка, расскажи мне, как они зафигачили зашифрованное соединение на 25 порт, и, главное, почему у меня к нему спокойно подключается обычное (незащищённое) соединение?
45 varelchik
 
30.08.12
16:44
(44)Значит уже отключили.
Потому как одно время переводиоли на 587 порт с TSL
46 andrewks
 
30.08.12
16:49
(45) ну, не обязательно отключили SSL, могли просто оставить оба порта рабочими, как, собственно, сейчас на яндексе - можно подключать как обычное, так и защищённое соединение (на разные порты, естественно)
47 Злопчинский
 
30.08.12
16:56
ща посмотрю что у меня в бате... (он блин, после того как теги прикрутили к письмам н абольших папках стала нещадно тупить, каких-то 140 тыс писем - и все, даун.. пришлось откатиться)
48 Злопчинский
 
30.08.12
16:58
регуляр на 25 порт.
49 smaharbA
 
30.08.12
17:16
50 ptrtss
 
31.08.12
06:55
Очень хорошо все помогли, спасибо!
51 varelchik
 
31.08.12
08:45
Ты если шо заходи..........
Программист всегда исправляет последнюю ошибку.