我使用idsmtp发送邮件时,需要捕获邮件发送失败原因
代码如下
############################
try
try
Send(IdMsgSend); //发送邮件
SuccessSend := True; //发送成功标志 成功
finally
Disconnect; //断开服务器连接
end;
except On E:Exception Do
begin
if Pos('550', E.Message ) > 0 then
if Address<>'' then
begin
showmessage('邮箱未找到!');
end
else
showmessage('其他原因!')
end;############################当发送很多邮件的时候,就会有一些邮件不会弹出showmessage对话框
也就是既不显示“邮箱未找到”对话框,也不显示“其他原因”对话框
那些邮件也是没有发送成功的,可是没有错误原因??
请高手指点!
代码如下
############################
try
try
Send(IdMsgSend); //发送邮件
SuccessSend := True; //发送成功标志 成功
finally
Disconnect; //断开服务器连接
end;
except On E:Exception Do
begin
if Pos('550', E.Message ) > 0 then
if Address<>'' then
begin
showmessage('邮箱未找到!');
end
else
showmessage('其他原因!')
end;############################当发送很多邮件的时候,就会有一些邮件不会弹出showmessage对话框
也就是既不显示“邮箱未找到”对话框,也不显示“其他原因”对话框
那些邮件也是没有发送成功的,可是没有错误原因??
请高手指点!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货