Гость
Войти | Профиль | Очистить
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / CDO.Message / 12 сообщений из 12, страница 1 из 1
12.10.2011, 14:25
    #37478832
Alexandr29
Alexandr29
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
Пытаюсь отправить сообщение

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
objEmail = Createobject("CDO.Message");
	objEmail.From =СокрЛП(frommail);// && вписать нужный кто
	objEmail.To = СокрЛП(lcEmail);// && вписать нужный кому
	objEmail.Subject = СокрЛП(Тема);//&& Тема
	objEmail.Textbody =СокрЛП(Тело);// && "Тело" письма
	objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").value= 2 ;
	objEmail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").value="smtp.mail.ru";
	objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value =  1 ;
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport").value = 25 ;// && порт
	objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").value = 1 ;
           objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").value = СокрЛП(sendname);
           objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").value = СокрЛП(sendpasswd);
	Если ПустоеЗначение(checkmail)= 0  тогда
	       objEmail.Fields.Item("urn:schemas:mailheader:disposition-notification-to").value = СокрЛП(checkmail);// ПРИМЕР - адрес подтверждения 
	КонецЕсли;
	objEmail.TextBodyPart.Charset ="windows-1251";
	objEmail.TextBodyPart.ContentTransferEncoding ="quoted-printable";
	objEmail.Configuration.Fields.Update();
	objEmail.Fields.Update();
	//ibp=objEmail.AddAttachment(СокрЛП(ПолнИмяФайла));// && прикрепление txt и zip
	//ibp.ContentMediaType="application/zip";
	Попытка 
		objEmail.send();
		Возврат( 1 );
	Исключение
		Сообщить("Ошибка при отправке: "+ОписаниеОшибки(),"!!!");
		Возврат( 0 );
	КонецПопытки;
Но выдаёт ошибку:
Ia oaaeinu ioi?aaeou niiauaiea ia SMTP-na?aa?. Eia ioeaee o?ainii?oa: 0x80040217. Ioeeee na?aa?a: not available
Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта: 0x80040217. Отклик сервера: not available

причем, у меня на этом же Компе на VisFoxPro отправляет без проблем. Код немного переделал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2011, 14:31
    #37478842
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
на фоксе вроде не было встроенного почтовика
а в 1с их вроде и не один даже ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2011, 14:49
    #37478869
Alexandr29
Alexandr29
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
sWinTyz,
Я считал, что нашел, универсальный способ отправки сообщений и хотел в этом ибедиться.
И зачем изобретать(узучать) что то новое когда уже есть рабочий код.
Если не получится пойдём через DialMail

Правда
Времени уже потрачено на CDO.Message больше чем возможно потратил бы на DialMail
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2011, 14:58
    #37478880
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
ну так и время потраченное на фокспро тоже ведь жаль?
в 8.2 есть объект для работы с почтой напрямую
и для работы через установленный клиент
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2011, 15:10
    #37478898
Alexandr29
Alexandr29
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
sWinTyz,

Извиняюсь, работаю с 1С 7.7
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2011, 15:13
    #37478904
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
тогда можно заглянуть в книгу Михайлова вроде
там вроде было
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2011, 15:23
    #37478926
Alexandr29
Alexandr29
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
sWinTyz,

Такой литературы нет,
пользуюсь "Описание встроенного языка", хелпник+интернет+дискИТС
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2011, 17:53
    #37479280
Leierkastenmann
Leierkastenmann
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
objEmail.Configuration.Fields. Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver").value="smtp.mail.ru";
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2011, 18:25
    #37479340
Alexandr29
Alexandr29
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
Leierkastenmann,
не помогло, хотя странно, в других строчках 1С ругался на отсутствие Item.
Пробую через DialMail.dll
Файлы писем создаются
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Если ОтправкаПочты.Подключиться("smtp.mail.ru","25",СокрЛП(sendname),СокрЛП(sendpasswd))= 1  тогда		
	Попытка
		ОтправкаПочты.ОтправитьВсеПисьма(, 1 );
		Сообщить(ОтправкаПочты.ИдетОтправка());	
	Исключение
		Предупреждение("Ошибка отправки писем"+ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	Сообщить("Успешно отправлено");
	
	ОтправкаПочты.Отключиться();
	Иначе
		Сообщить("Не смогли подключиться к SMTP-серверу");
	КонецЕсли;
Пишет "Успешно отправлено", но при проверке на почте нет, да и не удаляется msg файлы.
Прием писем через DialMail.dll работает нормально
Я скоро голову сломаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2011, 09:10
    #37479956
Leierkastenmann
Leierkastenmann
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
Alexandr29,

DialMail я не знаю, а вот через CDO письма отправляются по сути очень похожим кодом. Все должно работать. А сами значения параметров верные? Может быть не в коде ошибка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2011, 10:19
    #37480060
Alexandr29
Alexandr29
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
Leierkastenmann,

Я уже и в коде прописывал значения, не помогает. Думал что за ночь серваки перезапустятся - поможет.
Не помогло.
Проблему решил через командную строку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
27.06.2013, 11:06
    #38312277
Alexandr29
Alexandr29
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CDO.Message
Alexandr29,
еще раз столкнулся с ошибкой в заголовке темы
Решение оказалось простое, но не понятное.
Надо было переставить строки местами
Код: sql
1.
2.
3.
4.
5.
Если ПустоеЗначение(checkmail)=0 тогда
	       objEmail.Fields.Item("urn:schemas:mailheader:disposition-notification-to").value = СокрЛП(checkmail);// ПРИМЕР - адрес подтверждения 
КонецЕсли;
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").value = СокрЛП(sendname);
 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").value = СокрЛП(sendpasswd);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / CDO.Message / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 130ms
Закрыть
start [/forum/topic.php?fid=28&mobile=1&tid=1519780]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 30ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 12ms
total:  130ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]