使用indy9不能发送邮件的兄弟注意了，这里有解决方法！(10分)

  • 主题发起人 主题发起人 lzf1010
  • 开始时间 开始时间
问题搞定了，但是怎么发送Html正文呢
 
我没有改，为什么现在可以了？确实要改吗？
 
测试了一下午，发现都能收，不知道还要不要改！
 
我只是说不能发，没有说不能收
 
有时能发出有时不能发，TOM的每天只能发五封。。。163这两天又不能发了。
 
就是改了也不行（163），另：
procedure TIdSMTP.Send(AMsg: TIdMessage);

procedure WriteRecipient(const AEmailAddress: TIdEmailAddressItem);
begin
SendCmd('RCPT TO:<' + AEMailAddress.Address + '>', [250, 251]); {Do not Localize}
end;

没有找到SendCmd('RSET');
 
我觉的还是用indy10，我就是用这个开发的
 
我现在用indy10开发邮件客户端程序遇到 问题，哪位大侠帮助解决？
如何使用indy邮件组建通过 proxy发送邮件
 
使用TIdSMTP、TIdIOHandlerStack、TIdSocksInfo就可以用代理发送邮件了！
 
如何用使用TIdSMTP、TIdIOHandlerStack、TIdSocksInfo进行使用代理发送邮件?
 
好多看不懂,现在又要用到各位说的东东.唉,要学的东西太多了.
 
我通过这种方式，解决了163发不出的问题。但是gmail还是发不出去，发送报异常，E.message是一串随机值，形如“d19sm7049513and”。解决了的话开帖给分～～谢了
 
先查询dns，获取gmail的mx值的ip，然后可以用idsmtp直接发邮件给gmail，只是有时会被规类到垃圾邮件去。
 
哪位能提供一完整代码,并配上注释,让小弟学学啊?
 
我用indy10,也遇到问题，欢迎大家继续讨论.
 
这样改了也是白改，都不行， Smtp.Host := sMX;

function TfrmMain.GetMxList(vDns, vDomain: string): TstringList;
var
k: Integer;
IdDNS:TIdDnsResolver;
begin
Result := TstringList.Create;
IdDNS := TIdDnsResolver.Create(nil);
if vDns='' then vDns := '202.118.4.238';
IdDNS.Host := vDns;
IdDns.QueryRecords := [qtMX];
try IdDns.Resolve(vDomain);//(vDomain);
IdDns.Active;
for k := 0 to IdDns.QueryResult.Count-1 do
if IdDns.QueryResult[k] IS TMxRecord then
Result.Add(TMXRecord(IdDns.QueryResult[k]).ExchangeServer);
finally
IdDns.Free;
end;
end;
 
改成任意常量都行么？
 
gmail使用的是ssl链接，和普通的邮件服务器有点区别，修改一下属性值就可以了
 
您必须登录或注册才可回复。

Similar threads

T
indy9.0 老问题 ( 积分: 50 )
回复
11
查看
641
txbdir
T
Y
indy的问题：采用INDY开发的邮件发送出现了不可思异的问题！(300分)
回复
4
查看
362
qq112729650
Q
D
使用indy不能发送邮件,怎样才能发送邮件呢 ( 积分: 100 )
回复
14
查看
730
dali2000
D
R
愿意出钱急求解决办法,三层结构中有关连接数到了10时应用层立即死掉的问题.(0分)
回复
6
查看
763
zhuchengchuan
Z
A
请问能用indy建立的本地smtp服务器发送邮件吗？ ( 积分: 100 )
回复
0
查看
524
aszou
A
后退
顶部