能否通过MAPI禁用TNEF？Delphi发邮件遇WinMail.dat问题求助

嗨，这个问题我之前帮朋友排查过好几次，确实是Outlook/Exchange的TNEF（传输中性封装格式）在搞鬼——当邮件被封装成TNEF发送时，非微软邮件客户端解析不了这种格式，就会把它当成WinMail.dat附件丢给用户。好在咱们完全可以通过MAPI的属性设置，直接告诉邮件软件“别用TNEF！”，下面给你具体的Delphi实现方案：

核心思路：禁用TNEF相关属性 #

要解决这个问题，关键是设置两个MAPI属性，双管齐下避免TNEF触发：

• PR_SEND_RICH_INFO：告诉Outlook不要发送RTF格式的富文本信息，从根源上减少TNEF封装的可能
• PR_TNEF_DISABLED：直接禁用TNEF封装逻辑，给非微软客户端彻底“排雷”

同时建议把邮件正文格式设为纯文本或HTML，不要用RTF，进一步降低风险。

Delphi代码实现 #

第一步：定义需要的MAPI常量（如果Delphi自带单元没包含的话） #

先在代码里补充这些常量定义：

const
  // 正文格式属性
  PR_BODY_FORMAT = $001A0003;
  BODY_FORMAT_PLAIN = 0;    // 纯文本格式
  BODY_FORMAT_HTML = 2;     // HTML格式
  // 禁用富文本发送
  PR_SEND_RICH_INFO = $001B000B;
  // 直接禁用TNEF封装
  PR_TNEF_DISABLED = $00FF000B;

第二步：在构建MAPI邮件时设置属性 #

如果是使用简单MAPI（MapiSendMail），可以直接给TMapiMessage的属性数组赋值：

var
  MapiMsg: TMapiMessage;
  PropVals: array[0..2] of TMapiPropValue;
begin
  // 初始化邮件结构
  ZeroMemory(@MapiMsg, SizeOf(TMapiMessage));
  
  // --- 这里填充邮件的常规信息：收件人、主题、正文等 ---
  // MapiMsg.lpszSubject := '你的邮件主题';
  // MapiMsg.lpszNoteText := '纯文本正文内容';
  // ... 其他收件人、附件等设置

  // 1. 设置正文格式为纯文本（或HTML）
  PropVals[0].ulPropTag := PR_BODY_FORMAT;
  PropVals[0].Value.l := BODY_FORMAT_PLAIN; // 换成BODY_FORMAT_HTML如果用HTML邮件

  // 2. 禁用发送富文本信息
  PropVals[1].ulPropTag := PR_SEND_RICH_INFO;
  PropVals[1].Value.b := False;

  // 3. 直接禁用TNEF封装
  PropVals[2].ulPropTag := PR_TNEF_DISABLED;
  PropVals[2].Value.b := True;

  // 将属性附加到邮件上
  MapiMsg.lpProps := @PropVals;
  MapiMsg.cProps := Length(PropVals);

  // 发送邮件
  // MapiSendMail(0, Application.Handle, MapiMsg, MAPI_LOGON_UI or MAPI_DIALOG, 0);
end;

如果你用的是Extended MAPI #

如果项目用的是更复杂的Extended MAPI（比如使用MAPISetProps），可以这样设置属性：

var
  hMsg: THandle; // 已创建的邮件句柄
  PropVal: TMapiPropValue;
begin
  // 设置PR_SEND_RICH_INFO
  PropVal.ulPropTag := PR_SEND_RICH_INFO;
  PropVal.Value.b := False;
  MAPISetProps(hMsg, 1, @PropVal, nil);

  // 设置PR_TNEF_DISABLED
  PropVal.ulPropTag := PR_TNEF_DISABLED;
  PropVal.Value.b := True;
  MAPISetProps(hMsg, 1, @PropVal, nil);

  // 后续保存或发送邮件的逻辑
end;

额外注意事项 #

• 避免使用RTF正文：如果正文是RTF格式，即使设置了上面的属性，Outlook可能还是会触发TNEF，所以尽量用纯文本或HTML。
• 跨客户端测试：建议用Gmail、Thunderbird等非微软客户端接收测试，确认WinMail.dat不再出现。

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