enviar un email desde delphi a hotmail o gmail

[abraham]

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  mail : TIDMessage;
  smtp : TIdSMTP;
begin
  smtp := TIdSMTP.Create(self);
  // ASIGNO EVENTOS
  smtp.Name := 'Smtp';
  // CONFIGURACION DEL SERVIDOR AL QUE SE ENVIA EL CORREO
  with smtp do begin
    AuthenticationType := atLogin;
    Host :='INGENIERO_ABRAHAM@HOTMAIL.COM'; //Aqui colocas la direccion del servidor de correo saliente;
    port := 25;
    Username :='INGENIERO_ABRAHAM@HOTMAIL.COM';  //Aqui colocas la direccion de correo desde la que enviaras el correo;
    Password := 'XXXX'  //Clave de dicha cuenta;
  end;
  mail := TIdMessage.Create(Self);
  // CONFIGURACION DEL MENSAJE A ENVIAR
  with mail do begin
    From.Address := 'INGENIERO_ABRAHAM@HOTMAIL.COM'; //aqu iva la direccion de correo desde la que vas a enviar
    Recipients.EMailAddresses := 'INGENIERO_ABRAHAM@HOTMAIL.COM';//aqu iva la direccion de correo hacia la que vas a enviar
    Subject := 'hola'//Asunto del correo
    body.Text  := 'delphi'//Texto del correo
  end;
  //aDJUNTA EL ARCHIVO
 // if FileExists(//El archivo que vas a enviar) then
   //   TIdAttachment.create(mail.MessageParts,//Ruta del archivo que vas a enviar);
  try
    // CONEXION CON EL SERVIDOR DE CORREO
    smtp.Connect(10000);
    try
      // ENVIO DEL MENSAJE
      smtp.Send(mail);
    except
      on E: Exception do
         ShowMessage('Fallo al enviar: ' + E.Message);
    end;
    ShowMessage('Mensaje enviado satisfactoriamente');
  finally
    if SMTP.Connected then SMTP.Disconnect;
    smtp.free;
    mail.free;
  end;
end;

este:
undeclared identifier: 'Username'
q sera.?

[[eduarcol]]

estas son las uses que necesitas:

IdMessage, IdSMTP

Servidor de correo saliente no es igual a cuenta de usuario, con cuentas de correo http no te va a servir necesitas POP

[abraham]

compadre IdMessage, IdSMTP
estas librerias ya las tengo , se generaron solas

el error sigue persistiendo.

compadre, no me puedes mandar un ejemplo, con todo el codigo, te lo agradeceria mucho y disculpa tanta molestia.

[[eduarcol]]

Resuelve primero el incoveniente este, cuando lo tengas me das los datos y te ayudo a adaptarlo:

Empezado por eduarcol

con cuentas de correo http no te va a servir necesitas POP

, por favor usa las etiquetas para mostrar el codigo

[abraham]

MIS DATOS SON:

Yo voy a enviarlo a mi mismo emial

email: ingeniero_abraham@hotmail.com
o
tengo otro:
ingeniero_abraham@gmail.com

Nombre: Abraham de la Barrera

Clave: xxxx

COmpadre, no me puedes colaborar, acomodandolo a tu codigo, y si te funciona me envias todo el form.

Te lo agradeceria mucho.

[waly2k1]

Eduarcol, estimado colaborador, quizas parezca un poco prepotente esta persona como crees, pero no creo venga al caso. El tema es que no funciona el codigo, es mas probé este y varios ejemplos mas y hasta hoy en dia no logre mandar un email con attach, o soy bruto o los ejemplos no andan. La primera opcion descarto.. la segunda la analizo.

Lo que para uno es simple o estupidez, para otros puede ser muy compleja (depende de que lado de la mesa estas). Verlo desde un sillon comodo en tu casa es una cosa y tenerlo al gordo jefe encima y presionando es otra. Tampoco quiero ser grosero con nadie, pero bueh... en momentos de presion no todos la manejamos de la misma manera. Con la experiencia se aprende mas alla de saberse llevar, saberse 'manejar' sin que nadie te este metiendo un dedo...

No me parecio que haya sido prepotente y que no haya puesto esmero en resolverlo por si mismo, pero y si no pudo?, lo pensaste?. Es mas lo dejaste
en cola de espera o stand by. Quizás te molestó la 'chapa' de ingeniero pero bueno, los hay en todos lados, tampoco quiere decir que sepan programar!
Si tenias la solucion por que no se la diste ?.

Tambien va dirigido mi mensaje a los demas que hicieron mas de lo mismo.
Yo estoy hace pocos meses con Delphi, desarrollo cualquier cosa q se pueda desarrollar, con la base de datos que sea, pero tampoco soy Sr en todo, hay cosas que si los mataburros no te dan hay q recurrir a la web. Y si en lugar de respuestas concretas te generan dudas o incertidumbres, viejo te destruye el autoestima!!!

Bueno, tampoco reniego nada a nadie. Pero es la primera vez que veo una cosa así.


Saludos
Walter del pais de la 8 y 9 maravilla del mundo!

[[eduarcol]]

amigo waly2k1 mi intencion no es crear polemica, pero mucho se ha discutido en estos foros el hecho de esperar el codigo resuelto sin tener mucho que investigar, recuerda somos un grupo de programadores ayudandonos entre si , y no esperamos nada a cambio aparte de unas gracias, ya le pase por primera vez un codigo 100% funcional de hecho yo mismo lo tengo en dos aplicaciones, de donde saque este?? de una busqueda en el foro y lo adapte a mis necesidades.

No funciona?? el asunto no es el codigo si no la configuracion, no lo he querido ayudar??? pues ya le he dicho dos veces donde esta el problema y aun asi no ha buscado la solucion, que mas podria hacer yo???, configurarle el correo POP????, pues lamentalemente tambien tengo un problemita como el tuyo

Empezado por waly2k1

tener al gordo jefe encima y presionando es otra

segun tu comentario intuyo que no te han podido ayudar, si no lo han hecho pueden haber dos opciones planteaste mal tu pregunta o nadie sabe lo que preguntastes.

Por cierto la chapa de ingeniero no me molesta es que yo soy uno, pero si vamos a la definicion de ingeniero ???

como dices tu analizalo y veras la solucion, por cierto el ultimo mensaje que envio abraham no lo habia visto, pero insisto en mas de lo mismo

necesitas correo POP, estas utilizando http

[waly2k1]

eduarcol, no era mi intención crear ningun tipo de polémica. Tampoco soy partidario de brindar código resuelto sin que haya una mínima investigación. Que no me hayan podido ayudar no es mi caso, hasta ahora logré solucionar todas mis inquietudes gracias a la ayuda solidaria de gente de este foro que como tu están siempre brindando una mano amiga en situaciones adversas.

Mi comentario del jefe es acerca de las presiones laborales, cuando se está bajo presión, se formula quizás mal las preguntas o lo quiere todo para ayer y quizás hasta 'servido en bandeja'. Pero bueno te aclaro que lo mio fue sin ánimos de ofender a nadie.

Te mando un saludo y te pido disculpas si malinterpreté todo.
Walter

[abraham]

(Editado por contener improperios y nada más)