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

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


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 человек.
Рекламное место пустует