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);
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;
Al,
You might like to have had a look at the Delphi help for StringReplace.
;-)
We were incorrect in the syntax of our initial suggestion (I'm not using
Delphi regularly at the mo).
If you check the help, the first parameter to StringReplace is a
constant parameter. Therefore yes, our initial
Message-
From: Alistair George [EMAIL PROTECTED]
To: Multiple recipients of list delphi [EMAIL PROTECTED]
Date: Mon, 4 Aug 2003 13:36:45 +1200
Subject: [DUG]: OK, the boys are on the beers
This does it:
NewString:='';
For i:=1 to length(mailstring) do
if mailstring[i