大家帮助我好吗....好急.........

wangyongahz6 2006-04-25 04:05:04
with IdMsgSend do
begin
From.Address :='zhzyhm@163.com'; //发件人地址
Recipients.EMailAddresses := 'zhzyhm@163.com'; //收件人地址
Subject := 'df'; //邮件主题
Body.Assign(Memo1.Lines); //邮件正文
end;
try
IdSMTP1.Host:='smtp.163.com';
//StatusBar1.SimpleText:='正在连接服务器';
IdSMTP1.Connect();
except
ShowMessage('连接邮件服务器失败!');
// StatusBar1.SimpleText:='连接服务器失败';
abort;
end;
try
with IdSMTP1 do
begin
IdSMTP1.Port:=25;
IdSMTP1.AuthenticationType :=atLogin;
IdSMTP1.Username:='zhzyhm@163.com';
IdSMTP1.Password:='z3z3y60809';
// StatusBar1.SimpleText:='正在发送邮件';
Send(IdMsgSend);
ShowMessage('发送完毕');
end;
finally
IdSMTP1.Disconnect; //断开服务器连接
end;
提示:
Bad sequence of commands
请问怎么办
...全文
73 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