Tmail2000 research-demo bug where email cannot be sent

I studied tmail2000 today and found that it is enough to send an email for his demo.

It is found that every time [Save fields to header], an empty item is always added to the mtonames list. The message returned by sending an email is also bad address XXXX.

Later tracking found

Function tsmtp2000.sendmessageto (const from, dests: string): Boolean;

In this method, it does not care whether the dests item is empty

For Loop: = 0 to sdests. Count-1 do
Begin
Fsockettalk. Talk ('RCPT TO: <'+ sdests [loop] +'> '#13 #10, #13 #10, strcpt );
Fsockettalk. waitserver;

 

Then I added

For Loop: = 0 to sdests. Count-1 do
Begin
If sdests [loop] = ''then continue; // Add By mofen

Fsockettalk. Talk ('RCPT TO: <'+ sdests [loop] +'> '#13 #10, #13 #10, strcpt );
Fsockettalk. waitserver;

......

Everything is normal. It seems that tmail2000 is not charged or not carefully done.

Today, I only studied the function of sending emails. I have not studied the function of receiving emails.