Перейти к содержанию
Fire Monkey от А до Я
  • 0

Перехват eMail сообщения от определенного адресата


antarey

Вопрос

Рекомендуемые сообщения

  • 0

Ну используй 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

Посмотри, может пригодиться:

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

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...