将传入的电子邮件转换为在hMailServer中不起作用"txt/plain"脚本

Question

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

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

error_hmailserver.log 中只能找到错误"error"14960"2015-03-20 19:13:23.673"脚本错误：源：Microsoft VBScript"

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

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对象模型，在服务器上不存在。