Buenas. Estoy diseñando una aplicación para un cibercafé, y en la sección de clientes me interesa tener la opción de enviar correos. El caso es que no consigo que funcione, y he probado (creo) todos los ejemplos del foro, incluido los que vienen en el libro La Biblia de Delphi 7. El código que tengo es el siguiente:
Código:
procedure TvZonaClientes.cmdEnviarClick(Sender: TObject);
begin
// Creo el mensaje
mailMensaje.Subject:=txtAsunto.Text;
mailMensaje.Body.SetText(memoMensaje.Lines.GetText);
mailMensaje.From.Name:='La Empresa';
mailMensaje.Recipients.EMailAddresses:=vModuloDatos.DataSetClientesEMAIL.AsString;
mailMensaje.Priority:=TidMessagePriority(mpHighest);
// Configuro la conexión
indySMTP.Host:='192.168.0.2';
indySMTP.Port:=25;
indySMTP.AuthenticationType:=atNone;
// Conecto y envío el correo
try
indySMTP.Connect;
try
indySMTP.Send(mailMensaje);
finally
showmessage('El mensaje se envió correctamente');
end;
except
showmessage('Se produjo un fallo durante el envío del mensaje');
end;
// Desconecto
if indySMTP.Connected then
indySMTP.Disconnect;
end;
Siendo indySMTP y mailMensaje, un TIdSMTP y un TIdMessage de las librerías Indy respectivamente. He agregado también un IdSMTPServer, por eso indico en indySMTP.Host la IP local del equipo. El caso es que el correo no se envía. Casi siempre se muestra el mensaje de que se ha enviado, pero realmente no es así. Al servidor SMTP no le tengo configurado nada. estoy intentando mandar correos a @hotmail.com y @lycos.es y no funciona en ninguno. ¿Alguien me puede echar un cable? No tengo ni idea de lo que hago mal, o no no hago. Muchas gracias anticipadas.