iOS Firemonkey：如何通过Firemonkey Delphi XE7中的邮件应用程序从iOS应用程序发送电子邮件

Question

我正在使用Delphi XE7在Firemonkey中使用iOS App。

问题：我需要通过Firemonkey中的邮件应用程序从iOS应用程序发送电子邮件。

我见过其他老博客发送电子邮件，但是这些解决方案对我没有帮助。

以下是我尝试过的旧链接，但无法解决。

http://blogs.embarcadero.com/ao/2011/10/04/39133

http://blogs.embarcadero.com/matthiaseissing/2013/05/03/38707/

请让我知道其他解决方案或示例。

提前致谢。

Answer 1

使用您包含的第二个链接中的代码： http : //blogs.embarcadero.com/matthiaseissing/2013/05/03/38707/

它适用于XE4，您只需要进行一些更改即可使其适用于XE7：

StrToNSUrl函数已移至Macapi.Helpers中的Macapi.Helpers单元，因此必须将其添加到uses子句中。 另外，不建议使用NSStr函数，因此您应该改用StrToNSStr （同样来自Macapi.Helpers）。

这是一个将所有功能放在一起的功能：

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;

这样称呼它：

SendEmail('name@email.nowhere','My subject','My body');

Answer 2

使用DPF Delphi iOS本机组件中包含的TDPFMailCompose类

这给您提供了比mailto：链接更多的选择，而您不必担心编码。 内部使用iOS MFMailComposeViewController类。

例：

var
  Mail: TDPFMailCompose;
begin
  Mail := TDPFMailCompose.Create(nil);
  if not Mail.MailCompose(Msg.Subject, Msg.Body, False, [Msg.To_], [Msg.CC], [Msg.BCC], [AttachedFileName]) then
     MessageDlg('Error sending mail', TMsgDlgType.mtError, [TMsgDlgBtn.mbClose], -1);
end;