Email 用于修改电子邮件内容类型的VBScript

我已经为SharePoint 2010设置了传入电子邮件，并且正在使用该方法从InfoPath发送表单，并在SharePoint server计算机上设置了SMTP服务器。这似乎比使用InfoPath代码隐藏选项提升匿名用户的权限更容易。我还尝试了发送电子邮件的自定义方法，但无法找到使用InfoPath 2010代码隐藏选项随电子邮件一起发送表单数据的方法。所以，我找到了另一种方法，使用的建议，从的网站

我的问题是，虽然删除x-mailer头实际上解决了我关于整个电子邮件的问题，但它不允许将附加的表单数据发送到库中。如果我没有启用“保存原始电子邮件”设置，邮件将被导入，然后消失。检查drop文件夹中的邮件时，我发现它们的内容类型为“multipart/related”，如果我使用NotePad++编辑它们，我可以将其更改为“multipart/mixed”，然后根据需要导入附加的表单数据

所以我开始尝试修改VB脚本以实现这一点，但现在脚本根本没有发生任何变化。很明显，我用它做了一些错误的事情，VBScript真的不是我的专业领域。也许编辑这些字段是不可能的，或者我需要从另一个角度来攻击它。如何让我的VBScript编辑这些电子邮件的内容类型

代码：

---

我对此进行了更详细的研究，发现电子邮件的content type属性是使用此特定vbscript库的众多只读属性之一。因此，我必须找到其他方法来编辑文件，所涉及的工作比找到一个完全跳过电子邮件的替代解决方案所需的工作还要多。因此，我放弃了在这种情况下使用电子邮件的计划。如果您从中吸取了一些东西，那么就让它成为这个脚本中邮件对象的只读属性。

也许一个解释否决票的注释会更好？

    Set shell = CreateObject("WScript.Shell")
    shell.LogEvent 4, "starting mail filter"
    if instr(iMsg.Fields("urn:schemas:mailheader:content-type"), "related") > 1 then
        Dim logMsg = "Mail Type:  " & iMsg.Fields("urn:schemas:mailheader:content-type")
        Dim tempType = Replace(iMsg.Fields("urn:schemas:mailheader:content-type"), "related", "mixed")
        shell.LogEvent 4, iMsg.Fields("urn:schemas:mailheader:content-type")
        iMsg.Fields.Delete("urn:schemas:mailheader:content-type")
        iMsg.Fields.Item("urn:schemas:mailheader:content-type") = tempType
        iMsg.Fields.Update
        shell.LogEvent 4, iMsg.Fields("urn:schemas:mailheader:content-type")
    end if
    shell.LogEvent 4, "end mail filter"
    iMsg.DataSource.Save
    EventStatus = 0