500分求可用的发邮件源码(300分)

  • 主题发起人 主题发起人 lhc4000
  • 开始时间 开始时间
to kaida:
谢谢你,不过不行。可能正如dcsdcs所言,需要修改邮件头,不过未找到方法
 
你有没有用我给你的 Lib 文件夹里的文件覆盖 Delphi7 安装目录 lib 里的文件?
Lib 文件夹里的文件就是经过修改的。我这里测试,没问题。
 
to:kaida

能不能发我一份,谢谢了。
106605555@qq.com
 
lytianshi:已发。用的效果请回复。
 
to:kaida
好用。多谢了。
能说说是改了什么文件吗。
 
实际上不是我的功劳。是我以前在大富翁上看到的,忘了在哪里。
我把摘录的文贴出来,大家可以参照改。
问题:使用indy9不能发送邮件的兄弟注意了,这里有解决方法! ( 积分:10, 回复:24, 阅读:341 )
分类:Internet/TCPIP ( 版主:luyear, robertcool )
来自:lzf1010, 时间:2006-2-21 14:26:00, ID:3359545 [显示:小字体 | 大字体]
1、找到procedure TIdSMTP.Send(AMsg: TIdMessage);这个函数将SendCmd('RSET');这行注销
2、IdMessageCoderMIME这个单元,将下面的常量IndyMIMEBoundary,IndyMultiPartAlternativeBoundary,IndyMultiPartRelatedBoundary改成你自己需要的就可以了。
 
to:kaida
再次感谢。
 
to kaida:
我没覆盖。我是用你原来编译的EXE文件来试的。我再按你说的试试。
 
to kaida:
非常感谢,能用了。
另200分请到下帖中领,再次感谢!
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3469438
 
to kaida:
EMAIL:sail_world@163.com
thanks
 
to:kaida

能不能发我一份,谢谢了
free__eagles@126.com
 
接受答案了.
 
后退
顶部