mundodelphi

enviar un email delphi, send email with delphi, enviar email con el programa por defecto, send email with default program

Con la función SendEmailByDefault podemos crear un email y enviarlo con el programa definido por el sistema, su declaración es la siguiente

Function SendEmailByDefault(Para:string=’user@host.com’;Titulo:string=’Te envio este email’;Contenido:string=’Ese es el contenido’):Boolean;

Los parametros que tenemos que pasar son
Para: Dirección email que queremos enviar el email
Titulo: Titulo del mensaje
Contenido: Cuerpo del mensaje que puede ser texto llano o bien HTML enrrequecido

Código de la función SendEmailbyDefault

uses ..., ShellApi;
...
Function SendEmailByDefault(Para:string='user@host.com';Titulo:string='Te envio este email';Contenido:string='Ese es el contenido'):Boolean;
var
Parametros:string;
begin
Result:=true;
try
Parametros := 'mailto:' + Para + '?subject=' + Titulo + '&Body=' + Contenido;
ShellExecute(Form1.Handle, 'open', PChar(Parametros), nil, nil, SW_SHOWNORMAL);
except
Result:=true;
end;
end;

Recueda en declarar en uses la libreria ShellApi para poder utilizar funciones de la Win32Api de windows

Su uso

procedure TForm1.Button2Click(Sender: TObject);
begin
SendEmailByDefault('usuario@usuario.com','Buenas tardes','Para mas informacion llamame');
end;

en mi caso tengo configurado el Thunderbird como programa de correo por defecto, me pide la clave de mi correo y lo envia