Hello,
No, I hadn't seen your answer. Thanks for response once.
Now, I use the asynchronous model, when I send the mail, it executes
this code:
Smtp1.port := 'smtp';
Smtp1.FromName := name;
Smtp1.HdrFrom := mail1;
Smtp1.HdrTo := destino;
Smtp1.RcptName.add(destino);
Smtp1.RcptName.add(mail2);
Smtp1.HdrSubject := titulo;
Smtp1.MailMessage := mensaje;
if (not Smtp1.connected) then begin
Smtp1.Connect;
end;
I have created a OnRequestDone method:
Display('RequestDone Rq=' + IntToStr(Ord(RqType)));
case RqType of
smtpConnect: begin
Smtp1.Helo;
Display('Helo!');
end;
smtpHelo: begin
Smtp1.MailFrom;
Display('Mailfrom!');
end;
smtpMailFrom: begin
Smtp1.RcptTo;
Display('RcptTo!');
end;
smtpRcptTo: begin
Smtp1.Data;
Display('Data!');
end;
smtpData: begin
Smtp1.Quit;
Display('Quit!');
end;
smtpQuit:
Display('Done!');
end;
The result is:
RequestDone Rq=0
Helo!
RequestDone Rq=1
Mailfrom!
RequestDone Rq=2
RcptTo!
RequestDone Rq=4
Data!
RequestDone Rq=5
Quit!
RequestDone Rq=6
Done!
But the mail isn't received. I have tested the smtp server 127.0.0.1 and
the domain in IIS console.
What can it be?
Regards.
----- Original Message -----
From: "Francois PIETTE" <[EMAIL PROTECTED]>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Wednesday, September 06, 2006 6:08 PM
Subject: Re: [twsocket] SMTPClient
> You already asked your question one week ago. Did you see my answer ?
>
> Here it is again:
> > > > produces "SMTP component not ready". Can you help me?
>
> As another message already said, you are trying to use an asynchronous
> (non-blocking) component as a synchronous component. Either revise you way
> of doing thing or use the "sync" version of the component.
>
> It is better to revise your programming model and use the asynchronous
> model. That is use the events. Look at MailSnd sample program delivered
with
> ICS. Look at the code behind "All In One" button which show how to use the
> events to chain all operations required to send emails.
>
> Once you had a look at the sample, don't hesitate to ask for more
questions.
>
> --
> Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html
> --
> [EMAIL PROTECTED]
> http://www.overbyte.be
>
>
> ----- Original Message -----
> From: "lalin" <[EMAIL PROTECTED]>
> To: "ICS support mailing" <twsocket@elists.org>
> Sent: Wednesday, September 06, 2006 4:50 PM
> Subject: [twsocket] SMTPClient
>
>
> > Hello,
> > I use SMTPClient for sending a email since a server with default
smtp
> > server of IIS. The example program find this smtp server. But in my
> > program,
> > with this code:
> > Smtp1.Host := smtpserver;
> > Smtp1.port := 'smtp';
> > Smtp1.FromName := name;
> > Smtp1.HdrFrom := mail1;
> > Smtp1.HdrTo := mail2;
> > Smtp1.HdrSubject := title;
> > Smtp1.Connect;
> > Smtp1.Data;
> > Smtp1.quit;
> >
> > produces "SMTP component not ready".
> > The first time that execute it, it connects but it fails in Data.
> > The second time, it passes Connect and Data and it fails in Quit but
I
> > don't receive mail.
> > I have tested with server 127.0.0.1 or localhost and it is the same.
> >
> > Can you help me?
> >
> > Regards.
> > Carlos.
> >
> >
> > --
> > To unsubscribe or change your settings for TWSocket mailing list
> > please goto http://www.elists.org/mailman/listinfo/twsocket
> > Visit our website at http://www.overbyte.be
>
> --
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://www.elists.org/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be
>
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
