如何用Delphi7实现发送带附件的E-mail？

发送主要用两个控件：TIdMessage，TIdSMTP;

定义：

MailMessage: TIdMessage;

Mail: TIdSMTP;

实现举例：

procedure TForm1.Button1Click(Sender: TObject);

begin

if Mail.Connected then Mail.Disconnect;

Mail.Username := ''; //发件人用户名

Mail.Password := ''; // 发件人密码

Mail.Host := ''; //SMTP地址 这个地址要设置正确

Mail.Port := 25; //端口

Mail.AuthenticationType := atLogin;

MailMessage.Subject := 'test标题'; //标题

MailMessage.Body.Text := 'test内容'; //内容

MailMessage.From.Name := ''; //发件人姓名

MailMessage.From.Address := ''; //发件人地址

MailMessage.ReplyTo.EMailAddresses := ''; //发件人地址

MailMessage.Priority := TIdMessagePriority(1); //身份验证类型

TIdAttachment.Create(MailMessage.MessageParts, 'C:\Documents and Settings\Administrator\桌面\mail.txt'); //附件地址

MailMessage.Recipients.EMailAddresses := ''; // 收件人地址

MailMessage.From.Address := ''; //发件人地址

try

Mail.Connect;

Mail.Authenticate;

Mail.Send(MailMessage);

finally

Mail.Disconnect;

end;

end;

有不明白可以问我