Enviar mail IOS Firemonkey

[DamianG]

Hola estoy tratando de enviar un mail desde IOS con Firemonkey y no logro hacerlo. Uso la siguiente rutina:

{$IFDEF IOS}
  var NSU: NSUrl;
       lURLnew:string;
  begin

  lURLnew := url;

  if (xSubject<>'') or (xbody<>'') then
  begin


    lURLnew := lURLnew+'?subject='+xSubject;

    if xbody<>'' then
      lURLnew := lURLnew+'&body='+ xbody;

    lURLnew := StringReplace(lURLnew,' ','%20',[rfReplaceAll]); //replace spaces
    lURLnew := StringReplace(lURLnew,sLineBreak,'%0D%0A',[rfReplaceAll]);//replace linebreaks
  end;

  NSU := StrToNSUrl(TIdURI.URLEncode(lURLnew));
  if SharedApplication.canOpenURL(NSU) then
    exit(SharedApplication.openUrl(NSU))
  else
  begin
    if DisplayError then
      ShowMessage('Error: Opening "' + URL + '" not supported.');             
    exit(false);
  end;
  end;
{$ELSE}
  begin
    raise Exception.Create('Not supported!');
  end;
{$ENDIF IOS}

Pero al ejecutarlo me da el siguiente error:


"Protocol field is empty"


Tendran la forma de hacerlo correctamente?



Gracias

[dec]

Hola a todos,

Probablemente, no te ayude, pero, basándome en el mensaje de error,... ¿has comprobado que la URL en cuestión comienza por "mailto://" (sin las comillas)?