发emile的程序(100分)

请用delphi7写一个发emile的程序

你可以使用 IdSMTP 和 IdMessage 控件来写，主要的发送部分代码如下：
(要注意有的邮箱可能不支持SMTP，不让你在客户端发邮件)

//复制邮件信息
with IdMessage1 do
begin
Body.Assign(Memo1.Lines); //邮件正文
From.Text:=UserEmail;
ReplyTo.EMailAddresses:=UserEmail;
Recipients.EMailAddresses:=Edit1.Text;
Subject:= Edit2.Text; //主题
Priority:= TIdMessagePriority(ComboBox1.ItemIndex);
CCList.EMailAddresses:=Edit3.Text;
BccList.EMailAddresses:= Edit4.Text;
if CheckBox1.Checked then
begin
ReceiptRecipient.Text:=From.Text;
end
else
ReceiptRecipient.Text:='';
end;
//设置与SMTP服务器的连接属性
with IdSMTP1 do
begin
Username:=SmtpServerUser;
PassWord:=SmtpServerPassWord;
Host:=SmtpServerName;
Port:= SmtpServerPort;
end;
//建立连接，发送邮件
Try
Try
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
except
MessageDlg('发送邮件出现错误!',mtError,[mbYes],0);
end;

上面代码不知写到哪里？我写到Button1Click里面编译有错，UserEmail没定义，最好能给一个实例，多谢！

我邮箱：jzqxs@163.com

放置6个edit
edit1 smtp服务器地址
edit2 用户名
edit3 密码
edit4 发件人邮件地址
edit5 收件人邮件地址
edit6 邮件主题

memo, idsmtp, idmessage 各1个
memo1 邮件内容
idsmtp1 连接邮件服务用
idmsg1 邮件资料

button click中内容

idsmtp1.Host := edit1.text;
idsmtp1.AuthenticationType := atLogin;
idsmtp1.Username := edit2.text;
idsmtp1.Password := edit3.text;
idmsg1.From.Text := edit4.text;
idmsg1.Recipients.EMailAddresses := edit5.text;
idmsg1.Subject := edit6.text;
idmsg1.Body.Text := memo1.Lines.text;
idsmtp1.connect;
try
idsmtp1.Send(idmsg1);
finally
idsmtp1.Disconnect;
end;

建议你不要用Delphi自带的mail控件，不稳定，很多人都这样认为。
你可以用第三方控件包.

第三方控件？

多人接受答案了。