Ejecutar cliente de correo pasandole la direccion del destinatario

[Durbed]

Queria saber como se puede ejecutar el cliente de correo de windows desde una aplicacion delphi y que te ponga directamente en la pantalla de componer el e-mail y que la direccion del destinatario la ponga el.

Al estilo del mailto de html.

Gracias.

[Neftali [Germán.Estévez]]

...Queria saber como se puede ejecutar el cliente de correo de windows desde una aplicacion delphi y que te ponga directamente en la pantalla de componer el e-mail y que la direccion del destinatario la ponga el.
Prueba con éste código, no te puedo asegurar que funcione en todos los clientes; Un form con un Botón (recuerda añadir ShellAPI al usues) y en OnClick del botón pones lo siguiente:


procedure TForm1.Button1Click(Sender: TObject);

// Función para enviar mail
function SendEMail(Recipient, Subject, Body: string): HINST;
var
MailMsg: string;
begin
// Comando
MailMsg := Format('mailto:%s?subject=%s&body=%s',
[Recipient, Subject, Body]);
// Ejecutar
Result := ShellExecute(Application.Handle,
'open',
PChar(MailMsg),
nil, nil,
SW_SHOWNORMAL);
end;
var
R,S,B:String;
begin
// Configurar
R := 'alguien@hotmail.com';
S := 'Lo que me pediste...';
B := 'Cuerpo del mensaje';
// Bloque de proteccion
try
SendEMail(r, s, b);
except;
// Captura de errores del envio
end;
end;