又来了，求邮件收发源码一份,只需要基本功能就行了，不过更详细更好,

Question

求邮件收发源码一份,只需要基本功能就行了，不过更详细更好,公司要求我做一个邮件收发,以前做数据库的，对这方面不太懂,希望大家指点,我的email [email protected] , paliang@ 163.com(net).如果分不够在加,我会再开一个贴

Answer 1

StatusBar1.Panels[0].Text:='正在连接服务器，请稍后......';
 NMPOP31.Cancel;
 NMPOP31.Host:=Query1.FieldByName('pop3').asstring;               
 //接收邮件服务器
 NMPOP31.Port:=strtoint(Query1.FieldByName('pop3_port').asstring);
//接收邮件服务器端口
 NMPOP31.TimeOut:=0;
NMPOP31.Password:=Query1.FieldByName('password').asstring;       
//邮箱密码
 NMPOP31.UserID:=Query1.FieldByName('self_email').asstring;       
// 本级信箱
  try
     if not  NMPOP31.Connected then
     NMPOP31.Connect;
     Screen.Cursor:=crdefault;
     StatusBar1.Panels[0].Text:='服务器连接成功！正在读取数据信息......';