Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Enviar un email. Método rápido (https://www.clubdelphi.com/foros/showthread.php?t=80511)

dec 29-06-2006 23:03:44

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.

Nomad 28-12-2007 18:15:06

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

dec 28-12-2007 18:27:19

Hombre, siempre puedes utilizar una variable, ¿no?

Nomad 02-01-2008 15:53:40

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


La franja horaria es GMT +2. Ahora son las 04:24:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi