0

我正在尝试创建一个程序，该程序从 Outlook（2007 桌面版）收件箱中检索所有电子邮件并将它们放入 DataGridView。

代码：

Imports Outlook = Microsoft.Office.Interop.Outlook

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim dt As DataTable
    Try
        Dim app As Outlook.Application = New Outlook.Application()
        Dim ns As Outlook.[NameSpace] = app.GetNamespace("MAPI")
        Dim inbox As Outlook.MAPIFolder = ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        ns.SendAndReceive(True)
        dt = New DataTable("Inbox")
        dt.Columns.Add("Subject", GetType(String))
        dt.Columns.Add("Sender", GetType(String))
        dt.Columns.Add("Body", GetType(String))
        dt.Columns.Add("Date", GetType(String))
        DataGridView1.DataSource = dt
        For Each item As Object In inbox.Items
            If TypeOf item Is Outlook.MailItem Then
                Dim item1 As Outlook.MailItem = CType(item, Outlook.MailItem)
                dt.Rows.Add(New Object() {item1.Subject, item1.Sender, item1.HTMLBody, item1.SentOn.ToLongDateString() & "" + item1.SentOn.ToLongTimeString()})
            End If
        Next
        MessageBox.Show("done")
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Message", MessageBoxButtons.OK, MessageBoxIcon.[Error])
    End Try
End Sub
End Class

当我尝试构建项目时，出现以下错误：

System.Runtime.InteropServices.COMException (0x80040154)：检索具有 CLSID {0006F03A-0000-0000-C000-000000000046} 的组件的 COM 类工厂失败，原因是以下错误：80040154 未注册类（HRESULT 异常：0x80040154（REGDB_E_CLASSNOTREG） ))

更新

我已将编译器 CPU 更改为 x86 和 x64，这并不能解决错误。

目标平台

4

3 回答 3

0

您的应用程序的目标平台是什么？它是基于 x86 的应用程序吗？

问题（可能）COM 类（在 32 位 COM dll 中）已注册，但由于应用程序在 64 位模式下运行，它不会找到正确的注册（32 位和 64 位 COM 服务器已注册分别地）。

您还可能会发现如何解决未注册的 COM 异常类（HRESULT 中的异常：0x80040154 (REGDB_E_CLASSNOTREG)）？页面有帮助。

于 2017-12-04T20:08:58.197 回答
0

导致错误的问题是两个应用程序（VS2015 和 MS Office 2007）没有在相同的权限下运行。打开具有相同权限（管理员或用户）的两个应用程序，该应用程序将运行。谢谢您的帮助！

于 2017-12-05T09:58:37.043 回答
0

尝试此方法并向其发送参数，例如主题，正文，收件人地址，文件名...我确定这会起作用..

Private Sub SendfromOutlook(sSubject As String, sBody As String, sTo As String, sFilename As String)
    Dim oApp As Interop.Outlook._Application
    oApp = New Interop.Outlook.Application
    Dim oMsg As Interop.Outlook._MailItem

    Dim strS As String()
    strS = sTo.Split(",")
    For i As Integer = 0 To strS.Length - 1

        oMsg = oApp.CreateItem(Interop.Outlook.OlItemType.olMailItem)
        oMsg.Subject = sSubject
        oMsg.Body = sBody
        oMsg.To = strS(i)

        Dim str As String = sFilename

        If sFilename <> "" Then


            Dim sBodyLen As Integer = Int(sBody.Length)
            Dim oAttachs As Interop.Outlook.Attachments = oMsg.Attachments
            Dim oAttach As Interop.Outlook.Attachment
            oAttach = oAttachs.Add(str, , sBodyLen)

        End If

        oMsg.Send()

    Next
    MessageBox.Show("EMail Sent Successfully!", "Information", MessageBoxButtons.OK)
    ClearAll()
End Sub

在这里，我使用 To address with "," 来一次发送多封邮件..这就是为什么我只是拆分它并将这个函数用作循环函数（ Dim strS As String() 和 strS = sTo.Split(",") )

于 2017-12-05T12:51:45.047 回答