Hello
 
I made a small app with a SendMail button.  Here is the code.
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    NMSMTP1.Host := 'smtp.xtra.co.nz';
    NMSMTP1.UserID := 'mhoward';
    NMSMTP1.PostMessage.ToAddress.Add('[EMAIL PROTECTED]');
    NMSMTP1.PostMessage.FromAddress := '[EMAIL PROTECTED]';
    NMSMTP1.PostMessage.FromName := 'Anna';
    NMSMTP1.PostMessage.Body.Add(
      'This is a test email message from within a Delphi test App');
    NMSMTP1.Connect;
    NMSMTP1.SendMail;
end;
 
On my own system (my workstation has the modem connection) if I manually dial up an Xtra connection and then click the SendMail button, this works fine.
 
However, the client's system is a Win98/Win95 network which is running MDaemon to handle email.  The network's modem happens to be on the machine that my app is on.  
 
I have changed my test app as follows. 
procedure TForm1.Button1Click(Sender: TObject);
begin
    NMSMTP1.Host := '192.168.0.5';    {IP address of the workstation with modem and My app}
    NMSMTP1.UserID := 'ian'; 
    NMSMTP1.PostMessage.ToAddress.Add('[EMAIL PROTECTED]');
    NMSMTP1.PostMessage.FromAddress := '[EMAIL PROTECTED]';
    NMSMTP1.PostMessage.FromName := 'Anna';
    NMSMTP1.PostMessage.Body.Add(
      'This is a test email message from client from within a Delphi test App');
    NMSMTP1.Connect;
    NMSMTP1.SendMail;
end;
 
I understood that this should work on the client system but it fails with the error "Null remote address".
 
Can anyone see where I have gone wrong?
 
Another option would be to by-pass MDaemon (if that is allowed).  But I don't want them to have to dial up a connection manually (and Rohit's RAS thingamy looks complicated!!)
 
TIA
 
Mark
BEGIN:VCARD
VERSION:2.1
N:Howard;Mark
FN:Mark Howard
ORG:Forest Production Systems Ltd
TEL;WORK;VOICE:(07) 348 8177
TEL;CELL;VOICE:(021) 477564
TEL;WORK;FAX:(07) 348 8178
ADR;WORK:;;P.O.Box 5155;Rotorua
LABEL;WORK;ENCODING=QUOTED-PRINTABLE:P.O.Box 5155=0D=0ARotorua
EMAIL;PREF;INTERNET:[EMAIL PROTECTED]
REV:20001213T010023Z
END:VCARD

Reply via email to