IT решения для Вашего бизнеса

 
Главная  |  Продукты  |  Услуги и цены  |  Клиенты  |  Контакты
 
1C Предприятие 7.7
Наши решения
Программирование
1С Предприятие 8.*
Наши решения
Партнерские разработки
Типовые решения
Программирование
Администрирование
Web проекты
Интернет-магазины
Поиск по сайту

 
Главная arrow прог.7.7 arrow Отправка и получение почты из 1С77 с использованием внешней компоненты ROM-Mail
Отправка и получение почты из 1С77 с использованием внешней компоненты ROM-Mail Версия в формате PDF Версия для печати Отправить на e-mail
Рейтинг: / 7
ХудшаяЛучшая 
Написал Валецкий Станислав   
Данная компонента позволяет отправлять и получать почту напрямую через протоколы SMTP и POP3. Это очень важно так всем известная компонента v7plus работает через системный MAPI интерфейс,  что неудобно для пользователя, т.к. ему приходится подтверждать доступ при каждой отправке почты.
Рассмотрим пример отправки и получения почты с использованием компонеты ROM-Mail.
 
 
Процедура ОтправитьПочту()
  
  //Пытаемся подключить компоненту. она должна находится в каталоге программы или каталоге базы
  Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
    Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
    Возврат;
  Конецесли;   
  
  
  //Подключаемся к почте с указанными параметрами
  Почта          = СоздатьОбъект("AddIn.AddInMail");   
  Почта.СерверОтправки  = "192.168.100.1";
  Почта.ПортОтправки    = "25";  
  Почта.Логин        = Логин; //при необходимости
  Почта.Пароль      = Пароль;//при необходимости
 
  
  //Если подключение не удачное прерываем обработку
  Если Почта.Соединение = 0 Тогда
    Если Почта.Подключиться("Отправка")=0 Тогда
      Сообщить("Не удалось подключиться к почтовому серверу","!");
      Возврат;
    Конецесли;
  Конецесли;  
  
  //Формируем сообщение
  Почта.Важность    = 0;
  Почта.Кодировка    = "windows-1251";
  Почта.ТипПисьма    = 2;
  Почта.АдресОтправителя  = "АдресОтправителя"; 
  Почта.ИмяОтправителя  = "Вася";
 
  //указываем получателей письма
  Почта.ДобавитьАдрес("АдресПолучателя",ИмяПолучателя,АдресПолучателя);
  
  //если необходимо добавляем вложения
  Почта.Вложения = ФайлВложения;
  
  Почта.Тема  = "Тема письма ";
  Почта.Тело  = "Текст письма";   
  
  //Пытаемся отправить
  Если Почта.Соединение=0 Тогда
       Сообщить("Соединение потеряно","!");
  ИначеЕсли Почта.Отправить()=1 Тогда
       Сообщить("Почтовое сообщение отправлено","i");
  Иначе
       Сообщить("Не удалось отправить сообщение","!");
    Конецесли;    
 
  //Отключаемся
  Почта.Отключиться();
КонецПроцедуры    
 
 
Процедура ПолучитьПочту()   
  
  //Пытаемся подключить компоненту
  Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
    Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
    Возврат;
  Конецесли;
 
  //Подключаемся к почте с указанными параметрами
  Почта          = СоздатьОбъект("AddIn.AddInMail");   
  Почта.СерверПриема  = "pop3.mail.ru";
  Почта.ПортПриема    = "110";  
  Почта.Логин        = Логин; //при необходимости
  Почта.Пароль      = Пароль;//при необходимости
  Почта.ОставлятьНаСервере    = 0; //необходимо ли оставлять письма в ящике
    
    //Если подключение не удачное прерываем обработку
  Если Почта.Соединение = 0 Тогда
    Если Почта.Подключиться("Прием")=0 Тогда
      Сообщить("Не удалось подключиться к почтовому серверу","!");
      Возврат;
    Конецесли;
  Конецесли;  
  
  ПринятыйФайл = "";
  Для й = 1 По Почта.КоличествоСообщений() Цикл  
    
    //Читаем заголовки писем    
    Если Почта.ПолучитьЗаголовок(й) = 1 Тогда 
      
      //Читаем тексты писем
      Если Почта.ПолучитьТело(й)=1 Тогда     
        
        //Выбираем вложения писем
          Для ф = 1 По Почта.КоличествоФайлов() Цикл            
            
            //сохраняем вложение
            Почта.СохранитьФайл(ф,"");                      
          Конеццикла;        
      Конецесли;  
    Конецесли;
  Конеццикла;
  
  //Отключаемся
  Почта.Отключиться(); 
 
КонецПроцедуры
 

Добавить комментарий

:D:lol::-);-)8):-|:-*:oops::sad::cry::o:-?:-x:eek::zzz:P:roll::sigh:
Жирный Курсив Подчеркнутый Зачеркнутый Цитата


Защитный код
Обновить

< Пред.
Карта сайта
1C-PROFI © 2019
Использование материалов разрешено только с указанием ссылки (для web сайтов гиперссылки)
www.megastock.ru