Problemas al enviar Email

[BuenaOnda]

Hola amigos del foro:

Les agradeceria mucho que me ayudaran a resolver un problema que tengo, les cuento necesito mandar un email y probado con muchos componentes(Indy,Fassnet) y ninguno ha solucionado mi problema.. a lo mejor proporciono mal los datos como : host, usuario,etc..

por ejemplo componentes Indy

Código Delphi [-]
  
//En el caso de un servidor GMAIL
  IDSMTP1:=TIDSMTP.Create(nil);
  IdSMTP1.AuthenticationType :=atLogin;
  IdSMTP1.UserNAME := micuenta@gmail.com; //me imagino que es la misma
                                                              //que la de mi correo gmail 
 
  IdSMTP1.Password := 123456;                   //me imagino que es el mismo
                                                              //que la de mi correo gmail 
  IdSMTP1.Host := smtp.gmail.com;
  IdSMTP1.Port := 25;
 
  with Mensaje do
  begin
  Body.Add(CUERPO);
  From.Text := micuenta@gmail.com
  Recipients.EMailAddresses := miamigo@hotmail.com
  Subject := 'para probar';
  Priority := TIdMessagePriority(mpHighest);//prioridad del mensaje
  CCList.EMailAddresses := '';
  BccList.EMailAddresses := '';
  TIdAttachment.Create(Mensaje.MessageParts,adjunto);
  end; //configuracion server smtp

  with idsmtp1 do
  begin
   try
      Connect;
      try
        // Envio el mensaje.
        Send(Mensaje);
      finally
        Disconnect;
      end;
  //    MessageDlg('Enviado Correctamente', mtInformation, [mbOK], 0);
    except
       // Capturo algunas excepciones que pueden ocurrir
      ON E: EIdProtocolReplyError do begin
      MessageDlg('No se ha podido enviar el email.' + #13 +
            'Incorrecto el email o el usuario o la password.', mtError, [mbOK], 0);
      end;
      on E: EFOpenError do begin
      MessageDlg('No se ha podido enviar el email.' + #13 +
            'Fichero Adjunto desconocido o erróneo.', mtError, [mbOK], 0);
      end;
      on E: EIdSocketError do begin
      MessageDlg('No se ha podido enviar el email.'+ #13 +
            'Host desconocido o incorrecto.', mtError, [mbOK], 0);
      end
      else begin
      MessageDlg('Fallo en el envio de email', mtError, [mbOK], 0);
      end;
    end;
  end;

tambien lo intente con un correo hotmail y tuve el mismo problema

muchas gracias por su valiosa ayuda...

[droguerman]

bueno no he llegado a usar componentes Indy, pero si sé que si envias un mail solo con la data no es procesado por gmail o hotmail, necesitas añadir a tu mensaje un encabezado parecido a este:

From: "TU Nombre" <tucorreo@tuserver>
Return-Path: "direccion retorno" <tucorreo@tuserver>
To: "Nombre de tu destino <destino@elserverdestino>"
Subject: el asunto
Date: 2-2-2007
MIME-Version: 1.0
Content-Type: text/html;
format=flowed;
charset="iso-8859-1;"
reply-type=original
Content-Transfer-Encoding: 8bit
X-Priority: 3
X-MSMail-Priority: Normal
<aqui hay que darle dos enters>
<aqui viene tu mensaje>

ahora a mi solo me ha funcionado llegando como spam pero llega, revisa si existe alguna forma de añadir encabezados a tu correo

[dec]

Hola,

También puede ser que sea menester usar de cierto modo el protocolo SSL, que es el que usa Gmail. Aquí tienes un ejemplo del compañero Román.

[[basti]]

Además de lo que dice dec, tienes que cambiar el puerto del SMTP, en Gmail es el 465.

[BuenaOnda]

gracias por su ayuda, disculpen que siempre los este molestando..

[BuenaOnda]

el ejemplo del amigo roman se ve muy bueno, pero me olvide de decirles, que estoy utilizando delphi 7, por lo que hay algunos propiedades que no poseen la version de los indy para delphi 7, lo que produce errores...jijiji..

muchas gracias..

[dec]

Hola,

Tienes la opción de instalar la versión 10 de los componentes Indy, pero, con la versión 9 (conque cuentas en Delphi 7) también es posible enviar correos utilizando el SMTP de GMail con tu propia cuenta de usuario. El ejemplo que adjunto necesita también de las librerías que menciona Román anteriormente. Todas las propiedades de los componentes implicados son las que traen estos por defecto, excepto las que he cambiado en el propio código fuente.

[marcial]

El Archivo ZIP está dañado. ¿Sería posible sustituirlo por el correcto pues me sería de muchisima ayuda?
Gracias
Marcial

[Casimiro Notevi]

Hola, lo acabo de probar y funciona bien, ¿qué problema tienes?

[roman]

Yo también lo puedo abrir sin problemas usando IZarc y desde Firefox.

// Saludos

[marcial]

Pues Ejemplo.dpr Ejemplo.res y Limpiar.bat parece ser que están dañados
Luego, en el directorio frm, el UfrmPrincipal.dfm tampoco lo descomprime
Este es el mensaje que me da el winrar.

! C:\ADAROS\ProgramasAuxiliares\SSL\Enviar correo con SMTP de Gmail (con Indy 9).zip: El archivo está dañado
! C:\ADAROS\ProgramasAuxiliares\SSL\Enviar correo con SMTP de Gmail (con Indy 9).zip: El archivo está dañado

Gracias