如何在Windows/Mac上從FireMonkey啓動電子郵件客戶端？

Question

是否有跨平臺的方式從FireMonkey啓動電子郵件客戶端，以便它可以在Windows和OS/X上運行。在windows下我可以做到以下幾點：

ShellExecute(0, 'OPEN', 'mailto:somebody@somewhere.com', '', '', SW_ShowDefault); 

是否有一個跨平臺相當於推出一個電子郵件客戶端（最好帶附件，收件人，主題，正文等）？

Answer 1

據我所知，沒有跨平臺的方式發送郵件，但使用windows的ShellExecute函數和NSWorkspace.openURL的OSX，你可以編寫你自己的實現。

試試這個OSX實現。

uses 
    Macapi.Foundation, 
    Macapi.AppKit, 
    System.SysUtils; 

Procedure SendMail(const Mailto,Subject, Body:string); 
var 
    URL : NSURL; 
    AWorkspace : NSWorkspace; 
    encodedSubject, 
    encodedTo, 
    encodedBody : NSString; 
begin 
    //NSString *encodedSubject = [NSString stringWithFormat:@"SUBJECT=%@", [subject stringByAddingPercentEscapesUsingEncoding:NSUTF8StringEncoding]]; 
    encodedSubject :=NSSTR(Format('SUBJECT=',[Subject])).stringByAddingPercentEscapesUsingEncoding(NSUTF8StringEncoding); 
    //NSString *encodedBody = [NSString stringWithFormat:@"BODY=%@", [body stringByAddingPercentEscapesUsingEncoding:NSUTF8StringEncoding]]; 
    encodedBody :=NSSTR(Format('BODY=',[Body])).stringByAddingPercentEscapesUsingEncoding(NSUTF8StringEncoding); 
    //NSString *encodedTo = [to stringByAddingPercentEscapesUsingEncoding:NSUTF8StringEncoding]; 
    encodedTo  :=NSSTR(Mailto).stringByAddingPercentEscapesUsingEncoding(NSUTF8StringEncoding); 
    //NSString *encodedURLString = [NSString stringWithFormat:@"mailto:%@?%@&%@", encodedTo, encodedSubject, encodedBody]; 
    //NSURL *mailtoURL = [NSURL URLWithString:encodedURLString]; 
    // [[NSWorkspace sharedWorkspace] openURL:mailtoURL]; 
    URL := TNSURL.Create; 
    URL.initWithString(NSSTR(Format('mailto:%s?%s&%s',[ encodedTo.UTF8String, encodedSubject.UTF8String, encodedBody.UTF8String]))); 
    AWorkspace := TNSWorkspace.Create; 
    AWorkspace.openURL(URL); 
end;