Hi All

I have a simple application that sends emails which I got from http://delphi.about.com/od/indy/a/email-send-indy.htm 

This works fine on my pc when in Delphi XE2 environment and also when I run the .exe on my pc.

When running the .exe on other pcs on the network (that have email and network capabilities) I get a error message:-

"ERROR: Service not available

Status: Disconnected.
Status: Disconnecting.
Status: Connected.
Status: Connecting to 192.168.1.1.
Status: Resolving hostname Serv-mail01.Serv.local."

I've run as Admin and still the same error.

Any Ideas why or what I need to check?

tia

Andrew wrote:

> I have a simple application that sends emails which I got from
> http://delphi.about.com/od/indy/a/email-send-indy.htm

That example is for Indy 9.  I assume you are using Indy 10 instead, is that 
right?

> Any Ideas why or what I need to check?

There is not enough information to diagnose your problem.  Is an exception 
being raised by TIdSMTP.Connect() or TIdSMTP.Send()?  If so, what class type 
does it have, and what does its Message property say?  The fact that you 
are able to connect and then get disconnected suggests that the server is 
likely sending an error message in reply to a command, or even in the initial 
greeting.  But since you have not shown the actual SMTP communication log 
(to get that, use a packet sniffer, or attach a TIdLog... component to TIdSMTP) 
to see what the actual commands and responses look like.

-- 
Remy Lebeau (TeamB)

I would suspect that the other PCs do not have the OpenSSL dlls
on thier systems each is named as 
libeay32.dll 
and 
ssleay32.dll 
you need to export these two dlls along with your application

Hi Remy


> That example is for Indy 9.  I assume you are using Indy 10 instead, is that right?

I'm using Indy version 10.5.8.0

 
> There is not enough information to diagnose your problem.  Is an exception 
> being raised by TIdSMTP.Connect() or TIdSMTP.Send()?  If so, what class type 
> does it have, and what does its Message property say?  The fact that you 
> are able to connect and then get disconnected suggests that the server is 
> likely sending an error message in reply to a command, or even in the initial 
> greeting.  But since you have not shown the actual SMTP communication log 
> (to get that, use a packet sniffer, or attach a TIdLog... component to TIdSMTP) 
> to see what the actual commands and responses look like.

These are the components I'm using from Indy:-
    MailMessage: TIdMessage;
    SMTP: TIdSMTP;


Exception is being raised on the Connection as I wrapped a try except around:-

  //send mail
  try
    try
      SMTP.Connect;
      try
        SMTP.Send(MailMessage);
      except on E:Exception do
        StatusMemo.Lines.Add(' Sending ERROR: ' + E.Message);
      end;
    except on E:Exception do
      StatusMemo.Lines.Add('Connection ERROR : ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;




Which doesn't make sense as the SMTP component has a "Status Event" and that display the following  messages:-
Status: Disconnected.
Status: Disconnecting.
Status: Connected.
Status: Connecting to 192.168.1.1.
Status: Resolving hostname Serv-mail01.Serv.local.


One of which was "Connected"



Strange.

Andrew wrote:

> I'm using Indy version 10.5.8.0

> These are the components I'm using from Indy:-

Please attach one of the TIdLog... components, such as TIdLogFile, to the 
TIdSMTP.Intercept property, and then provide the resulting log here.

> Exception is being raised on the Connection as I wrapped a try except
> around:-

But what does the exception actually say?  Without that, I cannot tell you 
what is going wrong.

> Which doesn't make sense as the SMTP component has a "Status Event"
> and that display the following  messages:-
> 
> Status: Disconnected.
> Status: Disconnecting.
> Status: Connected.
> Status: Connecting to 192.168.1.1.
> Status: Resolving hostname Serv-mail01.Serv.local.
> 
> One of which was "Connected"

That simply means the underlying socket has successfully connected to a listening 
port on the server.  That event occurs before any data is then exchanged 
over the socket.  You are getting disconnected after the event is triggered, 
because something is going wrong.  Either the server is disconnecting you 
with an error message, or an SMTP command is failing.

-- 
Remy Lebeau (TeamB)

Dennis wrote:

> I would suspect that the other PCs do not have the OpenSSL
> dlls on thier systems each is named as
> libeay32.dll
> and
> ssleay32.dll
> you need to export these two dlls along with your application

Assuming the app is trying to use SSL/TLS to begin with.  The example Andrew 
is basing his code on does not use SSL/TLS.

If SSL/TLS were being used, and if the DLLs are missing, or the wrong version 
of the DLLs are being used, or Indy's SSL/TLS properties are misconfigured, 
that would certain cause TIdSMTP failures.

-- 
Remy Lebeau (TeamB)

Hi Remy

> Please attach one of the TIdLog... components, such as TIdLogFile, to the 
> TIdSMTP.Intercept property, and then provide the resulting log here.

I've attached a 

IdLogFile1: TIdLogFile;

On the Failed PC's (3 I've tried all with Outlook 2010 connection capabilities) it only generated:-

