我用DELPHI6的EMAIL控件做了一个发邮件的程序,连接没问题可发时出错提示是: 533 You are not authorized to send mail as <MAIL FROM:<dnlidj@163.com>>, authentication is required. 哪位帮帮忙谢谢
----------------------------------------------
平平淡淡才最真
procedure TForm1.Button7Click(Sender: TObject); begin nmp.Disconnect; end;
procedure TForm1.NMSConnect(Sender: TObject); begin statusbar1.SimpleText :='连接.'; end;
procedure TForm1.NMSPacketSent(Sender: TObject); begin statusbar1.SimpleText :='共:'+inttostr(nms.BytesTotal)+'字节,已发送:'+inttostr(nms.BytesSent)+'字节.'; end;
procedure TForm1.NMSEncodeEnd(Filename: String); begin statusbar1.SimpleText :='完成编码:'+filename; end;
procedure TForm1.NMSEncodeStart(Filename: String); begin statusbar1.SimpleText :='正在编码:'+filename; end;
procedure TForm1.NMPRetrieveEnd(Sender: TObject); begin form1.Cursor:=crdefault; statusbar1.SimpleText :='检索完毕.'; end;
procedure TForm1.NMPRetrieveStart(Sender: TObject); begin form1.Cursor :=crhourglass; statusbar1.SimpleText :='开始检索.'; end;
procedure TForm1.NMPPacketRecvd(Sender: TObject); begin statusbar1.SimpleText :='共:'+inttostr(nmp.BytesTotal)+'字节,已接收:'+inttostr(nmp.BytesRecvd)+'字节.'; end;
procedure TForm1.NMPSuccess(Sender: TObject); begin statusbar1.SimpleText :='操作成功.'; end;
procedure TForm1.NMPHostResolved(Sender: TComponent); begin statusbar1.SimpleText :='Host Resolved'; end;
procedure TForm1.NMPInvalidHost(var Handled: Boolean); var tmpstr:string; begin if inputquery('Invalid Host!','Specify a new host:',tmpstr) then begin nmp.Host :=tmpstr; handled:=true; end; end;
procedure TForm1.NMPConnectionFailed(Sender: TObject); begin messagebox(handle,'连接失败,请检查帐号和密码!','错误',mb_ok or mb_iconerror); end;
procedure TForm1.NMPConnectionRequired(var Handled: Boolean); begin if messagebox(handle,'未连接到服务器,现在连接吗?','错误',mb_yesno or mb_iconerror)=idyes then begin handled:=true; nmp.Connect; end; end;
procedure TForm1.NMPFailure(Sender: TObject); begin messagebox(handle,'操作失败','错误',mb_ok or mb_iconerror); end;