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

wangyongahz6 wangyongahz6 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
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
请问怎么办
...全文

相关推荐

评论
收藏 已收藏
分享
返回顶部
wangyongahz6
Delphi 5,944 成员 262,941 内容