отправка по почте

Форум 1С: Одинэс.Ру

Найти!

отправка по почте

SIA1987
15.06.2009 - 08:02
пытаюсь отправить письмо средствами 1С, подключение выполняется, но при отправке, письмо не отправляется.
 
ТекстПисьма = "
|Здравствуйте уважаемый Погрызов.
|На данный момент  вы  получаете
|пробное письмо. После успешного
|получения эксперимент засчитан.";
 

Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll") = 0 Тогда  
Сообщить("Не удалось загрузить компоненту ""ROM-Mail.dll""");  
Возврат;
конецЕсли;
 
П = Создатьобъект("AddIn.AddInMail");
П.СерверОтправки = "smtp.mail.ru";
П.ПортОтправки   = 25;
П.Логин = "ivansklyarov@mail.ru";
П.Пароль = "*******";
П.АутентификацияПриОтправке = 1;
Если П.Соединение = 0 Тогда
Если П.Подключиться("Отправка") = 0 Тогда  
Сообщить("Не удалось подключиться к серверу ""smpt.mail.ru""");
Возврат;
конецЕсли;
конецЕсли;        
П.Важность = 0;    
П.Кодировка="windows-1251";
П.ТипПисьма = 2;  
//П.АдресОтправителя = "ivansklyarov@mail.ru";
//П.ИмяОтправителя   = "Ivan Sklyarov";
//П.ДобавитьАдрес("АдресПолучателя","Pogrizov","pogrizov@mail.ru");
П.АдресПолучателя = "pogrizov@mail.ru";
П.Тема = "Пробное письмо";
П.Тело = ТекстПисьма;
Если П.Соединение = 0 Тогда      
Сообщить("Соединение потеряно");
иначеЕсли П.Отправить() = 1 Тогда
Сообщить("Сообщение отпарвлено");
иначе      
Сообщить("Не удалось отправить сообщение");
конецЕсли;
П.Отключиться();
К списку тем К списку форумов

Интересные темы

odines.ru
03.12.2020 - 07:55
Смотри также:
Как найти документы, в которых присутствует реквизит определённого типа
Оптимизация кода работы с СЕКЦИЯМИ
Обработка для централизованного принудительного завершение работы ​всех пользователей. Что посоветуете?

Re: отправка по почте

Sasha
1 - 15.06.2009 - 08:17
Никогда не пользовал эту компоненту, рекомендую CDO.
А так, подозреваю, что логин на mail.ru таки  "ivansklyarov", безо всяких "собачек" :-)

Re: отправка по почте

nucha
2 - 15.06.2009 - 10:05
(1) однозначно

Re: отправка по почте

du el
3 - 15.06.2009 - 10:26
0-SIA1987 > а через аутлук не проще отправить?
 
Путь =КаталогИБ();
ИмяФайла ="ХХХХХХХХ"+".xls";
Таб.Записать(путь+ИмяФайла,"xls");
ЗагрузитьВнешнююКомпоненту("V7Plus.dll");
Почта=СоздатьОбъект("AddIn.V7Mail");
Почта.Подключиться();
Почта.НовоеСообщение();
                ЭлАдрес = СокрЛП("xxxx@xxx.xx");
Почта.ДобавитьАдрес(ЭлАдрес);
Почта.ДобавитьФайл(путь+ИмяФайла);
Почта.Заголовок = "Сабж письма";
Почта.Текст = "Дорогой Погрызов.......";
Почта.Послать();
Почта.Отключиться();

Re: отправка по почте

du el
4 - 15.06.2009 - 10:45
(3) СокрЛП нужно если адрес берется например из элемента справочника или
диалога

Re: отправка по почте

Чучундер
5 - 15.06.2009 - 11:36
возьмите отсюда отправлялку, на закладке настроек пропишите параметры сервера почтового и пользуйтесь... если будут ошибки - пишите прямо мне, мыло в подмыльнике
.
http://www.infostart.ru/projects/266/
.
РИДМИ ЧИТАТЬ!!!!!!
.
и еще одна фичка, вам должна понравиться
http://www.infostart.ru/projects/316/

Интересные темы

odines.ru
03.12.2020 - 07:55
Смотри также:
Как быстро распечатать документы?
выгрузка в DBF формат
УРБД. Как организовать миграцию документов не по виду документа, а по определенному критерию

Re: отправка по почте

victuan
6 - 15.06.2009 - 12:22
(0) Возьми dialmail.dll, к ней даже РАБОЧИЕ примеры с кодом идут (в виде внешних обработок).
К списку тем К списку форумов
Тема закрыта и находится в архиве.
Но Вы можете начать новую тему.
« Главная книга Предприниматель 7.7 и 3-НДФЛ »
© 2009 Форум 1С: Одинэс.Ру