如何实现邮件得添加附件功能！ ( 积分: 32 )

这是一个实现邮件发送得短程序：
Memo_gettxt.Lines.add(g_str);
SMTP1.AuthenticationType := atLogin;
SMTP1.username:= 'aaa@163.com';
SMTP1.Password := '123456';
SMTP1.Host := 'SMTP.163.com';
SMTP1.Port :=25;
try
SMTP1.Connect;
except
Exit;
end;
try
with IdMsg do
begin
body.Clear;
Body.Assign(Memo_gettxt.Lines);
From.address := 'aaa@163.com';
Recipients.EMailAddresses :='bbb@eyou.com';
Subject:=g_str;
end;
SMTP1.Send(IdMsg);
Memo_gettxt.Clear;
Memo1.Clear;
finally
SMTP1.Disconnect;
end;
但是无法实现加栽附件得功能请问有人会么！
请用DELHPI自带得控件！

这是一个实现邮件发送得短程序：
Memo_gettxt.Lines.add(g_str);
SMTP1.AuthenticationType := atLogin;
SMTP1.username:= 'aaa@163.com';
SMTP1.Password := '123456';
SMTP1.Host := 'SMTP.163.com';
SMTP1.Port :=25;
try
SMTP1.Connect;
except
Exit;
end;
try
with IdMsg do
begin
body.Clear;
Body.Assign(Memo_gettxt.Lines);
From.address := 'aaa@163.com';
Recipients.EMailAddresses :='bbb@eyou.com';
Subject:=g_str;
end;
SMTP1.Send(IdMsg);
Memo_gettxt.Clear;
Memo1.Clear;
finally
SMTP1.Disconnect;
end;
但是无法实现加栽附件得功能请问有人会么！
请用DELHPI自带得控件！

摘自Indy9控件包的Demo -- MailClient
if OpenDialog1.Execute then
begin
TIdAttachment.Create(IdMsg.MessageParts, OpenDialog1.FileName);
-- ResetAttachmentListView;
end;

文本型的邮件还可以，如果是HTML这种不知道是不是INDY的BUG，反正发过去的邮件，比如发到263上用WEB方式查看发出去的邮件，不能正常显示，但是OL，FOXMAIL都能正常接收和显示。