Error - 503 5.0.0 Need RCPT (recipient)

[[Nbull]]

Hola Burasu, a mi me pasaba lo mismo, eso pasa por que algunos servidores necesitan una autentificacion para poder enviar mensajes a otros servidores que no sean el propio.Yo lo solucione gastando Los componentes Indy, para ello tuve que pasarme de Delphi 4 a Delphi 7 y con el siguiente codigo me funcionó de lujo.

Código Delphi [-]

var
i:integer;
begin
Memo.Lines.Add('Verificando el Usuario...');
form6.ShowModal;
if(Form6.Desconectar=0) Then
begin
Memo.clear;
  //Autentificación en el servidor
  IdSMTP1.AuthenticationType :=atLogin;
  IdSMTP1.Username := trim(txtUsuario.Text);
  IdSMTP1.Password :=trim(txtclave.Text) ;
  // Nombre del Servidor ...
  IdSMTP1.Host:=trim( txtServidor.Text );
  // Puerto de correo ...
  IdSMTP1.Port:=25;

  try
    Memo.Lines.Add('Conectando con ' + trim( txtServidor.Text ) + ', puerto 25' );
    // Conectando ...
    IdSMTP1.Connect;
  Except
    // Imposible conectar con el servidor de correo ...
    Memo.lines.add('Fallo en la conexion con el servidor SMTP.');
    Exit;
  end;
    Memo.lines.add( 'Componiendo mail ...' );
    with Mensaje do begin
      // Dirección origen ...
      if ( trim( txtDe.Text ) <> '' ) then
        From.Text:= trim( txtDe.Text )
      else
        From.Text:='[email protected]';
      Memo.lines.add( 'Direccion origen : ' +   From.Text );
      // Dirección destino. Se pueden indicar varias  ...
      Recipients.EMailAddresses:=( trim( txtPara.Text ) );
      Memo.lines.add( 'Dirección destino : ' + trim( txtPara.Text ) );
      // Direcciones copia. Se pueden indicar varias ...
      if( trim( txtCC.Text ) <> '' ) then begin
        CClist.EMailAddresses:=( trim( txtCC.Text ) );
        Memo.lines.add( 'CC : ' + trim( txtCC.Text ) );
      end;
       // Titulo del mail ...
      if( trim( txtAsunto.Text )='' ) then
        subject:='[Sin titulo]'
      else
        subject:= trim( txtAsunto.Text );
      Memo.lines.add( 'Asunto : ' + subject );
      // Adjuntos. Se pueden indicar varios ...
      if ( trim( txtAdjunto.Text ) <> '') then
      begin
        TIdAttachment.Create(Mensaje.MessageParts,txtAdjunto.Text );
        Memo.lines.add( 'Archivo Adjunto : ' + trim( txtAdjunto.text ) );
      end;
      if(MemoAdjunto.Visible=true) then
      begin
        for i:=0 to MemoAdjunto.Lines.Count-1 do
          TIdAttachment.Create(Mensaje.MessageParts,MemoAdjunto.Lines[i] );
        Memo.lines.Add( 'Archivos Adjuntos :');
        Memo.lines.AddStrings( MemoAdjunto.Lines  );
      end;
      // Cuerpo del mail ...
      if ( mCuerpo.Lines.Count > 0 ) then begin
        body.Assign(mCuerpo.Lines);
        Memo.lines.add( 'Añadiendo cuerpo del E-mail ...' );
        Memo.lines.add( ' ' );
      end;
      Memo.lines.add( 'Enviando ... ');
      // Enviando mail ...
      if ( trim( txtPara.Text ) <> '' ) then begin
        IdSmtp1.Send(mensaje);
        Memo.lines.add( 'E-Mail enviado.');
      end else
        Memo.lines.add( 'E-Mail no enviado, no se especificó dirección de destino.' );
      // Desconectando ...
      IdSmtp1.Disconnect;
    end;
    Memo.lines.add( 'Desconectado');

Se que hace unos meses que posteaste este asunto y que a lo mejor ya lo has solucionado, pero, de todas formas seguro que alguien le pasara lo mismo que a nosotros y aquí tienen la solución.

PD:En delphi 7 no funcionan o no lo lleva instalados por defecto los componentes NmSmtp.

Un saludo.

[burasu]

Si la verdad es que tocando la propiedad que digo más arriba de momento me funciona, pero no me resulta convincente esa solución. Por eso cuando tenga un hueco en la pila de cosas pendientes, aplicaré tu código , yo trabajo con Delphi 5, no se si lo he dicho antes.

Y bueno como dice el dicho, "Más vale tarde que nunca"

Gracias.