Error - 503 5.0.0 Need RCPT (recipient)

[burasu]

Hola amigos, como comente en un hilo anterior, estoy realizando una opción en mi aplicación de enviar informes via email, una usando el correo predeterminado de Windows, y el otro con los componentes de la paleta FastNet.

Cuando procedo a mandar el informe me saca el siguiente mensaje:

503 5.0.0 Need RCPT (recipient)

Debo explicar que lo que realizo es crear los informes en un fichero y mandarlos adjuntos en este correo.

Este error a que se debe?

Gracias de antemano.

[jachguate]

El servidor está chillando porque no has seguido el protocolo. ¿cómo estas enviando el mail? ¿podrias pegar un pequeño trozo de código... el mas cercano a la línea donde ocurre el error?

Encerrado en etiquetas delphi, por favor. Si no sabes como usar la etiqueta, al principio de este foro hay un mensaje que te introduce a su uso, y en mi firma la ayuda de la etiqueta code, de uso similar.

Hasta luego.

[burasu]

Aquí te paso la función entera:

{/* FUNCION CON LA QUE REALIZAMOS EL ENVIO DEL CORREO A LA CUENTA INDICADA POR
    EL USUARIO. */}
function TForm_InfEmail.EnviaCorreo(Fichero : String):Boolean;
var cad: string;
    SMTP, Usuario, eCorreo: String;
begin
        {/* EXTRAEMOS DE LA TABLA DE CONFIGURACIÓN LOS PARAMETROS PARA EL
            ENVIO DE CORREO ELECTRÓNICO */}
        ModuloDatos.ConsultaSQL(' SELECT CEMAIL, CSMTP, CUSUARIO FROM CONFIGURACION ',1);
        eCorreo := ModuloDatos.CamposSQL[0];
        SMTP := ModuloDatos.CamposSQL[1];
        Usuario := ModuloDatos.CamposSQL[2];

        {/* Creamos la lista de Adjuntos e inicializamos la variable EMAILCORRECTO a
          Falso. */}
        EMailCorrecto := False;
        LabAccion3.Caption := 'Preparando...';

        {/* Le damos los valores necesarios al componente NMSMTP1. */}
        with NMSMTP1 do begin
                Host := SMTP;                                           {/* IP del dominio de la cuenta. */}
                UserID := Usuario;                                      {/* Usuario de dicha cuenta. */}
                LabAccion3.Caption := 'Enviando...' ;
                Application.ProcessMessages;

                PostMessage.Attachments.Text := Fichero;                {/* Array de adjuntos. */}
                PostMessage.FromAddress := eCorreo;                     {/* Correo origen. */}
                PostMessage.ToAddress.Text := trim(Email.Text);         {/* Correo destino. */}
                PostMessage.Subject := trim(Asunto.Text);               {/* Asunto del correo. */}
                PostMessage.ToCarbonCopy.Text := '';
                PostMessage.ToBlindCarbonCopy.Text := '';
                PostMessage.Body.Text := '';

                try
                        SendMail;                                       {/* Mandamos el correo. */}
                Except
                        On E: Exception do begin     {/* Si falla mostramos un mensaje en pantalla. */}
                                Cursor := crDefault;
                                ModuloDatos.MensaErr(165,CodPantalla,'No se pudo enviar el correo a su destino. Se provocó el siguiente error:'
                                                                     + #13#10 + #13#10 +
                                                                     '--> ' + E.Message);
                                LabAccion3.Caption := '¡¡¡ FALLIDO !!!' ;
                                Application.ProcessMessages;
                        end;
                end;
        end;
        Result := EMailCorrecto;
end;

[burasu]

He probado tocar los parametros de configuración del componente NMSMTP1 que es el que utilizo, y he tocado la propiedad EncodeType, la cual estaba puesta en uuMime y la he puesto en modo uuCode. He realizado varias pruebas y ahora si me funciona. Me puedes explicar la diferencia entre los dos modos de codificación???

[[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:='desconocido@anonimo.dominio';
      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.