关于通过delphi发送邮件的问题，急！！如果解决了送300分急急急！！－－在线等待(50分)

请各位大虾帮忙：
程序运行在一个局域网中，所有电脑都安装有notes（邮件系统），想做一软件直接发送邮件（只有几个汉字）到指定的notes信箱，如何处理？
是否所有发送的邮件都有发件箱？能否通过delphi直接进行发送？
很急望高手指教如何处理？
解决以后必定加分300分！！！！！！！！

　　procedure TForm1.Button2Click(Sender: TObject);

　　begin


　　NMSmtp1.Host:=Edit3.Text;
//SMTP服务器地址

　　NMSmtp1.UserID:=Edit4.Text;
//你在对应服务器上的注册用户名

　　NMSmtp1.Connect;
//与服务器建立连接

　　NMSmtp1.PostMessage.FromAddress:=Edit5.Text;
//发件人的邮件地址

　　NMSmtp1.PostMessage.Subject:=Edit2.Text;
//邮件主题

　　NMSmtp1.PostMessage.ToAddress.Add(Edit1.Text);
//收件人的邮件地址

　　NMSmtp1.PostMessage.Attachments.AddStrings(ListBox1.Items);
//附件

　　NMSmtp1.PostMessage.Body.Assign(Memo1.Lines);
//邮件的正文

　　NMSmtp1.SendMail;
//发送邮件

　　NMSmtp1.Disconnect;
//断开连接

　　ShowMessage('发送完毕！');
//发送完时显示提示信息

　　end;

看看 ,测试下下去自己