修改 CDO.Message 对象中附件的内容类型

当我尝试使用 VBScript 将 MHTML 文件作为电子邮件附件添加到电子邮件中时，ContentMediaType被错误地设置为"message/rfc822" (RFC 822）。据我了解，根据 Microsoft 的说法这是正确的，但根据RFC 2557其中指出应该是"multipart/related"。这是一个问题，因为大多数（如果不是全部）邮件客户端都会解释"message/rfc822"作为电子邮件消息。由于文件扩展名".mht" and ".mhtml"不匹配电子邮件的任何有效文件扩展名，邮件客户端会附加以下之一".msg", ".eml"等到文件名。当用户打开附件时，它会作为电子邮件打开，并且无法正确显示，因为 MHTML 文件和电子邮件的保存方式不同。

Sub SendEmail(FromAddress, ToAddress, Subject, Body, Attachment)
  Call Err.Clear
  On Error Resume Next

  Schema = "http://schemas.microsoft.com/cdo/configuration/"
  Set Configuration = Sys.OleObject("CDO.Configuration")
  Configuration.Fields.Item(Schema + "sendusing") = 2
  Configuration.Fields.Item(Schema + "smtpserver") = SMTPServer
  Configuration.Fields.Item(Schema + "smtpserverport") = 25
  Configuration.Fields.Item(Schema + "smtpauthenticate") = 1
  ' Configuration.Fields.Item(schema + "sendusername") = ""
  ' Configuration.Fields.Item(schema + "sendpassword") = ""
  Call Configuration.Fields.Update

  Set Message = Sys.OleObject("CDO.Message")
  Set Message.Configuration = Configuration
  Message.From = FromAddress
  Message.To = ToAddress
  Message.Subject = Subject
  Message.HTMLBody = Body
  If Not IsEmpty(Attachment) Then
    'CDO.Message.AddAttachment doesn't set the correct content media type for an MHTML file.
    Call Message.AddAttachment(Attachment)
  End If

  Call Message.Send
End Sub

当我运行这段代码时，Message.Attachments.Item(1).ContentMediaType被设定为"message/rfc822"。我需要它是"multipart/related" if Attachment（字符串）以以下结尾".mht" or ".mhtml"（不区分大小写）。我可以用下面的代码来做到这一点。

If Len(Attachment) >= 4 And InStr(Len(Attachment) - 3, Attachment, ".mht", vbTextCompare) Or Len(Attachment) >= 4 And InStr(Len(Attachment) - 5, Attachment, ".mhtml", vbTextCompare) Then
  Message.Attachments.Item(1).ContentMediaType = "multipart/related"
End If

由于某种未知的原因，这取消了附件的定义Message.Attachments.

我已经考虑过手动添加附件这些说明，但是当我打电话时Message.Attachments.Item(1).Fields.Update，该对象变得未定义。我想设置附件的ContentMediaType，隐式调用它的Fields's Update我认为这是造成这种意外行为的方法。

我怎样才能解决这个问题并发送带有以下内容的 MHTML 文件"multipart/related"内容类型，同时保持正确的文件扩展名？

因此，您的问题是，如果附件的内容类型设置为，至少某些电子邮件客户端会错误地保存 MHTML 附件content-type="message/rfc822".

首先，值得注意的是，你对问题根本原因的分析是有缺陷的。你似乎对哪里感到困惑multipart/relatedMIME 类型开始发挥作用。事实上，RFC 2557没有说明对应于 MHTML 附件的正文部分一定有content-type="multipart/related"。相反，MIME 多部分/相关是 MHTML 文件本身的内部结构。引用维基百科article:

MHTML 文件的内容使用 MIME 类型 multipart/lated 进行编码，就好像它是 HTML 电子邮件一样。

IE。如果您使用文本编辑器打开 MHTML 文件，您应该看到以下内容：

Content-Type: multipart/related; ...

微软声明 MHTML 文件应该与content-type="message/rfc822" in KB937912。这正是当您通过以下方式附加此类文件时 CDO 默认执行的操作：AddAttachment方法。我相信这种行为在任何方面都不违背 RFC 2557。根据 RFC：

有多种文档格式...指定 由根资源和许多不同的文件组成的文档 该根资源中的 URI 引用的辅助资源。 显然需要能够发送这样的多资源 电子邮件 [SMTP]、[RFC822] 消息中的文档。

本文档中定义的标准指定了如何聚合此类 MIME 格式的 [MIME1 到 MIME5] 消息中的多资源文档 正是为了这个目的。

回顾一下，您绝对不应该将 MHTML 附件的内容类型设置为multipart/related.

While message/rfc822似乎是the与 MHTML 文件一起使用的方式，它显然会触发您在问题中描述的问题。我用 Outlook 2010 和 OWA 2010 进行了测试，并且能够重现它。

各种电子邮件客户端用于 MHTML 附件的替代内容类型是application/octet-stream and application/x-mimearchive。这两个在我的测试中没有出现问题。