大家帮助我好吗....好急.........
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
请问怎么办
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
请问怎么办
...全文
相关推荐
MFC 急求帮助
**调试与测试**:使用像GLUT这样的库可以帮助简化窗口管理和渲染循环,使你专注于图形代码。另外,GLFW和GLEW也是不错的选择。
急冷油塔、急冷油生产装置和急冷油生产系统的制作方法.docx
第一腔室中还设有喷淋装置,通过与第一接入口相连的管道提供冷却介质,帮助裂解气的急冷。【急冷油生产装置】急冷油生产装置包含上述的急冷油塔和重油循环装置。
“幼儿急疹”该不该打抗生素.pdf
了解幼儿急疹的自然病程,尊重其自限性,可以帮助家长做出更合理、更有利于孩子健康的决策。在许多情况下,简单地给予孩子足够的休息、适当的降温措施,以及保持良好的饮食习惯,就足以帮助孩子度过疾病期。
基于ADAMS的开槽机急回机构仿真设计
仿真结果可以帮助设计师识别潜在的问题,如干涉、振动或效率低下,并进行必要的调整,以提升机构的整体性能。总的来说,基于ADAMS的开槽机急回机构仿真设计是一个涉及机械设计、运动学和动力学综合运用的过程。
《急就篇》所见教育思想探析.zip
《急就篇》是西汉时期司马相如的门客萧望之编纂的一部启蒙读物,其主要目的是教授儿童基本的文字知识,帮助他们掌握汉字的读写。


