1

在我们的网络应用程序中，我们的客户用于附加 .msg（outlook 电子邮件）作为参考。

我想做的是在 .aspx 页面中显示 .msg 文件的 html 正文

下面的代码在 VS 2010 IDE 上运行良好，但是当我在同一台机器上部署时，出现以下错误，

请帮我

   Public Shared Function GetMessageHTML(ByVal MsgPath As String) As String

    Dim app As Microsoft.Office.Interop.Outlook.Application = Nothing
    Dim session As Microsoft.Office.Interop.Outlook.NameSpace = Nothing
    Dim mail As Microsoft.Office.Interop.Outlook.MailItem = Nothing
    Dim HtmlBody As String = String.Empty
    Dim NewHTMLBody As String = String.Empty

    Try
        app = New Microsoft.Office.Interop.Outlook.Application()
        session = app.Session
        mail = DirectCast(session.OpenSharedItem(MsgPath.Trim()), Microsoft.Office.Interop.Outlook.MailItem)
        HtmlBody = mail.HTMLBody

        TryCast(mail, Microsoft.Office.Interop.Outlook._MailItem).Close(Microsoft.Office.Interop.Outlook.OlInspectorClose.olDiscard)

        TryCast(app, Microsoft.Office.Interop.Outlook._Application).Quit()
        Try
            My.Computer.FileSystem.WriteAllText(HtmlFName, NewHTMLBody, False)
        Catch ex As Exception
            Return "File Write Exception " & ex.Message
        End Try

    Catch ex As System.Exception
        Return "Read Exception " & ex.Message
    Finally
        If mail IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.FinalReleaseComObject(mail)
        End If
        If session IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.FinalReleaseComObject(session)
        End If
        If app IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.FinalReleaseComObject(app)
        End If
    End Try

    Return HtmlFName
End Function

上面的代码读取 .msg 文件并将 html 正文内容保存到新的 .html 文件中，然后我在 IFrame 中显示新的 html。

我正在使用带有 VS 2010 的 Windows 7，它在开发环境中运行良好，但是当我在本地主机（同一台机器）上发布时，我遇到了错误

错误

谁能指导我如何解决这个问题？我已将物理文件夹的完全权限授予用户 IIS_IUSRS

4

0 回答 0