Depends what you want to do really Mark. If it is just put a mail in the
Mail message que, ready for next time delivery is expedited this does the
trick.
Example:
ExecuteFile('mailto:[EMAIL PROTECTED]?subject=Interested in CamSnap
Pro(c)' +
'&body=' + MyName + ' Please notify me if/when you have this software
ready', '', '', SW_SHOWNOACTIVATE);
function TCamForm.ExecuteFile(const FileName, Params, DefaultDir: string;
ShowCmd: Integer): THandle;
var
chFileName,
chParams,
chDir: array[0..150] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(chFileName, FileName),
StrPCopy(chParams, Params), StrPCopy(chDir, DefaultDir), ShowCmd);
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
