Firemonkey XE8: E-Mail mit HTML body senden

[Loko789]

Hallo,

Ich stehe vor volgendem Problem.
Habe ein HTML Dokument und dieses möchte ich als body senden. Wie bei Outlook, dort gibt es die Funktion einfügen->als Text einfügen.
Git es sowas? Mir ist sehr wichtig das es platform unabhähing ist. Ich nutze zurzeit volgendes um die E-Mail zu versenden:

Delphi-Quellcode:

unit OpenHelp;

interface

  type
    TopenHelp = class
      function OpenURL(const URL: string): Boolean;

    end;

implementation

  uses
    IdURI, SysUtils, Classes, FMX.Dialogs,
{$IFDEF ANDROID}
    Androidapi.Helpers,
    FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText,
    Androidapi.JNI.Net, Androidapi.JNI.JavaTypes;
{$ENDIF ANDROID}
{$IFDEF MSWINDOWS}
  shellapi;
{$ENDIF MSWINDOWS}

  function TopenHelp.OpenURL(const URL: string; const DisplayError: Boolean = False): Boolean;

{$IFDEF ANDROID}
    var
      Intent: JIntent;
    begin
      Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, TJnet_Uri.JavaClass.parse(StringToJString(URL)));
      try
        SharedActivity.startActivity(Intent);
        exit(true);
      except
        on e: Exception do
        begin
          if DisplayError then
            ShowMessage('Error: ' + e.Message);
          exit(False);
        end;
      end;

{$ENDIF ANDROID}
{$IFDEF MSWINDOWS}
      begin
        ShellExecute(0, 'open', PChar(URL), nil, nil, 0);

      end;
{$ENDIF MSWINDOWS}


end.
--------------------------------
procedure TForm_Produktberater.Button3Click(Sender: TObject);
   var
   open:TopenHelp;
   begin
        open:=TopenHelp.Create;
        open.OpenURL('mailto:[e-mail]')
        open.free;

    end;

Ist dieser ansatz der richtige?

Gruß
Loko