Ver Mensaje Individual
  #1  
Antiguo 29-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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.
Responder Con Cita