NMSMTP O que é Isso ??? quot;503: No Valid recipients speci

Delphi

29/06/2004

Estou tentando enviar e-mail pelo aplicativo Delphi usando componente da paleta fastnet NMSMTP, a versão do Delphi e 5 e ñ vou trocar por nenhum outro componente. Se vc amigo sabe o q siguinifica esse erro , ficaria muito grato se me dizer a solução:

´503: No Valid recipients specified´


///// Primeiro eu autentico //////

With NMPOP31 do
begin
if Connected then
Disconnect;
AttachFilePath := ´.´;
DeleteOnRead := FALSE;
ReportLevel := Status_Basic;
TimeOut := 20000;
Host := (trim(edtpop.Text));
Port := 110;
UserID := (trim(edtUserConta.Text));
Password := (trim(edtSenhaConta.Text));
Connect;
end;


if NMSMTP1.Connected then
NMSMTP1.Disconnect;

Panel2.Caption:= ´Enviando Menssagem, Aguarde...´;

{ Seu servidor SMTP }
NMSMTP1.Host := (trim(edtSmtp.Text));

{ Porta SMTP, **NÃO MUDE ISTO** }
NMSMTP1.Port := StrToInt(edtPortaSmtp.Text);

{ Nome de login do usuário }
NMSMTP1.UserID := (trim(edtUserConta.Text));

{ Conecta ao servidor }
NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);

With NMSMTP1.PostMessage do
begin
{ Seu e-mail }
FromAddress := (trim(edtEmail.Text));

{ Seu nome }
FromName := (trim(edtNomeConta.Text));

{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(edtDestinatario.Text);


{ Assunto da mensagem }
Subject := edtAssunto.Text;
{ Corpo da mensagem }
Body.Clear;
Body.Add(mMenssagem.Text);

end;

{ Manda o e-mail }
NMSMTP1.SendMail;
{ Disconecta do servidor }
NMSMTP1.Disconnect;


Wmilhomem

Wmilhomem

Curtidas 0
POSTAR