asked on

How to send a '&' in a Email subject via ShellExecute

How can I send a '&' in a Email subject via ShellExecute.
Now I'm using following code to send an Email with default Email-program (Outlook Express).

procedure TFRelatiegegevens.StuurEmailClick(Sender: TObject);
Var Buffer : String;
Ontvanger,Onderwerp,EmailTekst : String;
begin
Try
Ontvanger := IEmail.Text; {message recipients email address}
Onderwerp := 'E-mail van '+DM.TBedrijfsgegevens.FieldByName('Naam').AsString; {message subject}
Emailtekst:= 'Hallo '+DM.TRelaties.FieldByName('HeleNaam').AsString;
Buffer := 'mailto:'+Ontvanger+'?subject='+Onderwerp+'&body='+Emailtekst;
ShellExecute(Application.Handle,'open',PChar(Buffer),nil,nil,SW_Normal);
Except
end;
end;

DM.TBedrijfsgegevens.FieldByName('Naam').AsString contains a '&'.
The subject is displaying only the part before the '&'. Everything behind it is lost.

How can I solve this? -> preferrably not changing the '&' :-)

Thanks Stef.

SOLUTION

Wim ten Brink

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

ASKER CERTIFIED SOLUTION

pritaeas

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

pritaeas

Oops, forgot. You can also sent the whole text between double quotes. This will only work of course if your text doesn't contain them...

Stef Merlijn

ASKER

And the function is born.

Bedankt allebei. Punten worden verdeeld. Beiden 125.

Function OmzettenAmpersand(Const E : string) : String;
begin
Result := E;
Result := StringReplace(result, '&', '%26', [rfReplaceAll]);
end;

Wim ten Brink

why not just:
Result := StringReplace(E, '&', '%26', [rfReplaceAll]);

:-)

How to send a '&amp;' in a Email subject via ShellExecute

How to send a '&' in a Email subject via ShellExecute