idSMTP控件发送邮件(50分)

  • 主题发起人 主题发起人 在世寻欢
  • 开始时间 开始时间

在世寻欢

Unregistered / Unconfirmed
GUEST, unregistred user!
var
Msg:TidMessage;
Mail:TidSMTP;
begin
with Msg do
begin
From.Text:='forjoylee1985@163.com';
Recipients.EMailAddresses:='zhouzuoji_1985@yahoo.com.cn';
Subject:='主题';
Body.Text:='idSMTP邮件发送测试'
end;
with Mail do
begin
Host:='smtp.163.com';
UserName:='forjoylee';
Password:='*******';
Connect;
try
Send(Msg);
finally
Disconnect;
end;
end;
这样会发生异常。eIDProtocalReplyError,提示信息是‘bad sequence of commands’
请朋友们帮忙,奉上50分。
 
代码:
var
Msg:TidMessage;
Mail:TidSMTP;
begin
with Msg do
begin
From.Text:='forjoylee1985@163.com';
Recipients.EMailAddresses:='zhouzuoji_1985@yahoo.com.cn';
Subject:='主题';
Body.Text:='idSMTP邮件发送测试'
end;
with Mail do
begin
Host:='smtp.163.com';
UserName:='forjoylee';
Password:='*******';
Connect;
try
[red]if not Authenticate then Exit;//原来没有这句,验证身份[/red]
Send(Msg);
finally
Disconnect;
end;
end;
 
测试从163发送到126OK,发送邮件到Yahoo时都被退信,不知道是什么原因。
 
晕。我的 connect 都过不了。
socket error # 11001
 
host not find !!!
LZ发送成功了??我的怎么不行?照楼上一样写的。只是username和password用的我自己的网易邮箱用户名和密码。
 
From.Text:='forjoylee1985@163.com';
不与username一致也能发出去?

学习中....
 
我的是写的一致可是发不出去。何解?怪哉?
请赐教!
 
var
Msg:TidMessage;
Mail:TidSMTP;
如果是动态生成的,还要实例化.
 
我用的静态的
 
是我写错了,我是写的,不是贴的。username是forjoylee1985
 
抱歉对这个东东不是很了解
 
我也这样写的,提示connection closed gracefully,这又是怎么回事啊?而且有些书上的源代运行起来也是这个提示。。。帮帮忙啊。。。
 
你设置的HOST属性不是邮件服务器
 
又有问题了。在局域网中能用TIdSMTP收发邮件吗?我老是不能通过验证
 
Host:='smtp.163.com';
连接不上。为什么?
 
后退
顶部