Отправка почты с использованием CDO-компоненты (встроенная в Win2K и выше)

29.10.08

Надо было сделать отправку доков клиентам в pdf. Настройка локалки на работе хз какая. Сами админы не могли помочь. Все библиотеки, которые представлены в этой рубрике, не подошли. У одних пользователей работает только DialMail, у других только ROM-Mail, на терминале вообще ничего не работает. На всех компах пошло только это. С чем и хотел поделиться.
К сайту microsoft.com не обращается.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		Бесплатно
- .1224744016 1,45Kb 538	538	Скачать бесплатно

Функция ОтправкаПоПочте_ВБС(ВложениеПисьма, АдресПолучателя, ТемаПисьма, ТекстПисьма = "") Экспорт
    Попытка

        loConfig = CreateObject("CDO.Configuration");
        loCdoMessage = CreateObject("CDO.Message");

        loCdoMessage.Configuration = loConfig;
        loCdoMessage.From = "web@domenname.ru";
        loCdoMessage.To = АдресПолучателя;
        loCdoMessage.Subject = ТемаПисьма;
        loCdoMessage.textbody = "";
        loCdoMessage.AddAttachment(ВложениеПисьма);

        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = "192.168.0.1";
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1;
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = "Pasword";
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;
        loConfig.Fields.Update();
        loCdoMessage.Send();

        Возврат 1;
    Исключение
        Возврат 0;
    КонецПопытки;
КонецФункции

+39 –1

См. также

Отправка счет-договора по email 1С 7.7 ТиС с помощью Python

Email рассылки Программист Платформа 1С v7.7 1С:Торговля и склад 7.7 Абонемент ($m)

Данный код позволяет отправлять письма с вложениями (pdf счет договор) на email клиентов. Скрипт написан на Python.

1 стартмани

23.12.2022 7125 2 Drfreeman 5

Отправляем почтой печатную форму любого документа (в формате xls)

Печатные формы Email рассылки Программист Стажер Платформа 1С v7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m)

Обработка позволяет отправлять почтой печатную форму любого документа (в формате xls).

1 стартмани

01.11.2022 2741 5 Sancha 6

Отправка счетов из 1С ТиС по e-mail через SSL

Email рассылки Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m)

Оперативная отправка печатной формы документа 1С в графическом или PDF формате по E-mail в том числе с использованием SSL.

1 стартмани

19.01.2021 4856 15 ukhin 0

Отправка почты из 1С 7.7

Email рассылки Программист Пользователь Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 1С:Бухгалтерия 7.7 1С:Зарплата и кадры 7.7 1С:Торговля и склад 7.7 Абонемент ($m)

Отправка электронного письма через CDO 1С 7.7.

1 стартмани

19.07.2019 11251 21 user598323_svdok 0

Групповая рассылка прайсов и уведомлений для 7.7

Email рассылки Управление взаимоотношениями с клиентами (CRM) Оптовая торговля Пользователь Оперативный учет 7.7 1С:Торговля и склад 7.7 Управленческий учет Абонемент ($m)

Обработка для групповой рассылки писем. Разрабатывалась для отправки прайсов.

1 стартмани

17.07.2019 9515 8 orexov 0

Отправка печатных форм по e-mail

Email рассылки Бухгалтер Руководитель проекта Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m)

Отправка печатных документов, отчетов и пр. форм по e-mail.

1 стартмани

28.07.2017 20451 21 АннаШ 44

Обработка отправки документов по почте напрямую из 1С7.7 в файле EXCEL

Загрузка и выгрузка в Excel Email рассылки Документооборот и делопроизводство (СЭД) Бухгалтер Пользователь Платформа 1С v7.7 1C77 Россия Абонемент ($m)

Данная внешняя обработка предоставляет функционал для быстрой выгрузки документа в файл Excel и отправки электронного письма с вложенным документом напрямую из интерфейса 1С Предприятие 7.7.

1 стартмани

16.11.2014 40117 102 etmarket 20

Отправка сообщения посредством почтового клиента Lotus Notes

Email рассылки Программист Платформа 1С v7.7 Платформа 1С v8.3 1C:Бухгалтерия 1C77 Бесплатно (free)

Отправка сообщения посредством почтового клиента Lotus Notes из 1С 7,7 и 1с 8

21.08.2014 16485 iolko 8

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Noy 1079 23.10.08 11:27 Сейчас в теме

Баян.
давно используется в обработках на этом сайте.
например: http://infostart.ru/projects/2680/
http://infostart.ru/projects/266/
http://infostart.ru/profile/13406/projects/2329/
Причем можно без скрипта, а прямо из языка 1С через СоздатьОбъект("CDO.Message");

2. coder1cv8 3481 23.10.08 11:35 Сейчас в теме

О! Автор открыл для себя CDO! :)
P.S. ScriptControl здесь ни к чему...

3. CheBurator 2697 23.10.08 14:11 Сейчас в теме

+майлру может и не пропустить, если from - чужой или не заполнен

4. artbear 1566 24.10.08 09:43 Сейчас в теме

Да и тему можно было бы поменять :(
"Вообще без библиотек (vb script)" это о чем вообще ? :)

5. ValentinV 27.10.08 10:43 Сейчас в теме

Только что хотел написать про не уместное название темы,
а artbear уже написал.
Ставлю + artbear и - автору за название темы.
Извините, но такое ощущение, что название дают рекламные агенты.
Результат. На сайте трудно найти стало что-то нужное.
Или что-бы не было повтора.
Зачем же захламлять не профессиональными выражениями.
Просьба. Чтобы в мусорку не отправлять, дайте название темы,
отражающее сущность вашей разработки.

