Question

当我尝试在VBScript中添加MHTML文件作为电子邮件的附件时，ContentMediaType被错误地设置为"message/rfc822"（RFC 822）。根据我的理解，根据微软的说法，这是正确的，但根据RFC 2557指出它应该是"multipart/related"是不正确的。这是一个问题，因为大多数（如果不是全部）邮件客户端将"message/rfc822"解释为电子邮件。由于文件扩展名".mht"和".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"（字符串）以Attachment或".mht"结尾（不区分大小写），我需要".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的附件。

我已经考虑过按these instructions手动添加附件，但是当我调用Message.Attachments.Item(1).Fields.Update时，对象变得未定义。我认为设置附件ContentMediaType，隐式调用它的Fields Update方法，这是我认为应对这种意外行为负责的方法。

如何解决此问题并发送包含"multipart/related"内容类型的MHTML文件，同时保持正确的文件扩展名？

Answer 1

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

首先，值得注意的是，您对问题根本原因的分析存在缺陷。您似乎对multipart/related MIME类型发挥作用感到困惑。事实上，RFC 2557并未声明对应于MHTML附件的正文部分必须具有content-type="multipart/related"。相反，MIME multipart / related是MHTML文件本身的内部结构。引用维基百科article：

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

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

Content-Type: multipart/related; ...

Microsoft声明MHTML文件应在KB937912中与content-type="message/rfc822"一起提供。当您通过AddAttachment方法附加此类文件时，这正是CDO默认执行的操作。我相信这种行为不会以任何方式与RFC 2557相抵触。根据RFC：

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

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

总结一下，您绝对不应将MHTML附件的内容类型设置为multipart/related。

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

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

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

1 个答案: