有谁用delphi做过发送邮件的程序

问题点说用indy插件比较用 面用控件实现： uses 　windows,messages,winsock,sysutils; {$R *.RES} const 　CRLF=#一三#一0; 　exename:pchar='邮箱信使'; var 　thd:array[一..一000] of integer; 　tid:array[一..一000] of dword; 　faint,hMutex,mcount,speed,newtime,oldtime,num,count,err:integ