[iOS] Mail versenden

[Devil1925]

Hallo,
ich bräuchte mal eine Gedankenstütze... Ich möchte aus meiner iOS Anwendung heraus den Standardmailclient öffnen, und hier eine neue Mail auf machen, in welcher bereits eine E-Mailadresse eingetragen ist. Jetzt habe ich mehrere Lösungen gesehen, bei welchen das ganze wie beim Webseitenaufruf gelöst wurde, allerdings dann statt mit einem 'http://' mit einem 'mailto:'.

Delphi-Quellcode:

procedure SendMail(Mail:String);
var NSU:NSUrl;
    MyURL:String;
Begin
  if TRIM(Mail) <> '' then
  Begin
    MyURL := 'mailto:' + TRIM(Mail);
    NSU := StrToNSUrl(TIdURI.URLEncode(myURL));
    if SharedApplication.canOpenURL(NSU) then
    Begin
      SharedApplication.openURL(NSU);
    End;
  End;
End;

Für den Webseitenaufruf funktioniert das auch wunderbar (dann halt mit 'http://' statt 'mailto:'), allerdings erhalte ich bei der Übergabe einer Mail immer den Fehler "Protokollfeld ist leer". Soweit ich herausgefunden habe, erscheint dieser Fehler, wenn eine ungültige URL übergeben wird. Allerdings ist die URL 'mailto:[e-mail]' doch korrekt oder? (oder auch eine existierende Mail adresse)

wo habe ich jetzt meinen Knoten im Hirn? hat da jemand gerade mal so eine idee? Ich bin vermutlich einfach nur blind

[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;

[RWarnecke]

Der Link wäre noch eine alternative und bietet laut der Beschreibung auch noch mehr Optionen.

[AndyDF]

Ich verwende dafür die Komponenten von JVESoft. Bin damit recht zufrieden und es wird noch vieles mehr geboten.

Link: http://www.jvesoft.com/wp/

[Devil1925]

@DeddyH

ich habe deinen Code mal einfach ausprobiert, und bekomme die Fehlermeldung auch bei diesem Code an der Stelle s := TIdURI.URLEncode(s); Protokollfeld ist leer

Kannst du mir erklären was "AnsiStartsText" tut? Das kenne ich nicht und die IDE auch nicht.

@AndyDF eine Neue Komponetne kommt vorerst nicht infrage, wäre halt schön wenn das mit bordeigenen Mitteln funktionieren würde.

[DeddyH]

AnsiStartsText, Du musst dazu StrUtils einbinden, hatte ich vergessen zu erwähnen.