🚀 go-pugleaf

Hi,

Correction. In my country it was about 06:15
when I answered you so I completely missed the
point about sending modes you asked me. Sory.

This is what I wanted to accomplish:
I want to make simple email sending service.

The service itself has a container class, which
internaly is consisted of series of TStringLists,
so adding new request in the list is like this:

ToBeSent->Add ( FromAddress, FromName, Subject,
                ToAddress, Body );
                
The main Service's OnExecute() is processing that
list something like this /simplified/:

   while ( ToBeSent->Count > 0 )
   {
      if ( SendEmail ( FIFO ) )
         TakeSomeAction(); // Remove from list, etc
      else
         TakeSomeOtherAction(); // LOG
      
   }
   
   
In the meantime the TServerSocket is supposed to
receive new requests for sending and when finished
receiving one package of data (sent from one client):

   while ( !EndOfFileOfOnePackage )
   {
      // ...
      ToBeSent->Add ( FromAddress, FromName, Subject,
                     ToAddress, Body );
   }
   

At that particular moment other clients which eventually
wants to send request should wait, I think.

Please help me with your oppinion.


Best regards,
Vladimir Stefanovic