IdSmtp电子邮件发送电子邮件失败,请教高手!
本人写了一个电子邮件发送程序,可是,老是出现错误,求高手帮忙解决:
procedure TForm1.Button1Click(Sender: TObject);
begin
with IdMessage1 do
begin
Body.Text:=Memo1.Text;
From.Address:='maplechen2002@163.com';
Recipients.EMailAddresses:='maplechen@163.com';
Subject:='实验邮件!';
end;
with IdSmtp1 do
begin
Host:='smtp.163.com';
Username:='maplechen2002@163.com';
Password:='********'; //这里是我的密码
Connect(-1);
Send(Idmessage1);
Disconnect;
end;
ShowMessage('发送完毕!');
end;
可是却出现了
You are not authorized to send mail as <MAIL FROM:<maplechen2002@163.com>>,authentication is required
的错误,请问,这个问题该如何解决阿 ?
是不是在IdMessage1中也要加什么密码的阿?
要是要加,那又该如何加呢?
我没有看到什么
IdMessage1.Password什么的,请高手指教!!