Cita:
Empezado por 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.
|
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:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
function SendEMail(Recipient, Subject, Body: string): HINST;
var
MailMsg: string;
begin
MailMsg := Format('mailto:%s?subject=%s&body=%s',
[Recipient, Subject, Body]);
Result := ShellExecute(Application.Handle,
'open',
PChar(MailMsg),
nil, nil,
SW_SHOWNORMAL);
end;
var
R,S,B:String;
begin
R := 'alguien@hotmail.com';
S := 'Lo que me pediste...';
B := 'Cuerpo del mensaje';
try
SendEMail(r, s, b);
except;
end;
end;