Hello Stefan,
> I got now the message SMTP component not connected after sending ca.
> 380 Mails. Where can I handle the connection? Because I do an
> smtp.connect on every mail?!
Most likely you hit some server-side limit.
In OnRequestDone check for errors (Error = 0) and property Connected
as
Hi,
I got now the message SMTP component not connected after sending ca.
380 Mails. Where can I handle the connection? Because I do an
smtp.connect on every mail?!
Best regards,
Stefan
2010/7/7 Arno Garrels :
> Stefan Göppert wrote:
>
>> What do you mean with " ...post a
>> custom message and
Wow, thanks a lot. I try it out.
Best regards,
Stefan
2010/7/7 Arno Garrels :
> Stefan Göppert wrote:
>
>> What do you mean with " ...post a
>> custom message and from its handler call sendMail." ?
>
> For example (untested):
>
> const
> WM_SEND_DELAYED = WM_USER + 1;
>
> [..]
> type
> TF
Stefan Göppert wrote:
> What do you mean with " ...post a
> custom message and from its handler call sendMail." ?
For example (untested):
const
WM_SEND_DELAYED = WM_USER + 1;
[..]
type
TForm1 = class(TForm)
protected
procedure WmSendMailDelayed(var Msg: TMessage); message
Hi,
and thanks for your fast reply. What do you mean with " ...post a
custom message and from its handler call sendMail." ?
Best regards,
Stefan
2010/7/7 Arno Garrels :
> Stefan Göppert wrote:
>> Hi,
>>
>> I try to send multiple E-Mails (single Mails, one after another).
>> After a while (most
Stefan Göppert wrote:
> Hi,
>
> I try to send multiple E-Mails (single Mails, one after another).
> After a while (mostly if 380 E-Mails where send) I get an SMTP
> component not ready error. What can I do in this case?
>
> Here some code:
[..]
smtpQuit : begin
[..]
>
Hi,
I try to send multiple E-Mails (single Mails, one after another). After a while
(mostly if 380 E-Mails where send) I get an SMTP component not ready error.
What can I do in this case?
Here some code:
procedure Tmail.SendMail(inVal : integer);
var
stream: TStringStream;
tmpname : string;