请各位帮忙看程序 ( 积分: 50 )

1.发送邮件源码：
procedure TFrmSendMail.btnSendClick(Sender: TObject);
begin
with IdMessage1 do
begin
Body.Assign(M_body.Lines);
From.Address:='cgcpj@163.com';
Recipients.EMailAddresses:='cgcpj@tom.com';
TIdAttachment.Create(IdMessage1.MessageParts,'');
Subject:='send email test';
end;
//begin send email
with IdSMTP1 do
begin
Host:='202.108.44.205';
Port:=25;
Username:='cgcpj';
Password:='123456';
try
Connect;
except
Showmessage('Connect the server failed!');
exit;
end;
try
Send(IdMessage1);
ShowMessage('Send email successful');
Finally
Disconnect;
end;
end;
end;
错误提示：
Project SendMail.exe raised exception class EIdProtocolReplayError with message
'You are not authorized to send mail as <MAIL FROM:<cgcpj@163.com>>',authentication is required

2.串口发短信，最好有源码，各位有劳啦
以前的帖子我也看了，使用nokia，但是我一直不知从何做起
分不够，另外开贴

1.发送邮件源码：
procedure TFrmSendMail.btnSendClick(Sender: TObject);
begin
with IdMessage1 do
begin
Body.Assign(M_body.Lines);
From.Address:='cgcpj@163.com';
Recipients.EMailAddresses:='cgcpj@tom.com';
TIdAttachment.Create(IdMessage1.MessageParts,'');
Subject:='send email test';
end;
//begin send email
with IdSMTP1 do
begin
Host:='202.108.44.205';
Port:=25;
Username:='cgcpj';
Password:='123456';
try
Connect;
except
Showmessage('Connect the server failed!');
exit;
end;
try
Send(IdMessage1);
ShowMessage('Send email successful');
Finally
Disconnect;
end;
end;
end;
错误提示：
Project SendMail.exe raised exception class EIdProtocolReplayError with message
'You are not authorized to send mail as <MAIL FROM:<cgcpj@163.com>>',authentication is required

2.串口发短信，最好有源码，各位有劳啦
以前的帖子我也看了，使用nokia，但是我一直不知从何做起
分不够，另外开贴

大家随便发言啊，知道多少没有关系，相信对我都会有很大帮助的

不会吧，两天啦，没有人说话
不过第一个问题我已经解决了，是少设置了一个参数，login
剩下第二个问题了，希望大侠们都帮帮忙
多多发言
非常感谢

大虾们都怎么啦
这几天了，居然没有一个反映的。
好啦，问题我自己全部解决了，可是没有办法结束帖子啊
有谁第一个进来顶的
50分全送！

错误信息的意思是不是SMTP的用户名、密码不正确哦

终于有人来了，分总算是可以分出去啦
谢谢光子，50分全部奉上

接受答案了.