在ontimer事件加入发邮件程序段:
Nmsmtp1.Host :='smtp.sina.com.cn';
nmsmtp1.Port :=25;
nmsmtp1.UserID :='xxxx';//发信人的用户名,必须是真实的
nmsmtp1.ReportLevel :=1;
Nmsmtp1.TimeOut :=10000;
nmsmtp1.Connect ; ; ;///连接
; nmsmtp1.PostMessage.FromAddress:='xxxx@sina.com'; //发信人的电子邮件地址
; nmsmtp1.PostMessage.ToAddress.text:='aaaa@sina.com';
; nmsmtp1.PostMessage.Body:='hello!';
; nmsmtp1.PostMessage.Subject :='没事,发个邮件玩玩!';
;//nmsmtp1.PostMessage.Attachments.text:='c:/aa.zip'; //附件
nmsmtp1.SendMail;