求救，我在做发邮件的时候，用的是TIDSMTP1，在Send(Message)时出现bad sequence of commands,求救(100分)

  • 主题发起人 主题发起人 ProLove
  • 开始时间 开始时间
P

ProLove

Unregistered / Unconfirmed
GUEST, unregistred user!
求救，我在做发邮件的时候，用的是TIDSMTP1，在Send(Message)时出现bad sequence of commands
列出下面代码：
Try
IdMessage1.Clear;
IDMessage1.From.Text := 'test11@163.com';
IdMessage1.ReceiptRecipient.Text := 'test11@163.com';
IdMessage1.ReplyTo.EMailAddresses := 'test11@163.com';
IdMessage1.Body.Text := 'hello';
IdSmtp1.Host := 'smtp.163.com';
IdSmtp1.Username := 'test1';
IdSmtp1.Password := '111111';
IdSmtp1.Port := 25;
IdSmtp1.Connect;
if IdSmtp1.Connected Then
begin
IDSmtp1.Send(IdMessage1); //这里出现问题了
showmessage('OK');
End;
Finally
IDSmtp1.Disconnect;
End;
大伙给我指点一下,查了一下说明，说什么消息命令顺序出错，一般出现在其他 错误之后，先检查之前出现的错误提示,都试了好多次，一样的问题，望大伙指点
 
有没有知道啦，大伙帮我置前吧，看过的望顶
 
大伙帮我看看啦，给支点招啦，不胜感激
 
不知道,帮顶下吧
 
正要写这方面的程序
帮你顶一下
 
IdSmtp1.Username := 'test1';
IdSmtp1.Password := '111111';
你这个登录用户我和口令有没有正确。如果服务是要身份验证才能登陆的，就一定要正，而且你的邮箱也必须是存在的。
 
我写过了，可以成功发送，而且要你看一下，你们公司上网有没有用代理上的，对端口有没有限制。代理发邮件我到没做过。
 
不要用163的信箱，用sohu的看看。
我的用sohu的就成功了，如果sohu告诉你
验证错误的话就+IdSmtp1.Username :=DecodeBase64( 'test1');
没有decodebase64加密函数就搜一个吧，还是很多的。
163封了indy的一些东西的访问，要访问163，必须更改
一些indy的控件源程序，怎么改忘了，找一下吧，这个论坛就有
 
不会吧，163会封Indy的呀？大伙有没有修改方面的说明呀，我试了，用我的企业邮箱发出去没有问题。就是163的不行。baiduan，各位兄弟支招呀
 
大伙，来说说，都是怎么做邮件客户端的啦？会有哪些情况啦，有没有更好的方法避免这些问题呢？有招支招，没招帮顶呀，用INDY除了163还可能有哪些邮箱不行啦
 
大伙谁手上有Tidmessage的相关参数的中文说明呀
 
富翁们，帮出主意呀，怎么发那种163.的呀
 
记得21cn也封indy……不知道indy招谁惹谁了
 
不会吧，21CN也封呀，那大伙是怎么样写发邮件代码的呢？都是通过什么思路来操作的呢？不是用Indy，那大伙都用什么来写，支招啦，看着帮顶呀
 
没人可以支招吗？不够分可以再加啦
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3359545
 
多谢楼上LZF1010,但是好像收邮件的时候,我用Idmessage1.savetofile('C:/a.eml')不行哟,大伙是怎么做的,我现在是用Mail2000的做的,DELPHI的INDY的Tidmessage不行吗?大伙说说
 
indy怎么会不行？我都用了两三年了，一直用得很好，只是偶尔会出现被封的情况，被封也是由于市面上垃圾邮件群发器一般都是使用indy来做的缘故，不过这也反映出indy开发邮件应用是非常容易的。
所以你说使用过程中出现了什么问题，不要动不动就怀疑控件或者开发工具有问题，还是多从自己身上找找问题。
 
谢谢楼上朋友，我再自己找找、看看是什么情况
 
lzf1000:这是我下面的代码啦，是收邮件的，我将他们保存到Eml文件中，但是和OUTLOOK的同样一封邮件的EML文件，内容不一样，如果邮件是文本的，邮件内容没了，如果邮件内容是HTML的，显示的是乱码，可能是没有进行加密，如果有附件的，EML文件中出现
This is a multi-part message in MIME format.，这样一句话，大伙看看
var
emlFileName,stTemp,sText: string;
nMailCount,intIndex: integer;
itm: TListItem;
begin
nMailCount := Pop.CheckMessages; //邮件份数
for intIndex := 1 to nMailCount do
begin
Application.ProcessMessages;
msg.Clear;
Pop3.Retrieve(intIndex,msg);
emlFileName := Trim(IntToStr(intIndex))+'.eml'; //有程序产生文件名
msg.SaveToFile(emlfilename);
end;
End;
不知你是怎么将收到的邮件保存成Eml文件的
 
您必须登录或注册才可回复。

Similar threads

I
使用TNMSMTP控件在需认证服务器上发送邮件
回复
0
查看
560
import
I
M
原来的发送邮件代码可以发送邮件。现在怎么突然不能发送了。高手帮助看看(94分)
回复
3
查看
368
j10y
J
Y
indy的问题：采用INDY开发的邮件发送出现了不可思异的问题！(300分)
回复
4
查看
362
qq112729650
Q
H
邮件发送 ( 积分: 50 )
回复
6
查看
710
hrp123
H
Z
百万火急，求高手改进邮件发送附件的代码 ( 积分: 10 )
回复
2
查看
380
l1_jun
L
后退
顶部