如何用Delphi Seattle实现Office365带HTML内容的邮件撰写？

刚碰到过类似的开发场景，来给你梳理下整个问题的解决思路和关键踩坑点：

问题回顾 #

你在Delphi 10.1 Seattle里要实现这么个功能：让终端用户撰写Office365邮件，提前填好收件人和HTML格式的内容，用户补完信息后点击发送。过程中踩了好几个典型的坑：

• 一开始用mailto命令行调用，虽然稳定可靠，但仅支持纯文本内容，完全满足不了HTML格式的需求；
• 换成老旧的TOutlookApplication组件通过OLE实现，弹窗倒是能正常渲染HTML内容，可发送按钮死活没反应，查了下才知道这组件从Windows XP时代之后就没更新过；
• 考虑过用Indy组件，但它根本没法弹出可视化的邮件撰写对话框，不符合用户需要手动补充内容的场景。

关键解决点：运行环境的一致性 #

后来你发现问题出在虚拟机和物理机的环境分离上！之前程序在虚拟机里跑，但Outlook客户端装在物理桌面系统里，把程序移到桌面端运行后，功能直接恢复正常，甚至收到了之前没发出去的测试邮件——这其实是OLE调用的特性决定的，跨系统的OLE调用很容易出现权限或通信问题，必须保证程序和Outlook在同一个系统环境里运行。

使用TOutlookApplication的注意事项 #

虽然这组件比较老旧，但只要环境适配，还是能正常工作的，给你几个实用的小提示：

• 确保程序运行的用户权限和Outlook当前登录的账号权限一致，不然OLE调用容易因为权限不足卡壳；
• 设置邮件内容时，一定要用HTMLBody属性，别用Body（那是纯文本专属的），给你个简单的代码片段参考：

var
  OutlookApp: TOutlookApplication;
  MailItem: OleVariant;
begin
  OutlookApp := TOutlookApplication.Create(nil);
  try
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.To := 'target@example.com'; // 预填收件人
    // 设置HTML格式的预填内容
    MailItem.HTMLBody := '<h3>您好</h3><p>这是预填的HTML邮件内容，请补充后发送</p>';
    MailItem.Display(True); // 弹出模态撰写窗口
  finally
    OutlookApp.Free;
  end;
end;

• 如果再碰到发送无响应的情况，可以去Outlook的信任中心排查，是不是阻止了外部程序的OLE调用，必要时把你的程序路径加进信任列表里。

备选方案：Microsoft Graph API #

要是觉得老组件不靠谱，也可以考虑用Microsoft Graph API配合自定义的邮件撰写对话框：

• 先通过OAuth2认证获取Office365的邮件权限，把预填的收件人和HTML内容放到自己开发的对话框里让用户编辑；
• 用户完成编辑后，调用Graph API直接发送邮件。不过这个方案需要处理认证流程，开发工作量会大一点，但胜在不受本地Outlook版本限制，适配性更强。

内容的提问来源于stack exchange，提问作者Debbie