如何从Cocoa发送HTML电子邮件？

我也对此感兴趣,所以两天逆向工程Safaris的“本页的邮件内容”功能,我得到了它的工作.

更新：我改进了代码并将其放在GitHub上

- (void)mailWebArchive:(WebArchive *)webArchive title:(NSString *)atitle URL:(NSString *)aURL {
NSString *bundlEID = @"com.apple.mail";
NSData* targetBundlEID = [bundlEID dataUsingEncoding:NSUTF8StringEncoding];
NSAppleEventDescriptor *targetDescriptor = nil;
NSAppleEventDescriptor *appleEvent = nil;

targetDescriptor = [NSAppleEventDescriptor descriptorWithDescriptorType:typeApplicationBundlEID
                                                                   data:targetBundlEID];
appleEvent = [NSAppleEventDescriptor appleEventWithEventClass:'mail'
                                                      eventID:'mlpg'
                                             targetDescriptor:targetDescriptor
                                                     returnID:kAutoGenerateReturnID
                                                transactionID:kAnytransactionID];
[appleEvent setParamDescriptor:[NSAppleEventDescriptor descriptorWithDescriptorType:'tdta'
                                                                               data:[webArchive data]]
                    forKeyword:'----'];
[appleEvent setParamDescriptor:[NSAppleEventDescriptor descriptorWithString:atitle]
                    forKeyword:'urln'];
[appleEvent setParamDescriptor:[NSAppleEventDescriptor descriptorWithString:aURL]
                    forKeyword:'url '];


NSAppleEventDescriptor *replyDescriptor = nil;
NSAppleEventDescriptor *errorDescriptor = nil;
AEDesc reply = { typeNull,NULL };  

// Send the AppleEvent
OSStatus status = AESendmessage([appleEvent aeDesc],&reply,kAEWaitReply,kAEDefaultTimeout);
if(status == noErr)
{
    replyDescriptor = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&reply] autorelease];
    errorDescriptor = [replyDescriptor paramDescriptorForKeyword:keyErrornumber];
    if(errorDescriptor != nil)
        status = [errorDescriptor int32Value];

    if(status != noErr)
        NSLog(@"%s error %d",_cmd,status);
}
}

此代码不检查Mail是否正在运行,因此它仅在Mail已启动时才起作用.

这种方法的专业方面,它适用于实现MailLinkSupported和MailPageSupported的所有电子邮件客户端.见QA1722.

缺点是你不能像mailto一样设置收件人.为此,ScripTing Bridge似乎是唯一的解决方案.见修改后的SBSendEmail sample.