Como enviar un e-mail desde Builder?

[JuanErasmo]

Amigos otra vez soy yo!

Ya tengo una cuenta con un servidor SMTP pero me sale un error de "authentication failed", que método o propiedad me permite autenticarme ingresar el password o algo así?
hablando del componente NMSMTP del FastNet?
Gracias amigos.

[dec]

Hola,

Empezado por JuanErasmo

autenticarme ingresar el password o algo así? (...) hablando del componente NMSMTP del FastNet?

¿Qué versión de Delphi estás utilizando? ¿Podrías instalar los componentes Indy? ¿Puedes publicar el código que estás tratando de utilizar?

[JuanErasmo]

Hola David, estoy utilizando C++ Builder 6, pero los componentes Indy ahí estan, lo que pasa es que no los se manejar.

El código que estoy utilizando es el siguiente:

  nmsmtp1->Host="tone.udea.edu.co" ;
  nmsmtp1->Port=25;
  nmsmtp1->Connect();
  nmsmtp1->PostMessage->ToAddress->Add("[email protected]");
  nmsmtp1->PostMessage->FromAddress="[email protected]";
  msmtp1->PostMessage->Subject="HOLA A TODOS";
  nmsmtp1->PostMessage->Body->Add("LO LOGRE!!!!");
  nmsmtp1->SendMail();

[dec]

Hola,

Básicamente con ese código, pero utilizando otro servidor SMTP no he tenido problemas para enviar el correo. Tratando de usar el servidor SMTP que tú has indicado más arriba me han aparecido hasta dos errores, pero, el que se repite es:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class Exception with message 'Authentication failed'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Tal vez es que precisas precisamente eso, "autentificarte". No sabría hacerlo con los componente que tratas de usar. Con los componentes Indy, aunque no lo he podido probar, tal vez lo siguiente podría valerte o al menos darte alguna idea:

void __fastcall TForm1::Button1Click(TObject *Sender)
 {
   IdMessage->Subject = "Asunto del correo";
   IdMessage->Body->Text = "Cuerpo del correo";
   IdMessage->From->Address = "[email protected]";
   IdMessage->Recipients->Add();
   IdMessage->Recipients->Items[0]->Address = "[email protected]";
   __try
   {
 	IdSMTP->UserId = "usuario";
 	IdSMTP->Password = "contrasena";
 	IdSMTP->Host = "smtp.servidor.es";
 	IdSMTP->AuthenticationType = atLogin;
 	IdSMTP->SocksInfo->Authentication = saUsernamePassword;
 	IdSMTP->Connect();
 	IdSMTP->Authenticate();
 	IdSMTP->Send(IdMessage);
   }
   __finally
   {
 	if(IdSMTP->Connected())
 	  IdSMTP->Disconnect();
   }
 }

[JuanErasmo]

Hola Dec, sigo con el error de autenticacion, pero podrías decirme donde abrir una cuenta con servicio SMTP gratuito?

Gracias!

[dec]

Hola,

Empezado por JuanErasmo

(...) podrías decirme donde abrir una cuenta con servicio SMTP gratuito?

Pues lo lamento, pero, no puedo hacerlo. Yo me valgo del servidor SMTP que proporciona la operadora de telefonía con quien tengo contratada la conexión a Internet. No preciso siquiera de "autenticación", puesto que, solamente puedo hacer uso de dicho servidor SMTP cuando mi ordenador está conectado a Internet a través de dicha operadora de telefonía. Tal vez tu teleoperadora pueda ofrecerte algo similar. Creo que es habitual hacer esto.

[dec]

Hola,

Respecto de mi anterior mensaje tal vez puedas preguntarte, vale, tú envías los correos mediante el servidor SMTP de la operadora de telefonía conque tienes conexión a internet contratada, pero, ¿y si quieres que algún programa que hallas escrito te envíe algún correo, por poner un caso, a modo de reporte de error? En ese caso, o bien tendrá el usuario que enviar el correo a través de su programa predeterminado para tal fin (yo me encargaría de presentarle el correo listo para enviar) o, bien solicitaría al usuario un servidor SMTP desde donde enviar el correo de marras: tal como hace cualquier cliente de correo, a lo menos los que he utilizado y todavía utilizo.