smtp client in a console app??

[Ian Branch 128]

Hi Guys,

D10.4.2, latest Indy 10, Win 10.

I have created a console app with my Indy code in it.

The code is exactly the same as I have in my VCL app, same settings/parameters, etc, which works.

But.  When I run it in the cmd prompt I get the following error.

>>EIdTLSClientTLSHandShakeFailed: SSL negotiation failed.<<

Now, I freely acknowledge I probably don't have something set right. 😞

Here is the source I have att..

program DBiPREmail;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  IdMessage, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdBaseComponent, IdComponent,
  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdAttachment, IdMessageParts, IdEMailAddress, IdAttachmentFile, IdGlobal,
  IdText;  //  These are all in just to start.  To be cleaned up when working..

var
  dmPREmail: TdmPREmail;
  IdSMTP: TIdSMTP;
  IdMessage: TIdMessage;
  IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; // to allow SSL authenticate //

  try
    //
    try
      //
      IdSMTP := TIdSMTP.Create(nil);
      //
      try
        //
        IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(IdSMTP);
        //
        IdMessage := TIdMessage.Create(IdSMTP);
        //
        // IO HANDLER SETTINGS //
        with IdSSLIOHandlerSocketOpenSSL1 do
        begin
          MaxLineAction := maException;
          SSLOptions.Method := sslvTLSv1;
        end;
        //
        IdSMTP.Host := 'my smtp email host';
        //
        IdSMTP.Port := 587;
        //
        IdSMTP.Username := 'my user name';
        IdSMTP.Password := 'my password';
        //
        IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
        IdSMTP.AuthType := satDefault;
        //
        IdSMTP.UseTLS := utUseExplicitTLS;
        //
        // SETTING email MESSAGE DATA //
        IdMessage.Clear;
        //
        IdMessage.From.Address := 'my email address';
        IdMessage.Recipients.EMailAddresses := 'second email address';
        IdMessage.CCList.EMailAddresses := 'third email address';
        //
        IdMessage.Subject := 'Test Email Subject';
        IdMessage.Body.text := 'Test Email Body';
        IdMessage.Priority := mpHigh;
        //
        with TIdText.Create(IdMessage.MessageParts, nil) do
        begin
          //
          Body.text := Body.text +
            '<p style="color: #5e9ca0;">This is a test <strong>message</strong> for <span style="color: #ff0000;"><strong>emailing</strong></span>.</p><h1 style="color: #5e9ca0;"> </h1>';
          ContentType := 'text/html';
        end;
        //
        IdMessage.ContentType := 'multipart/mixed';
        //
        try
          IdSMTP.Connect;
        except
          on E: Exception do
          begin
            Writeln(E.ClassName, ': ', E.Message);
            Exit;
          end;
        end;
        //
        try
          try
            IdSMTP.Send(IdMessage);
          finally
            IdSMTP.Disconnect();
          end;
        except
          on E: Exception do
          begin
            Writeln(E.ClassName, ': ', E.Message);
            Exit;
          end;
        end;
        //
      finally
        //
        IdSMTP.Free;
        //
      end;
      //
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  //
end.

Thoughts, suggestions appreciated..

 

Regards & TIA,

Ian

 

[DPStano 15]

do you have libeay32.dll and ssleay32.dll near exe?

 

[Remy Lebeau 1436]

10 hours ago, Ian Branch said:

The code is exactly the same as I have in my VCL app, same settings/parameters, etc, which works.

But.  When I run it in the cmd prompt I get the following error.

>>EIdTLSClientTLSHandShakeFailed: SSL negotiation failed.<< 

EIdTLSClientTLSHandShakeFailed is raised when another exception is caught internally during the SSL/TLS handshake process.  So the EIdTLSClientTLSHandShakeFailed.InnerException should not be nil.  What are the values of the ClassName and Message of that InnerException?

Edited July 30, 2021 by Remy Lebeau

[Ian Branch 128]

Doh!  Stupid, stupid me!  I forgot to put the two .dll files in the project directory. :-(

All good now.

 

Thanks Guys,

Ian