antarey Опубликовано 1 февраля, 2015 Поделиться Опубликовано 1 февраля, 2015 Необходимо перехватись eMail сообщение ну и желательно прочитать его Как реализовать такой функционал ? Заранее спасибо Цитата Ссылка на комментарий
0 Vitaldj Опубликовано 5 февраля, 2015 Поделиться Опубликовано 5 февраля, 2015 Простите, не совсем понятно сформулировали. Что значит перехватить еmail сообщение? Какая платформа? Просто сделать емаил клиент? Цитата Ссылка на комментарий
0 antarey Опубликовано 5 февраля, 2015 Автор Поделиться Опубликовано 5 февраля, 2015 Vitaldj Для андроид платформы. Типа емаил клиента, но он должен быть как сервис - работать по заданному интервалу проверки Цитата Ссылка на комментарий
0 Vitaldj Опубликовано 5 февраля, 2015 Поделиться Опубликовано 5 февраля, 2015 Ну используй Indy pop3 слиент. ему без разницы какая платформа. В инете много кода для этого компонента. Я писал только на отправку писем (компонент smtp), получение не надо было, ну думаю по тпкому же принцыпу, сообразишь)) код: Procedure TForm1_mail.Button1Click(Sender: TObject); var att: TIdAttachmentFile; PRes : PChar; Res : word; Windir: string; begin SMTP.Host:= 'smtp.yandex.ru' ;//+edit1.text; // хост SMTP.Port:= 25 ; //465 587; // strtoint(edit2.Text); // порт Smtp.AuthType := atLogin; // или atNone AuthenticationType Smtp.Username:= 'вставляешь свой'; //edit3.Text; // почтовый адрес Smtp.Password:= 'вставляешь свой';// edit4.Text; // пароль { это нужно на некоторых серверах IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil); IdSSLIOHandlerSocketOpenSSL1.Destination := SMTP.Host+':'+IntToStr(SMTP.Port); IdSSLIOHandlerSocketOpenSSL1.Host := SMTP.Host; IdSSLIOHandlerSocketOpenSSL1.Port := SMTP.Port; IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned; SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1; SMTP.UseTLS := utUseExplicitTLS; } MailMessage.CharSet := 'KOI8-R'; // кодировка письма MailMessage.From.Name:= 'Имя заголовка'; // имя MailMessage.Subject:= 'Тема' ; // тема MailMessage.From.Address:= 'от кого@yandex.ru' ; MailMessage.From.Domain:= 'yandex.ru'; // адрес MailMessage.From.User := 'вставляешь свой'; // MailMessage.From.Text := 'вставляешь свой'; MailMessage.From.Name := 'вставляешь свой'; // MailMessage.Sender.Domain:='вставляешь свой'; // MailMessage.Sender.Address:= 'вставляешь свой' ; MailMessage.Recipients.EMailAddresses:= 'кому';//edit3.Text+','+edit2.Text; // получатель и копия MailMessage.Body.Text:= Memo1.Text ; // текст письма RussianToUnicode MailMessage.IsEncoded:=true; MailMessage.ContentType:='text/plain; charset=KOI8-R'; ATT := TIdAttachmentFile.Create(MailMessage.MessageParts, 'c:\1\1.jpg'); // это если нужно чтото приаттачить try SMTP.Connect; form1_mail.SMTP.Send(MailMessage); ShowMessage('ok'); except on E:Exception do begin ShowMessage('Ошибка... Проверьте правильность пароля и e-mail''a '+ e.Message); Memo1.Lines.Add( e.Message); end; end; end; Что касается сделать службу, то для андроида вроде уже был вопрос то этому форуму, поищи. Я для андроида не делаю. Цитата Ссылка на комментарий
0 antarey Опубликовано 5 февраля, 2015 Автор Поделиться Опубликовано 5 февраля, 2015 спасибо, с самим клиентом проблем нет , ладно поищем работу с сервисами Цитата Ссылка на комментарий
0 Vitaldj Опубликовано 5 февраля, 2015 Поделиться Опубликовано 5 февраля, 2015 Посмотри, может пригодиться: http://blog.blong.com/2013/11/delphi-and-android-services.html http://blog.blong.com/2013/11/delphi-and-android-services-part-2.html http://fire-monkey.ru/topic/230-zapusk-video-po-raspisaniiu-v-pleere-na-androide/?hl=%2B%D0%B0%D0%BD%D0%B4%D1%80%D0%BE%D0%B8%D0%B4+%2B%D1%81%D0%B5%D1%80%D0%B2%D0%B8%D1%81#entry869 Цитата Ссылка на комментарий
0 Vitaldj Опубликовано 5 февраля, 2015 Поделиться Опубликовано 5 февраля, 2015 вот еще http://fire-monkey.ru/topic/116-rss-reader/?p=377 Цитата Ссылка на комментарий
0 antarey Опубликовано 5 февраля, 2015 Автор Поделиться Опубликовано 5 февраля, 2015 всем спасибо Vitaldj там вопрос не решен до конца, к сожалению нет примера Цитата Ссылка на комментарий
Вопрос
antarey
Необходимо перехватись eMail сообщение ну и желательно прочитать его
Как реализовать такой функционал ?
Заранее спасибо
Ссылка на комментарий
7 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.