Имя: Пароль:
1C
1C 7.7
v7: DialMail .. не могу отправить письмо.. Поможете подправить параметры?
0 aka AMIGO
 
22.04.13
16:47
Синтаксис:
СоздатьПисьмо(<ОтКого>,<Кому>,<Копии>,<ТемаПисьма>,<Организация>, <ТелоПисьма>,<ПрисоединенныеФайлы>)

моя интертрепация, г-код:
   текписьмо=ОтправкаПочты.СоздатьПисьмо("[email protected]","[email protected]",,"Прайс-лист",,"Высылаю прайс, целую",ПутьКФайлу);

SMTP = "SMTP.bk.ru";
Логин = "valeri35";
Пароль = "pairolll";

ОтправкаПочты.Подключиться(СМТП,25,Логин,Пароль,1);

//в логах пишет
//"22.04.13 16:33:39.762 SMTP: Подключаемся к сокету
//22.04.13 16:33:39.762 SMTP: ОШИБКА Подключиться()

и не отправляет..
1 aka AMIGO
 
22.04.13
16:51
+0 правда, может прокси мешать.. это уже второй мой темный пунктик после параметров..
2 aka AMIGO
 
22.04.13
16:53
Ой, извините, конечно-же не ОтправкаПочты.Подключиться(СМТП,25,Логин,Пароль,1);
а
ОтправкаПочты.Подключиться(SMTP,25,Логин,Пароль,1);

но это не суть важно..
3 ДенисЧ
 
22.04.13
17:01
еудтуе SMTP.bk.ru 25 xnj ujdjhbn&
4 ДенисЧ
 
22.04.13
17:01
что говорит?
5 Garfild
 
22.04.13
17:15
Вот код в моей конфиге, только у меня без прокси


Процедура ГлОтправитьПисьмо(Логин,Пароль,Тема,Вложения,Адресант) Экспорт
   Если ЗагрузитьВнешнююКомпоненту("DialMail.dll")=0 Тогда
       Сообщить("Не удалось обнаружить компоненту DialMail.dll!");
       Возврат;
   КонецЕсли;
   Попытка
       ОтправкаПочты = СоздатьОбъект("AddIn.SMTP");
       ОтправкаПочты.ВестиЛогФайл    = 1;
       ОтправкаПочты.ИмяЛогФайла    = КаталогИБ()+"dialmail_smtp.log";
       ОтправкаПочты.РабочийКаталог=КаталогИБ();
   Исключение
       Сообщить("Не удалось создать объект из компоненты DialMail.dll!");
       Возврат;
   КонецПопытки;
   
   СерверОтправки    = "smtp.mail.ru";
   ПортОтправки    = "2525";
   ИмяОтправителя  ="Фирма";
   АдресОтправителя=Логин;
   Тело="";
   флАутентификацияПриОтправке=1;
   
   ОтправкаПочты.УстановитьКодировкуИСпособКодирования(14, 1);
   ОтправкаПочты.MakeContentDescriptionTag = 0;
   ОтправкаПочты.ТипТелаПисьма = 1;
           
   
   ОтправкаПочты.СкрытыеКопии        = "";
   ОтправкаПочты.ПочтоваяПрограмма = "1С_Тест";
   ОтправкаПочты.Важность            = 0;
   ПутьКФайлу="";
   Для ном=1 По Вложения.РазмерСписка() Цикл
       //Берем из СЗ "Вложения" пути к файлам и формируем их в нужном формате
       ПутьКФайлу=ПутьКФайлу+","""+СокрЛП(Вложения.ПолучитьЗначение(Ном))+"""";
   КонецЦикла;
   
   Если СокрЛП(ПутьКФайлу)<>"" Тогда
       //Обрезаем запятую и лишние косые черты
       ПутьКФайлу=СтрЗаменить(ПутьКФайлу,"\\","\");
       ПутьКФайлу=Сред(ПутьКФайлу,2);
   КонецЕсли;
   
   Если ПустоеЗначение(ОтправкаПочты.СоздатьПисьмо(АдресОтправителя,
                                                   Адресант,
                                                   "",
                                                   Тема,
                                                   "Фирма",
                                                   Тело,
                                                   ПутьКФайлу))=1 Тогда
       Сообщить("Ошибка при создании файла");
       Возврат;
   КонецЕсли;
   ОтправкаПочты.ИмяПользователяПрокси="";
   ОтправкаПочты.ПарольПрокси="";
   ОтправкаПочты.ХостПрокси="";
   ОтправкаПочты.ПортПрокси="";
   // Если ОтправкаПочты.ИспользоватьПрокси=0 тогда все выше введенные
   // параметры не учитываются
   ОтправкаПочты.ИспользоватьПрокси    = 0;
   
   ОтправкаПочты.ИспользоватьSSL    = 0;
   ОтправкаПочты.ИспользоватьTSL    = 0;
   
   Если ОтправкаПочты.Подключиться(СерверОтправки,
                       ПортОтправки,
                       Логин,
                       Пароль)=0 тогда
       Сообщить("Не смогли подключиться к SMTP-серверу");
       Возврат;
   КонецЕсли;
   
   Состояние("Отправка почты");
   
   Пока ОтправкаПочты.КоличествоПисемВРабочемКаталоге>0 цикл
       Если ОтправкаПочты.ОтправитьПисьмо(1,1)<=0 тогда
           Предупреждение("Ошибка отправки письма");
           ОтправкаПочты=0;
           Возврат;
       КонецЕсли;
   КонецЦикла;

КонецПроцедуры
6 aka AMIGO
 
22.04.13
18:55
(3) telnet я не знаю такой команды.. где её применить?

(4) внимательно изучаю, спасибо!
7 aka AMIGO
 
22.04.13
19:08
+6 я понял, что за telnet.. у меня 7-ка, команды такой нет.. посмотрел в виртХР, нашел.. но там, в виртХР у меня нет интернета :)
ладушки, разберусь потихоньку :)
8 Тьма
 
22.04.13
19:12
(7)telnet.exe можно из ХР скопировать и запустить в 7
9 aka AMIGO
 
23.04.13
08:19
(8) в вин-7, оказалось, тоже есть :)
http://did5.ru/it/windows/telnet-v-windows-7.html
Ошибка? Это не ошибка, это системная функция.