我有一个用delphi编写的EXE的程序，需要改几个字。

来源：百度知道 编辑：UC知道 时间：2024/05/22 10:04:44
邮箱qd110120119@163.com 密码：110120119 程序在里边。就是改几个字和连接，如果改的可以 我可以给报酬！详情见邮箱！

我看过了，不好能。。。 你还是找原作者吧。。。。。

控件

smtp: TIdSMTP;
MgeSend: TIdMessage;

代码

procedure TForm1.Button1Click(Sender: TObject);
begin
SMTP.Host:='smtp.163.com';
smtp.Username:='zhm001x@163.com';
smtp.Password:='paswrd';
smtp.Port:=25;
smtp.Connect();
MgeSend.Recipients.EMailAddresses:='zhm001x@qq.com';
MgeSend.From.Text :='zhm001x@163.com';
MgeSend.Subject:='test';
MgeSend.Body.Text:='发邮件测试';
SMTP.Authenticate;
Smtp.Send(mgeSend);
end;

lou楼上 傻了。
我进 邮箱 去 下你的代码看看