Emails mit Attachement unter IOS

[thomas1765]

Hallo,

ich möchte gerne auf dem IPHONE Emails mit Attachment und dem Standard Emailclient versenden,

Das heisst:
Ich cöchte den client mit vordefinierten Inhalt, Attachment aufrufen so dass der User nur noch den
Empfänger eintragen muss und dann die Email absebdeb kann.

Ohne Attachement funktioniet das:

Delphi-Quellcode:

procedure SendEmail(aEmail: string; aSubject: string = ''; aBody: string = '');
var lSharedApplication: UIApplication;
    lURL: string;
begin
  lURL := 'mailto:'+aEmail;
  if (aSubject<>'') or (aBody<>'') then
  begin
    lURL := lURL+'?subject='+aSubject;
    if aBody<>'' then
      lURL := lURL+'&body='+aSubject;
    lURL := StringReplace(lURL,' ','%20',[rfReplaceAll]); //replace spaces
    lURL := StringReplace(lURL,sLineBreak,'%0D%0A',[rfReplaceAll]);//replace linebreaks
  end;
  lSharedApplication := TUIApplication.Wrap(TUIApplication.OCClass.SharedApplication);
  lSharedApplication.openURL(StrToNSUrl(lURL));
end;

Aber wie hänge ich ein Attachment an?

Oder muss ich da einen ganz anderen Ansatz machen?

Gruß
Thomas