Enviar Correos con Codigo HTML..

[joelphi]

Hola a todos en el foro...tengo un problema nuevo para mi pero se que para los usuarios del foro es algo que ya solucionaron es por ello que pido su ayuda..
Resulta que necesito enviar un correo electronico en formato HTML desde delphi, anadando en la red me encontre con este codigo..pero resulta que me menciona error al momento de conectar con el servidor smtp de gmail..les agradeceria me dijeran en que esta mal o me dieran una pagina de referencia para estudiar..El codigo es el siguiente: UTILIZO DELPHI 2007

Código Delphi [-]
procedure TForm1.EnviarCorreo;
var smtp:TIdSMTP;
  mail:TIdMessage;
begin
    smtp := TIdSMTP.Create(Self);
      Mail := TIdMessage.Create(Self);
      with smtp do
      begin

        Port:=587;
        Host:= 'smtp.gmail.com';
        Username:='Mi_Correo@gmail.com';
        Password:='Mi_Clave';
      end;

      with mail do
      begin
        Recipients.Add;
        Recipients[0].Name   :='SitiSystems';
        Recipients.EmailAddresses:='Mi_correo@gmail.com';
        From.Name            :='PMS';
        From.Address         :='Mi_Correo@gmail.com';
        Subject              :='Subject..';
        Body.Text:='Prueba de correo..';
      end;

      try
        smtp.Connect;
      except
        ShowMessage('Ocurred an Error, The Message was not Sent');
      end;
        Screen.Cursor:=CrDefault;

      try
        smtp.Send(mail);
      except
      //on E: Exception do
        ShowMessage('The Message was not Sent');
      end;

      if smtp.Connected then
        smtp.Disconnect;
      mail.Free;
      smtp.Free;
end;

y tambien utilizp este codigo e igual..no me envia el correo...

Código Delphi [-]
procedure TForm1.EnviarMensaje(sUsuario, sClave, sHost, sAdjunto, sAsunto,
  sDestino, sMensaje: String);
var SMTP: TIdSMTP;
   Mensaje: TIdMessage;
   //Adjunto: TIdAttachment;
begin
  // Creamos el componente de conexión con el servidor
  SMTP := TIdSMTP.Create( nil );
  SMTP.Username := sUsuario;
  SMTP.Password := sClave;
  SMTP.Host := sHost;
  SMTP.Port := 587;
  SMTP.AuthType := atDefault;
  SMTP.SupportsTLS;
 // smtp.Authenticate;

  // Creamos el contenido del mensaje
  Mensaje := TIdMessage.Create( nil );
  Mensaje.Clear;
  Mensaje.From.Name := sDestino;
  Mensaje.From.Address := sDestino;
  Mensaje.Subject := sAsunto;
  Mensaje.Body.Text := sMensaje;
  Mensaje.Recipients.EMailAddresses := 'Mi_correo@gmail.com';
  Mensaje.Recipients.Add;
  Mensaje.Recipients.Items[0].Address := 'Correo_Destino@hotmail.com';
  try
    SMTP.Connect;
  except
    raise Exception.Create( 'Error al conectar con el servidor.' );
  end;
     if SMTP.Connected then
     SMTP.Send(Mensaje);

  FreeAndNil( Mensaje );
  FreeAndNil( SMTP );

  Application.MessageBox( 'Mensaje enviado correctamente.',
    'Fin de proceso',MB_ICONINFORMATION );
end;

EnviarMensaje('Mi_correo@gmail.com', 'mi_Clave', 'smtp.gmail.com',
             '-', 'Te envio mi documento',
             'Mi_correo@gmail.com', 'Adjunto archivo: documento.zip');

les agradecere mucho su ayuda..

[[newtron]]

Hola.

No dices qué error te da pero para envíar un correo con gmail tienes que hacerlo usando el protocolo SSL.

Echa un vistazo a esto a ver si te ayuda.

Saludos

[joelphi]

No menciona ningun error..solo no se conecta al servicio, es decir; cuando hace SMTP.Connect; retorna FALSE

Muchas gracias mi hermano..checare la información y pondre la solucion..