大家辛苦了！我又来散分了。祝大家过年奖金多多，个个电脑换P4，过年好好在家玩个痛快。不过我还有个邮件问题请大家帮忙看一下。(300分)

ID＝1158323 这个贴我已经看过了。　
我用的也是：idsmtp,idmessage来做的。我要实现从zhm_good@163.com发一封邮件到zhm_good@elong.com　

unit mainunit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, IdBaseComponent, IdMessage;

type
TForm1 = class(TForm)
IdMessage1: TIdMessage;
IdSMTP1: TIdSMTP;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Body:Tstringlist;

begin
Body:=TStringList.Create;
Body.Add('明天放假。');
IdMessage1.Body.Assign(Body);
IdMessage1.From.Text :='"zhm_good" <zhm_good@163.com>';

IdMessage1.Recipients.EMailAddresses :='zhm_good@163.com';
IdMessage1.Subject :='通知';
IdSMTP1.UserID :='zhm_good';
IdSMTP1.Password:='mypassword';
//如果smtp没有校验用户,可以不用以上两句

IdSMTP1.Host :='smtp.163.com';
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;


end;

end.


一、
可是邮件发送不出去，错误为：
'553 you are not quthorized to send mail as<Mail from:<zhm_good@163.com>>,authentiction is required
好像是身份验证通不过去。
二、
请问怎样用它发附件？
三、用NMSMTP也可以发邮件（请看ID＝1158323贴子）
它对附件大小有没有限制？
用idsmtp,idmessage或nmsmtp发信时，对信的正文内容大小（字节数）有没有限制？

请大家发发言，懂多少讲多少，本感激不尽！

应该有限制吧
现在一些邮件工具都带邮件发送切割功能

人都到哪里去了呀，都回家过年了，：），
可是我这个东西，不做好，过年哪能安心。
一个简单的发邮件的问题还是没解决。上面那个程序一封信也发不出呀，
各位兄台帮我顶顶，只要问题解决，马上散分！

张无忌,luyear,....快来救我呀，希望看贴的人帮我顶一下。

up

附件大小取决于smtp服务器

找到idMessage.pas　在该文件中　搜索 Values['x-Library] 把它
所在行注释掉，保存重新编译控件包，或重新安装控件，或者将修改后的单元
加入工程

delphi6，delphi6 的 demo里都有，现成的

up

IdSMTP1.AuthenticationType = atLogin

up.

up

我宁可把电脑换成AMD的，BO版2800+，oh, my god，我的梦想。

我要P4

[]TOO EASY
将IDSMTP中的有一个有关认证的属性设为TRUE即可。

I just want to get your point.

up

接分

up

好像smtp.163.com行不通，我也遇到过这样的问题，不过没有解决，谁能解决告诉我一声