Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-04-2004
verm83 verm83 is offline
Miembro
 
Registrado: nov 2003
Posts: 28
Poder: 0
verm83 Va por buen camino
Mandar EMail con componentes Indy

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.
__________________
IncestoCanibal.com
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 14:12:01.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi