[iOS] Mail versenden

[DeddyH]

Bei mir sieht das so aus (wir haben vermutlich dieselbe Originalquelle):

Delphi-Quellcode:

function OpenURL(const URL: string;
  const DisplayError: Boolean = False): Boolean;
var
  s: string;
  NSU: NSUrl;
begin
  s := URL;
  if not AnsiStartsText('mailto:', URL) then
    s := TIdURI.URLEncode(s);
  // iOS doesn't like spaces, so URL encode is important.
  NSU := StrToNSUrl(s);
  if SharedApplication.canOpenURL(NSU) then
    exit(SharedApplication.OpenURL(NSU))
  else
    begin
      if DisplayError then
        ShowMessage('Error: Opening "' + URL + '" not supported.');
      exit(False);
    end;
end;