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:
Cita:
---------------------------
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:
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdMessage->Subject = "Asunto del correo";
IdMessage->Body->Text = "Cuerpo del correo";
IdMessage->From->Address = "correo@remitente.es";
IdMessage->Recipients->Add();
IdMessage->Recipients->Items[0]->Address = "correo@destino.es";
__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();
}
}