6. LelikOFF 29.10.08 08:53 Сейчас в теме

http://www.dimac.com/ от туда jmail компонентой пользуюсь уже лет 5 - везде работает!

18. xzorkiix 35 05.12.14 17:20 Сейчас в теме

(6) LelikOFF, простите, но как его скачать?

7. мх 16 29.10.08 11:39 Сейчас в теме

Плюс за лаконичность

8. мх 16 29.10.08 11:53 Сейчас в теме

(итоговую)

9. jeckfs 03.11.08 17:11 Сейчас в теме

присоединяюсь к Noy, только сказал бы - боянище :) зачем программисту 1с выполнять работу сисадмина?

10. fixin 4278 20.12.11 13:02 Сейчас в теме

Я честно говоря не знал, что можно использовать CDO, но рекомендую автору оформить все более грамотно с точки зрения повтороного юзания кода, как у меня (я написал, когда узнал про CDO):

Функция СоздатьСтруктуруПисьмаCDO()
	//Код Гения 1С
	Р = Новый Структура();
	Р.Вставить("СерверSMTP", );
	Р.Вставить("ПользовательSMTP", );
	Р.Вставить("ПортSMTP", 25);
	Р.Вставить("SSL", ложь);
	Р.Вставить("Отправитель", );
	Р.Вставить("Кому", );
	Р.Вставить("ПарольSMTP", );
	Р.Вставить("Тема", );
	Р.Вставить("Текст", );
	Р.Вставить("Вложения", Новый Массив());
	Р.Вставить("Копия", );
	Р.Вставить("СкрытаяКопия", );
	Р.Вставить("ДляОтвета", );
	Р.Вставить("Аутентификация ", 1); //0 - анонимно, 1 - базовая, 2 - NTLM 
	Р.Вставить("ТаймАут", 60); //в секундах
	
	Возврат Р;
КонецФункции

Функция ОтправитьПисьмоЧерезCDO(СтруктураCDO) Экспорт
	//Код Гения 1С
	//http://www.paulsadowski.com/wsh/cdo.htm
	Письмо = Новый COMОбъект("CDO.Message");
	Р = Новый Структура("ОК, Объект, Описание", ложь, Письмо, "");
	Письмо.to = СтруктураCDO.Кому;
	Письмо.from = СтруктураCDO.Отправитель;
	Письмо.cc = СтруктураCDO.Копия;
	Письмо.bcc = СтруктураCDO.СкрытаяКопия;
	Для Каждого Элемент Из СтруктураCDO.Вложения Цикл
		Письмо.AddAttachment(Элемент);
	КонецЦикла;
	Письмо.Subject = СтруктураCDO.Тема;
	Письмо.TextBody = СтруктураCDO.Текст;
	Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2;
	Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = СтруктураCDO.СерверSMTP;
	Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = СтруктураCDO.Аутентификация; 
	Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = СтруктураCDO.ПользовательSMTP;
	Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = СтруктураCDO.ПарольSMTP;
	Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = СтруктураCDO.ПортSMTP;
	Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = СтруктураCDO.SSL;
	Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = СтруктураCDO.ТаймАут;
	Письмо.Configuration.Fields.Update();
	
	Попытка
		Письмо.Send();
	Исключение
		Р.ОписаниеОшибки = ОписаниеОшибки();
		Возврат Р;
	КонецПопытки;
	
	Р.ОК = истина;
	
	Возврат Р;
	
	
КонецФункции

Показать

14. sai_NT 24.06.12 10:58 Сейчас в теме

(10) fixin, ошибочка закралась:
или (предпочтительней)

Р = Новый Структура("ОК, Объект, ОписаниеОшибки", ложь, Письмо, "");

или

Р.Описание = ОписаниеОшибки();

15. fixin 4278 24.06.12 12:15 Сейчас в теме

(14) согласен. есть такое дело. ;-)

11. Ёпрст 1065 20.12.11 13:12 Сейчас в теме

http://avb1c.narod.ru/?=a9

12. Ёпрст 1065 20.12.11 13:12 Сейчас в теме

+11
[:]||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||[:]

13. rusrus 50 24.06.12 09:36 Сейчас в теме

Была бы возможность поставить ва плюса- поставил бы

16. Afanasyev.sv@mail.ru 14.10.14 08:29 Сейчас в теме

Доброго времени суток.
Вложение приходит некорректно. При открытии пишет, что файл поврежден и не открывается. Ответ не могу найти нигде.
Подскажите, вдруг, кто сталкивался. Как победить?

17. Afanasyev.sv@mail.ru 14.10.14 11:33 Сейчас в теме

Разобрался. Вдруг кому пригодится.
Необходимо в iMsg.TextBody устанавливать какой-либо текст, хватает даже пустого символа (где iMsg = Новый COMОбъект("CDO.Message");)

19. seacat 12.02.15 04:32 Сейчас в теме

Жаль только что пример из 10 комментария в 7.7 не заработает.
в примере из темы я бы добавил
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2;
у меня без него не работало.

20. mikhailovaew 127 05.11.15 09:13 Сейчас в теме

вроде гугл и мейл больше с CDO не работают. Есть решение?

21. user1444101 30.07.20 21:20 Сейчас в теме

Все работает! Поставьте порт 465 и SSL True.

23. nick_e 2 14.09.22 08:15 Сейчас в теме

(21)

        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = "192.168.0.1";
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1;
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = "Pasword";
        loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;

эти ссылки давно не работают, где взять то, что по ним расположено?