Вход | Регистрация

Форумы на Кубань.Ру


1С:Предприятие ::

Метки: 

ПримерИнтернетПочты в конфе v8-Примеры ИТС.Соединение SMTP-mail.ru не идет!

Ø
Я
   petrovich2005
11.11.04 - 18:18
Собственно это и есть вопрос... У меня нивкакую непроходит соединение с SMTP на MAIL.RU... Кто-нибудь это уже юзал?.. Хотя TheBat с точно такими же параметрами почту отправляет токо так
 
 
   BorisG
1 - 11.11.04 - 18:54
Да вроде как ответили там, где ты первый раз задал... Чем не устраивает?
   petrovich2005
2 - 11.11.04 - 18:59
Почитал инстукцию внимательней изменил код на такой:
может кому пригодится
Функция ОтправитьЗаявку(пФайл, пАдрес)
  Результат = Ложь;
  // Если файл заявки существует то продолжаем
  Если СуществуетФайл(пФайл) Тогда
    //Создание объекта для того чтобы в дальнейшем узнать
    //имя файла без расширения
    ФайлВложения = Новый Файл(пФайл);
    //Создаем объекты
    ПочтЗаяв= Новый ИнтернетПочта();
    ПочтПрофиль=Новый ИнтернетПочтовыйПрофиль();
    ПочтСообщение = Новый ИнтернетПочтовоеСообщение();
    //Создание почтового сообщения (письма)
    ПочтСообщение.Вложения.Добавить(ФайлВложения.ПолноеИмя);//Прикрепление файла к письму.
    ПочтСообщение.Тема=ФайлВложения.ИмяБезРасширения;//Тема письма равна имени файла если нужно можно сделать имя файла более информативным тогда и тема тоже будет более понятна
    ПочтСообщение.Получатели.Добавить("support@mail.ru");//Добавляем получателей можно добавлять несколько адресов
    ПочтСообщение.Отправитель="user@mail.ru";//Почтовый ящик с которого отсылается письмо
        // Задаются настройки профиля
    ПочтПрофиль.АдресСервераPOP3 = ПочтСообщение.Отправитель.Сервер;
    ПочтПрофиль.АдресСервераSMTP = ПочтСообщение.Отправитель.Сервер;
    ПочтПрофиль.Пользователь=ПочтСообщение.Отправитель.Пользователь.
    ПочтПрофиль.ВремяОжидания=40;
    ПочтПрофиль.ПортSMTP=25;
    //Собственно процесс отправки, ошибки возникающие в процессе обрабатываются системой.
    ПочтЗаяв.Подключиться(ПочтПрофиль);
    ПочтЗаяв.Послать(ПочтСообщение);
    ПочтЗаяв.Отключиться();
    Результат=Истина;
    Иначе
    //Не найден файл заявки
    Сообщить("Не найден файл заявки " + пФайл);
  КонецЕсли;
  
Возврат Результат// Возвращаем результат работы
КонецФункции// ОтправитьЗаявку()



Список тем форума

Форум Территория 1С

Рекламное место пустует   Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует