直接发送E mail的单元

前几天自己做程序时,因为该 程序不能有窗体,所以需要用代码发送E-mail的方法,在网上到处没找到,就自己用Sakmail加了个发送Email的单元,就一个方法,大家不要骂我传垃圾啊。 //邮箱服务器地址,用户名,用户密码,发送人姓名,发送人地址,接收人地址,主题,内容,附件procedure TEMAIL.mailsend(host, username, password, sendname, sendfrom, sendto, subject,text,fujian: string);