谁有发邮件的例子 ( 积分: 100 )

要求：使用smtp.126.com的服务器发送带附件的邮件
我自己试了很久， 只能收发163， gmail等的邮件
但是126的无法实现。 望高人指点一下。
分不够在加。

http://www.delphibbs.com/keylife/iblog_show.asp?xid=14667

to:songrun
这种代码早就没用了。

难道没有真正能够收发邮件的方法吗？？
网上根本没有一个例子能够实现的。 期待高手的出现

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Memo1.Clear;
smtp.Host:= smtpHost.Text;
SMTP.AuthType:=atDefault;
SMTP.Username:=usename.Text;
SMTP.Password:= usepass.Text;
MailMessage.From.Address := MailFrom.Text;
MailMessage.Recipients.EMailAddresses := MailAddress.Text;
MailMessage.Subject := Subject.Text;
MailMessage.Body.Text := Body.Text;
MailMessage.CharSet := 'gb2312'; //保证附件正文汉字的正常显示
MailMessage.Body.Assign(Body.Lines);
if FileExists(FileAddress.Text) then
TIdAttachmentFile.Create(MailMessage.MessageParts,FileAddress.Text);//添加附件

try
try
SMTP.Connect;
SMTP.Send(MailMessage);
except on E:Exception do
Memo1.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if SMTP.Connected then
SMTP.Disconnect;
end;

end;

procedure TForm1.SMTPStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
memo1.Lines.Add('Status:'+AStatusText);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
opfile.Execute;
if opfile.FileName<>'' then
FileAddress.Text:=opfile.FileName;
end;

D7+indy10发送邮件+附件成功
我最近也在研究这个，想写个网盘程序用，网上找的例子关于网盘的很少

to GAOGAIGAR : 我也知道这个样子写
但是有很多问题的，
ssl连接的问题，
还有象yahoo的邮箱根本不能登陆 但是可以连接服务器。
126老帐号正常 新帐号也是无法登陆的
不知道怎么解决。。期待高手的出现。 难道是网站限制了？

163和126的邮箱做了限制，indy9的要修改才能用，indy10可以直接用，ssl连接的话，我记得还需要2个dll文件，那2个文件在indy的demo里面有的，因为我没打算拿gmail当邮盘，所以没继续研究，话说你的标题只是说要找能发邮件的例子，没说要解决连接ssl的问题，估计你要再发帖问才行。