Stat Connected.
Recv 24/07/2015 09:45:17: 421 4.3.2 Service not available<EOL>
Stat Disconnected.

On my PC it Generates:-

Stat Connected.
Recv 24/07/2015 09:39:08: 220 Serv-mail01.Serv.local Microsoft ESMTP MAIL Service ready at Fri, 24 Jul 2015 09:39:22 +0100<EOL>
Sent 24/07/2015 09:39:08: EHLO AndrewPailthorp<EOL>
Recv 24/07/2015 09:39:08: 250-Serv-mail01.Serv.local Hello [192.168.7.89]<EOL>250-SIZE 15728640<EOL>250-PIPELINING<EOL>250-DSN<EOL>250-ENHANCEDSTATUSCODES<EOL>250-STARTTLS<EOL>250-AUTH<EOL>250-8BITMIME<EOL>250-BINARYMIME<EOL>250-CHUNKING<EOL>250-XEXCH50<EOL>250 XSHADOW<EOL>
Sent 24/07/2015 09:39:08: RSET<EOL>
Recv 24/07/2015 09:39:08: 250 2.0.0 Resetting<EOL>
Sent 24/07/2015 09:39:08: MAIL FROM: <firstname.lastname@email.co.uk><EOL>
Recv 24/07/2015 09:39:08: 250 2.1.0 Sender OK<EOL>
Sent 24/07/2015 09:39:08: RCPT TO:<firstname.lastname@email.co.uk><EOL>
Recv 24/07/2015 09:39:08: 250 2.1.5 Recipient OK<EOL>
Sent 24/07/2015 09:39:08: DATA<EOL>
Recv 24/07/2015 09:39:08: 354 Start mail input; end with <CRLF>.<CRLF><EOL>
Sent 24/07/2015 09:39:08: From: "firstname.lastname@email.co.uk" <firstname.lastname@email.co.uk><EOL>Subject: This is the subject of this mail<EOL>To: firstname.lastname@email.co.uk<EOL>Content-Type: text/plain; charset=us-ascii<EOL>MIME-Version: 1.0<EOL>Date: Fri, 24 Jul 2015 09:39:08 +0100<EOL>
Sent 24/07/2015 09:39:08: <EOL>
Sent 24/07/2015 09:39:08: Mail body goes here...<EOL>
Sent 24/07/2015 09:39:08: this is the NEW host name "192.168.66.2"  <EOL>
Sent 24/07/2015 09:39:08: this is the OLD host name "mala-mail.mala.local"<EOL>
Sent 24/07/2015 09:39:08: <EOL>
Sent 24/07/2015 09:39:08: .<EOL>
Recv 24/07/2015 09:39:08: 250 2.6.0 <619bf346-c117-4f70-8e7f-8f77c7ac89f4@Serv-mail01.Serv.local> [InternalId=539313] Queued mail for delivery<EOL>
Sent 24/07/2015 09:39:08: QUIT<EOL>
Recv 24/07/2015 09:39:08: 221 2.0.0 Service closing transmission channel<EOL>
Stat Disconnected.





> But what does the exception actually say?  Without that, I cannot tell you 
> what is going wrong.

  try
    try
      SMTP.Connect;
      try
        SMTP.Send(MailMessage);
      except on E:Exception do
        StatusMemo.Lines.Add(' Sending ERROR: ' + E.Message);
      end;
    except on E:Exception do
      StatusMemo.Lines.Add('Connection ERROR : ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;

The Exception Message is "Service not available"

Hi Dennis

That's for the reply

> I would suspect that the other PCs do not have the OpenSSL dlls
> on thier systems each is named as 
> libeay32.dll 
> and 
> ssleay32.dll 
> you need to export these two dlls along with your application

I included both dll's with the .exe and this still produced the same result "Service not available" 

I ran the .exe as an administrator with the same results as above.

Hi Dennis

Thanks for the reply

> I would suspect that the other PCs do not have the OpenSSL dlls
> on thier systems each is named as 
> libeay32.dll 
> and 
> ssleay32.dll 
> you need to export these two dlls along with your application

I included both dll's with the .exe and this still produced the same result "Service not available" 

I ran the .exe as an administrator with the same results as above.

Andrew wrote:

> On the Failed PC's (3 I've tried all with Outlook 2010 connection
> capabilities) it only generated:-
> 
> Stat Connected.
> Recv 24/07/2015 09:45:17: 421 4.3.2 Service not available<EOL>
> Stat Disconnected.

That is an error message coming from the SMTP server itself as its initial 
greeting.  The server is rejecting the connection at that moment.  There 
is nothing you can do about that in your code.  Move on and try again later.

-- 
Remy Lebeau (TeamB)