TLazDeviceMessage email Android
lazarus / 43-Android

----------------------------------------------------------------------
zeljkoc · 2012-10-05 20:23

Please example send email TLazDeviceMessage for Android or link for
help

----------------------------------------------------------------------
Fortuna1 · 2012-10-06 06:26

I thing that in this case sysnapse the best solution.
http://www.lazarus.freepascal.org/index.php/topic,17663.msg97737.html#
msg97737

or maybe  indy .
But I m not sure  that indy work good in android.

----------------------------------------------------------------------
zeljkoc · 2012-11-14 13:40

I'm trying to send email  android
no success

Synapse code that runs under Windows does not work on android

I tried the same with Indy 10  (indy-10.2.0.3.zip) work to windows a
not work to android

exampl send lazarus windows>

Code: [Select]uses
  IdSMTP, IdMessage, IdSSLOpenSSL, IdExplicitTLSClientServerBase,
IdIOHandler, IdAttachment;
 

 procedure TForm1.Button2Click(Sender: TObject);
var IdSmtp :TIdSMTP;
    IdMessage: TIdMessage;
begin
 IdSmtp := TIdSMTP.Create(nil);
    IdMessage:= TIdMessage.Create;
   try
      IdSMTP.Port := 587; //google port
      IdSmtp.IOHandler := nil;
      IdSmtp.ManagedIOHandler := true;

      // try to use SSL
     try
       TIdSSLContext.Create.Free;
       IdSmtp.IOHandler :=
TIdSSLIOHandlerSocketOpenSSL.Create(idSmtp);
       IdSmtp.UseTLS := utUseExplicitTLS;
     except
       IdSmtp.IOHandler.Free;
       IdSmtp.IOHandler := nil;
     end;

     if (IdSmtp.IOHandler = nil) then
     begin
       IdSmtp.IOHandler := TIdIOHandler.MakeDefaultIOHandler(idSmtp);
       IdSmtp.UseTLS := utNoTLSSupport;
     end;

     // send message, etc
      IdSMTP.Host := 'smtp.gmail.com';                         
//host;
      IdSMTP.Username := '__@gmail.com';                       
//username;
      IdSMTP.Password := '******';                             
//password;
      IdMessage.From.Address := '____@gmail.com';             
//username;
      IdMessage.Recipients.EMailAddresses := '_____@gmail.com';//from;
      IdMessage.Subject := 'SUBJECT message';                 
//subject;
      {if FileExists('c:\temp.txt') then
         TIdAttachment.Create(IdMessage.MessageParts, 'c:\temp.txt');}

      IdMessage.Body.Text := 'TekstPoruke';

      IdSMTP.Connect();
      IdSMTP.Send(IdMessage);
      if IdSMTP.Connected then IdSMTP.Disconnect;
     //----------------------
   finally
     idMessage.Free;
     idSmtp.Free;
   end;
end;

----------------------------------------------------------------------
felipemdc · 2012-11-15 14:40

Hello, Sorry for the long delay, I only saw this now.
TLazDeviceMessage contains already the structure preparing for future
e-mail support, but it is not yet implemented for Android. Only SMS
sending was implemented at the moment.

----------------------------------------------------------------------
zeljkoc · 2012-11-15 14:55

Thank felipemdc,

I'm trying to put together an application and need to send me an email
when the expected implementation


I never used the Java
I try to translate  java:

Code: [Select]  Intetn emailIntent = new
Intent(android.content.Intent.ACTION_SEND);
  Intetn emailIntent = new Intent(android.Intent.action.SEND);
  string aEmailList[] = {"user@fakehost.com"};
  emailIntent.putExtra(android.content.Intent.EXTRA_EMAIL,
aEmailList);
  emailIntent.putExtra(android.content.Intent.EXTRA_SUBJECT, "My
Subject");
  emailIntent.setType("plain/text");
  emailIntent.putExtra(android.content.Intent.EXTRA_TEXT, "My message
body");
  startActivity(emailIntent);