[Avellas]

Hola amigos del club, me gustaria saber si alguien me puede ayudar a solucionar un problema que tengo al enviar correos con delphi 6, cuando hago el envio me genera el error 503 y no he podido encontrar documentacion hacerca de esto, les agradezco la colaboracion

anexo el codigo



nmsmtp1.EncodeType := uuCode;
// actEliminarFicheroAdjuntoExecute(nil);
// actInsertarFicheroAdjuntoExecute(nil);
nmsmtp1.Host := 'smtp.accivalores.com';
nmsmtp1.Port := 25;
nmsmtp1.PostMessage.FromAddress := Trim(txtEMailOrigen.Text);
nmsmtp1.PostMessage.FromName := Trim(txtNombreOrigen.Text);
mPara.Text := DtmCorreos.AdoQryMovimEMAIL.AsString;
nmsmtp1.PostMessage.ToAddress.Text := mPara.lines.Text;
nmsmtp1.PostMessage.ToCarbonCopy.Text := mCC.lines.Text;
// nmsmtp1.PostMessage.ToBlindCarbonCopy.Text := mBCC.lines.Text;
nmsmtp1.PostMessage.Body.Text := 'Esto es una prueba de envio de correo';//mMensaje.Lines.Text;
nmsmtp1.PostMessage.LocalProgram := 'Envío de Correo electrónico';
nmsmtp1.PostMessage.Subject := 'Prueba envio de Correo';//txtAsunto.Text;
nmsmtp1.PostMessage.ReplyTo := txtEMailOrigen.Text;
try
nmsmtp1.SendMail;
except