将收到的电子邮件转换为＆＃34; txt / plain＆＃34;脚本在hMailServer中不起作用

Question

我需要将所有收到的电子邮件转换为“纯文本”格式。

我在Outlook 2010中测试了以下代码，它没有任何问题。所有HTML格式的电子邮件都已成功转换为text / plain。但是，它在hMailServer脚本中不起作用。

只有错误“”ERROR“14960”2015-03-20 19：13：23.673“”脚本错误：源：Microsoft VBScript“可以在ERROR_hmailserver.log中找到

是否有人可以帮助检查导致此错误的原因以及如何解决？非常感谢你！

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim arrEID As Variant, varEID As Variant, olkItm As Object
    arrEID = Split(EntryIDCollection, ",")
    For Each varEID In arrEID
        Set olkItm = Session.GetItemFromID(varEID)
        If olkItm.Class = olMail Then

                olkItm.BodyFormat = olFormatPlain
                olkItm.Save

        End If
    Next
    Set olkItm = Nothing
End Sub

Answer 1

Application类的NewMailEx事件（与任何其他属性一样）来自Outlook对象模型，并且不存在于服务器上。