enviar un email desde delphi a hotmail o gmail

[abraham]

hola amigos nuevamente,

realizo un software, me gustaria hacer monitoreo de procesos(sql, codigos, fechas)de ese software, el cual me enviara email a mi cuenta de correo ya sea hotmail o gmail,

necesito saber como puedeo realizar un cod, para hacer esto.

espero q mi inquietud les sirva como inspiracion.

[ContraVeneno]

No eres el primero en tener tal inspiración

Al final de esta página, encontrarás varios hilos donde se explica este problema. Y estoy seguro que la final de esas páginas encontrarás mas enlaces.

[[poliburro]]

Empezado por ContraVeneno

No eres el primero en tener tal inspiración

Al final de esta página, encontrarás varios hilos donde se explica este problema. Y estoy seguro que la final de esas páginas encontrarás mas enlaces.

Que no este hilo debería estar en internet?

[abraham]

ok. para la gente q le incomodo mi comentario.
la razon no es la idea de ´ una funcion para mandar codigo´.

mi objetivo es el sgte: monitoreo de codigo. tu entregas un producto y esperas q este bien, y que funcione bien en largos periodos, osea de los errores puedes aprender mucho. esto te

no es el tema es la razon.


tu puedes tener una herramienta, pero si no sabes como usarla, de nada te sirve.

ha y disculpen a los q les molesto, el tema.

[abraham]

ha compadre blue..

muchas gracias por el codigo. esto es lo que yo necesito, algo interno, q el usuario no se de cuenta ,. osea, sin utilizar outrus.. ni nada de esas cosas

compadre, me sale undefine o algo asi en :
y creo q las q le siguen tambien

username := nombre_usuario_cta_correo_saliente;

estas q son variables o propiedades

[ContraVeneno]

A caray
No veo a nadie a quien parezca le hay incomodado tu comentario. Si te refieres a mi, por la forma en que conteste, solo estaba tratando de señalar que ClubDelphi.Com tiene una opción de búsqueda para encontrar temas que ya hayan sido tratados anteriormente. Así no habría necesidad de abrir el mismo hilo 10 veces.

Al igual que en el otro hilo, mi intesión es hacer notar que la ayuda de delphi esta muy bien documentada, con explicaciones y ejemplos.

vamos, que cuando tengas una duda, lo primero que hay que hacer es buscar en la ayuda de delphi presionando F1, si eso no resuelve tu duda, puedes buscar aquí en el foro y si siguen sin encontrar, con toda confianza puedes abrir un tema nuevo, que como te podrás dar cuenta, siempre abrá alguien dispuesto a ayudarte.

respecto a tu pregunta, según veo, son variables.

De cualquier manera, revisa este enlace.

Saludos.

[[eduarcol]]

En primero a nadie le incomoda tu mensaje, lo que te quisieron aclarar es que el tema ya se ha tocado reiteredamente en los foros, con respecto al error que te sale es que debes cambiar nombre_usuario_cta_correo_saliente por el nombre del usuario por medio del cual enviaras el correo

Edito: Escribi al mismo tiempo que contraveneno, por cierto lee un poco la guia de estilo para que veas como te podemos ayudar un poco mas en tus preguntas

[[BlueSteel]]

Hola

desde delphi 7 hice lo sgte

puse el componente IdSMTP y el IdMessage que estan en la paleta Indy Clients e Indy Misc respectivamente

el codigo es el sgte

Código Delphi [-]
     With IdMessage Do
     Begin
          Body.Clear;
          Body.Add(vMensaje.Text);
          From.Text := direccion@dominio.com;
          Recipients.EMailAddresses := vPara.Text;
          Subject := vAsunto.Text;
          Priority := TidMessagePriority(mpHighest);
          TidAttachment.Create(IdMessage.MessageParts,Concat('ruta del archivo a adjuntar');
     End;
     With IdSMTP do
     Begin
          Username := nombre_usuario_cta_correo_saliente;
          Password := clase_cuenta;
          Host     := 'servidor smtp';
          Port     := 25;
          try
             Connect;
             Try
                Send(IdMessage);
             Finally
                Disconnect;
             End;
             ShowMessage('Se envio correo en forma correcta');
          Except
                On E: EIdProtocolReplyError Do
                   ShowMessage('E-Mail no se ha podido enviar');
                On E: EFOpenError Do
                   Begin
                        ShowMessage('E-Mail no se ha podido enviar' + #13 +
                                    'Fichero Adjunto desconocido o erróneo.');
                   end;
                On E: EIdSocketError Do
                   Begin
                        ShowMessage('E-Mail no se ha podido enviar'+ #13 +
                                    'Host desconocido o incorrecto.');
                   end
                Else
                   ShowMessage('Fallo en el envio de email');
          End;
         If Connected Then Disconnect;
     End;

espero que te sirva