I have the following code in a program and it has worked for years, first
with Outlook Express and for the last two years with GMail being my email
program. While the Body has never been inserted into the new email, the
recpient and subject have. Recently, however, a new Gmail screen opens
but
finishes with a blank page with none of the usual email input areas. I
assume this something that the GMail folks have changed - if I right-click
on a mailto: link in a GMail message and select the "Open Link in a
Foreground Tab" the same behavior occurs.
If anyone has some insight into resolving this please let me know.
********************************
function SimpleMailMessage(Recipient, Subject, Body: string): HINST; var
Cmd: string;
begin
Cmd := Format('mailto:%s?subject=%s&body=%s', [Recipient, Subject,
Body]);
Result := ShellExecute(HInstance, 'open', PChar(Cmd), nil, nil,
SW_SHOWNORMAL);
end;
*********************************
Regards,
Mark Warren
mark.warren@[EMAIL PROTECTED]
|
