Enviar un email. Método rápido
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:
Código Delphi [-]
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.
|