ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / CDO.Message
12 сообщений из 12, страница 1 из 1
CDO.Message
    #37478832
Alexandr29
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexandr29
Участник
Пытаюсь отправить сообщение

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

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

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

Такой литературы нет,
пользуюсь "Описание встроенного языка", хелпник+интернет+дискИТС
...
Рейтинг: 0 / 0
12.10.2011, 15:23
| Ответить | Цитировать | Написать  
CDO.Message
    #37479280
Leierkastenmann
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leierkastenmann
Гость
objEmail.Configuration.Fields. Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver").value="smtp.mail.ru";
...
Рейтинг: 0 / 0
12.10.2011, 17:53
| Ответить | Цитировать | Написать  
CDO.Message
    #37479340
Alexandr29
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexandr29
Участник
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
12.10.2011, 18:25
| Ответить | Цитировать | Написать  
CDO.Message
    #37479956
Leierkastenmann
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leierkastenmann
Гость
Alexandr29,

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

Я уже и в коде прописывал значения, не помогает. Думал что за ночь серваки перезапустятся - поможет.
Не помогло.
Проблему решил через командную строку
...
Рейтинг: 0 / 0
13.10.2011, 10:19
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
CDO.Message
    #38312277
Alexandr29
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexandr29
Участник
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
27.06.2013, 11:06
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / CDO.Message
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&msg=37478880&tid=1519780]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 30ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 11ms
total:  119ms
созд. / загр.: 119ms
x
x
Закрыть


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