Rohit
Thanks very much for that - there is now a glimmer of light!
So - there are 3 situations
1. Single user system. I manually dial up xtra and get a connection.
When I run my original code (with some Body text included) and SendMessage,
it runs great. :-)
2. The target system is a peer to peer Win98 network. The modem is on the
machine from which my app is running.
They are running MDaemon.
Do I understand correctly that in my original code, if I replace
'smtp.xtra.co.nz' with the target machine's IP address and run it then:
- I will not get the error messages
- The email message will be sent to MDaemon's outbox
- and will be dispatched next time MDaemon connects??
3. Back to situation1
Is there a way to get the system to replace my manual dial up with an
automatic dial up?
TIA
Mark
----- Original Message -----
From: "Rohit Gupta" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Monday, December 11, 2000 12:44 PM
Subject: Re: [DUG]: Simple Email
> Mark, you still have to connect. Here is my simple console app to
> send mail via cmd line.
>
> program BATMAIL;
> {$APPTYPE CONSOLE}
> {$R-,S-,Q-,D-,Y+,L+,O+}
> uses
> SysUtils, NmSmtp, RGUseful;
>
> var
> Smtp : TNMSMTP;
> begin
> Writeln (crlf, 'BATMAIL (C) Copyright 2000 Rohit Gupta', crlf);
> if ParamCount = 0
> then begin
> Writeln ('SYNTAX is ', crlf, crlf,
> 'BATMAIL <host> <to> <from> <subject> <attachment>
> <body>', crlf);
> exit;
> end
> else Writeln (crlf, 'BATMAIL - Processing command');
>
> Smtp := nil;
>
> try
> Smtp := TNMSMTP.Create (nil);
> with Smtp
> do begin
> Host := ParamStr (1);
> Port := 25;
> UserId := ParamStr (3);
> with PostMessage
> do begin
> ToAddress.Add (ParamStr (2));
> Attachments.Add (ParamStr (5));
> FromAddress := ParamStr (3);
> Subject := ParamStr (4);
> Body.Add (ParamStr(6));
> if Body.Count = 0
> then Body.Add ('Body');
> end;
> System.Writeln ('Connecting');
> Connect;
> try
> System.Writeln ('Sending');
> SendMail;
> finally
> System.Writeln ('Disconnecting');
> Disconnect;
> end;
> end;
> finally
> Smtp.Free;
> end;
> end.
>
> And the cmd line params I use are :-
>
>
> C:\DELFI\UTILS\BATMAIL 10.0.0.60 [EMAIL PROTECTED]
> [EMAIL PROTECTED] update ZIPALL.ZIP
>
> where the 10.0.0.60 is the IP address of your PC on a single PC
> system.
>
> Hope that helps
>
>
>
> To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
> Send reply to: [EMAIL PROTECTED]
> From: "Mark Howard" <[EMAIL PROTECTED]>
> Subject: Re: [DUG]: Simple Email
> Date sent: Mon, 11 Dec 2000 14:49:09 -0800
>
> > OK
> > Tried adding these two (actually FromAddress := '[EMAIL PROTECTED]')
> > and get
> > ESocketError "Host lookup failed"
> > followed by
> > ESocketError "Null remote address"
> >
> > Mark Derricutt - what is the 'myservername' in your message script?
> >
> > It's just occurred to me - I'm expecting this to dial a connection for
me
> > and then connect.
> > Is the example I have given sufficient to do this? or does it assume
that a
> > dial-up connection to xtra has aleady been established?
> >
> > Mark
> >
> >
> > ----- Original Message -----
> > From: "Martin Ease" <[EMAIL PROTECTED]>
> > To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
> > Sent: Sunday, December 10, 2000 6:03 PM
> > Subject: RE: [DUG]: Simple Email
> >
> >
> > > Mark
> > >
> > > Try adding the line...
> > > NMSMTP1.PostMessage.FromAddress.Add('[EMAIL PROTECTED]');
> > >
> > > I think the line...
> > > NMSMTP1.UserID := 'mhoward';
> > > Is not required.
> > >
> > > Also useful might be...
> > > NMSMTP1.PostMessage.FromName := 'Mark Howard';
> > >
> > > HTH
> > > Martin.
> > >
> > > -----Original Message-----
> > > From: Mark Howard [mailto:[EMAIL PROTECTED]]
> > > Sent: Tuesday, December 12, 2000 10:30
> > > To: Multiple recipients of list delphi
> > > Subject: Re: [DUG]: Simple Email
> > >
> > > Thanks for the example.
> > >
> > > I have tried the following code:
> > > procedure TForm1.Button1Click(Sender: TObject);
> > > begin
> > > NMSMTP1.Host := 'smtp.xtra.co.nz';
> > > NMSMTP1.UserID := 'mhoward';
> > > // NMSMTP1.PostMessage.ToAddress.Text :=
> > > '[EMAIL PROTECTED]';
> > > NMSMTP1.PostMessage.ToAddress.Add('[EMAIL PROTECTED]');
> > > NMSMTP1.Connect;
> > > end;
> > > and what I get is a "Null remote address".
> > >
> > >
> > >
> > > "WS SMTP relay" made the following
> > > annotations on 12/11/00 15:03:24
> >
> --------------------------------------------------------------------------
> > ----
> > >
> > > [INFO] -- Content Manager:
> > > [MMSSOV] This e-mail message and any attachments are confidential to
> > Sovereign Limited and subsidiaries and subject to legal privilege. If
you
> > have received this e-mail in error, please advise the sender immediately
and
> > destroy the message and any attachments. If you are not the intended
> > recipient you are notified that any use, distribution, amendment,
copying or
> > any action taken or omitted to be taken in reliance of this message or
> > attachments is prohibited.
> > >
> > >
> >
============================================================================
> > ==
> > >
> >
> --------------------------------------------------------------------------
> > -
> > > New Zealand Delphi Users group - Delphi List -
[EMAIL PROTECTED]
> > > Website: http://www.delphi.org.nz
> > > To UnSub, send email to: [EMAIL PROTECTED]
> > > with body of "unsubscribe delphi"
> >
>
> --------------------------------------------------------------------------
-
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> >
>
>
> Regards
>
> Rohit
>
> ======================================================================
> CFL - Computer Fanatics Ltd. 21 Barry's Point Road, AKL, New Zealand
> PH (649) 489-2280
> FX (649) 489-2290
> email [EMAIL PROTECTED] or [EMAIL PROTECTED]
> ======================================================================
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
