Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 23:25

Получение письмо по почте

Автор Ermak1985, 05 фев 2016, 13:04

0 Пользователей и 1 гость просматривают эту тему.

Ermak1985

Можете подсказать почему при получение письма в Тексте выдает результат ИнтернетТекстыПочтовогоСообщения а не текст письма.
POP3Сервер="192.168.2.2";
ПортСервераPOP3Рассылки=110;
Пользователь="erm@mail.ru";
Пароль="Thvf123";


//создадим новый объект
Профиль = Новый ИнтернетПочтовыйПрофиль;

//Пропишем параметры соединения
//ip адрес или имя POP3 сервера
Профиль.АдресСервераPOP3 = POP3Сервер;


//Порт SMTP сервера
Профиль.ПортPOP3 = ПортСервераPOP3Рассылки;

//Имя пользователя почтового ящика
Профиль.Пользователь = Пользователь;

//Пароль доступа к почтовому ящику
Профиль.Пароль = Пароль;

// Создаем объект для работы с почтой
ИнтернетПочта  = Новый ИнтернетПочта;

//Выполняем подключение, согласно указанный параметров
Попытка
ИнтернетПочта.Подключиться(Профиль);
Исключение
//При подключении возникла ошибка, сообщим
Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
Возврат;
КонецПопытки;

//Выбираем все  письма в массив
МассивСообщений = Новый Массив;
МассивСообщений = ИнтернетПочта.Выбрать(Истина);             

//Разбираем каждое письмо, и выполняем необходимые действия
Для Каждого Письмо Из МассивСообщений Цикл

//Получение вложений в писье
Вложения = Письмо.Вложения;
Тема      =  Письмо.Тема;
Тексты      =  Письмо.Тексты;

//..... и т.д.
КонецЦикла;                   

//После получения закрываем соединение
ИнтернетПочта.Отключиться();

Rasty

потому что у него тип такой


ИнтернетТекстыПочтовогоСообщения (InternetMailTexts)
ИнтернетТекстыПочтовогоСообщения (InternetMailTexts)
Элементы коллекции:

ИнтернетТекстПочтовогоСообщения
Для объекта доступен обход коллекции посредством оператора Для каждого ... Из ... Цикл. При обходе выбираются элементы коллекции.
Возможно обращение к элементу коллекции посредством оператора [...]. В качестве аргумента передается индекс (нумерация с 0) элемента коллекции.

Методы:

Добавить (Add)
Количество (Count)
Очистить (Clear)
Получить (Get)
Удалить (Delete)
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Ermak1985

Цитата: Rasty от 05 фев 2016, 13:20
потому что у него тип такой


ИнтернетТекстыПочтовогоСообщения (InternetMailTexts)
ИнтернетТекстыПочтовогоСообщения (InternetMailTexts)
Элементы коллекции:

ИнтернетТекстПочтовогоСообщения
Для объекта доступен обход коллекции посредством оператора Для каждого ... Из ... Цикл. При обходе выбираются элементы коллекции.
Возможно обращение к элементу коллекции посредством оператора [...]. В качестве аргумента передается индекс (нумерация с 0) элемента коллекции.

Методы:

Добавить (Add)
Количество (Count)
Очистить (Clear)
Получить (Get)
Удалить (Delete)
Как тогда сделать чтобы выводился текст?

Rasty

ИнтернетТекстыПочтовогоСообщения (InternetMailTexts)
ИнтернетТекстыПочтовогоСообщения (InternetMailTexts)
Элементы коллекции:

ИнтернетТекстПочтовогоСообщения
Для объекта доступен обход коллекции посредством оператора Для каждого ... Из ... Цикл. При обходе выбираются элементы коллекции.
Возможно обращение к элементу коллекции посредством оператора [...]. В качестве аргумента передается индекс (нумерация с 0) элемента коллекции.

Методы:

Добавить (Add)
Количество (Count)
Очистить (Clear)
Получить (Get)
Удалить (Delete)
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Ermak1985

Вот сделал таким способом
Для Каждого Текст из МассивСообщений[Индекс].Тексты Цикл
Стр.ТекстПисьма=Текст.Текст;
КонецЦикла;

Выводит текст в HTML
<html>
  <head>
    <meta http-equiv="content-type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    Здесь выводится текст письма
  </body>
</html>

Как сделать чтобы выводит просто Здесь выводится текст письма
И чтобы не выводил Текст подписи

Rasty

Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Ermak1985


Rasty

автоматически обрабатывать (разбирать) с целью получения нужных данных. Парсить можно выдачу на предмет позиций сайта, можно страницы на предмет нахождения там нужной ссылки и т.п. Парсер — это программа, которая и обеспечивает эту автообработку.
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Ermak1985


Rasty

пример не покажу на разные файлы разные парсеры пишутся, в вашем случае xml, копайте в сторону xml
Добавлено: 08 фев 2016, 15:15


если тип Стр.ТекстПисьма строка, тогда просто по строкам идите или сразу читайте весь текст и ищите <body
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск