如何发邮件？

[cso]

如何用winsock控件来给多个电子邮件地址发信呢？
请问下面的方法是否可行？
验证用户后：

===================
Winsock1.SendData "MAIL FROM:" + Fromxx.Text + Chr(13) + Chr(10)
'发送发信人信箱名称
Waiting
Winsock1.SendData "DATA" + Chr(13) + Chr(10)'准备开始传送信件数据
Waiting
Winsock1.SendData "Subject:" + Subj.Text + Chr(13) + Chr(10)'发送标题
Winsock1.SendData "Reply-To:" + Fromxx.Text + Chr(13) + Chr(10)'发送回信地址
Winsock1.SendData "RCPT TO:" + Toyy.Text + Chr(13) + Chr(10)
'发送接收人信箱名称（这一句可重复多次，实现同一封信发给多人）
Winsock1.SendData "To:" + Toyy.Text + Chr(13) + Chr(10)
'发送接收人信箱名称，该信箱名称将出现在信件的HEAD（信头里），如果想暗送
'（bcc)可不发这句

......
====================
还有，"To:"可以不用发吗？"RCPT TO:"怎么实现？
到底怎样才能实现一次登陆后暗送发送邮件？（速度快）