I am having a real problem getting the lnet smtp client to work. the auth seems to be failing.
if I use the example where I have to type in the user name and password authentication passes. But if I set the username and pass in programming it fails authentication.
What is even more strange is the results returned seems to indicate that the user names and passwords are the same.
Any Ideas?

affected code below
-------------------------------------------------------------------------------------------------
procedure TLSMTPClientTest.Run(BarExtn,BarDest,BarTime,
BarcallerName,BarSQLduration,BarCharge,BarDestName: String);
var
    s, p, Addr, Subject, Sender, Recipients, server, Message: string;
    sendcheck, authcheck : integer;
    Port: Word = 25;
begin
FQuit := False;
      sendcheck := 1; // Check if we can send
      authcheck := 1; // Check if auth required
      s := 'mynane'; // first get username
      p := 'mypass'; // first get password
      server := 'mail.phi.co.uk'; // first get password
      Subject := 'Barred Number dialled '+BarDest
      Message := 'Destination: '+BarDestName+CRLF;
      Message := Message+'Date/Time: '+BarTime+CRLF;
      Message := Message+'Duration: '+BarSQLDuration+CRLF;
      Message := Message+'Cost: '+BarCharge+CRLF;
    Write('Connecting to ', server, ':', Port, '... ');
    if sendcheck = 1 then begin
       if FSMTP.Connect(server, Port) then repeat  // try to connect
       FSMTP.CallAction;  // if inital connect went ok, wait for
"acknowlidgment" or otherwise
          until FQuit or FSMTP.Connected; // if user quit, or we connected,
then continue
    if not FQuit then begin // if we connected send HELO
      FSMTP.Ehlo;
    end;
    while not FQuit do begin // if we connected, do main loop
      FSMTP.CallAction; // main event mechanism, make sure to call
periodicly and ASAP, or specify high timeout
      if authcheck = 1 then FSMTP.AuthLogin(s, p); // then get password
(mask it) and pass to auth
      FSMTP.SendMail(Sender, Recipients, Subject, Message);
    end;
    FQuit := True;
    FSMTP.Quit;
    end;
end;
---------------------------------------------------------------------------------------------
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20101016/d27f5fdd/attachment.html>