Enviar un email. Método rápido

[dec]

Puedes crear una etiqueta con fuente azul y subrallado en el cuadro Acerca de con tu dirección de e-mail, luego en el evento click escribir el siguiente código:


ShellExecute(Handle,'open','mailto:tudireccion@email.es',nil, nil,SW_SHOW);


En la clausula USES, debes añadir: ShellAPI

Para darle más apariencia a "pagina web" puedes poner la propiedad Cursor de la etiqueta que contiene la dirección de e-mail al valor crHandPoint de esta forma aparecerá una "manita" al situarte encima de la dirección y al hacer clic en ella se abrirá tu lector de correo predeterminado.

Hay otra docena de formas de enviar un email, incluso con ficheros adjuntos, poco a poco los incluiremos todos en este mismo espacio.

[Nomad]

Esta tuanis y la verdad si funciona. Pero no se puede definir la direccion de correo en tiempo de ejecucion.

[dec]

Hombre, siempre puedes utilizar una variable, ¿no?

[Nomad]

No, si uno le pone una variable string, por ejemplo, le dice que es incompatible.