This also works with Lotus Notes...
var
newstring: String;
mailstring: String;
i: Integer;
begin
mailstring := 'MailTo:[EMAIL PROTECTED]&body=this is my
mail string';
NewString:= StringReplace(mailstring, ' ', '%20', [rfReplaceAll]);
Mailstring := NewString;
ShellExecute(Application.Handle, nil,pchar(Mailstring),nil,nil,
SW_SHOWNOACTIVATE);
You should also note that BODY is not officially supported in the mailto
command so depending on default email clients, usage may vary.
JED
[EMAIL PROTECTED] wrote on 04/08/2003 11:36:45 AM:
> This does it:
> NewString:='';
> For i:=1 to length(mailstring) do
> if mailstring[i]=' ' then NewString:=NewString+'%20' else
> NewString:=Newstring+Mailstring[i];
> //use the old bugger
> Mailstring:=NewString;
> ShellExecute(Application.Handle, nil,pchar(Mailstring),nil,nil,
> SW_SHOWNOACTIVATE);
>
>
---------------------------------------------------------------------------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the [EMAIL PROTECTED]
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
