时间戳

首页 > 解决方案 > 是否有任何替代 RDO​​.Session - Outlook Redemption dll

outlook - 是否有任何替代 RDO​​.Session - Outlook Redemption dll

问题描述

我在 vb net 中创建了一个小程序，它能够在不同的复选框中手动输入一些信息，然后使用这些输入信息，程序编辑一个 .msg Outlook 模板。问题是我有错误“无法创建 ActiveX 组件”。在“创建对象（“Redemption.RDOSession”）中。（有关详细信息，请参阅屏幕截图）。无法创建 ActiveX 组件

如果您对如何解决此问题有任何想法，请告诉我？或者，如果您有替代方法。

我使用的dll是：

导入 Outlook = Microsoft.Office.Interop.Outlook

进口兑换

进口系统

导入系统.IO

导入 System.Text

导入 MailMessage = Aspose.Network.Mail.MailMessage

进口回应

进口系统.全球化

互操作赎回

Microsoft Outlook 16.0 对象库

Microsoft HTML 对象库

InteropExtension 1.0 类型库

OLE 自动化

OutlookAddinLib

Redemption Outlook 和 MAPI COM 库

以下是我们遇到问题的一些代码：

'编辑 .MSG 文件

'Dim OpenPath As String = TextBox5.Text & TextBox1.Text & "\" & EmailUpdate_Renamed

    'Dim Sess As RDOSession
    'Dim myMsg As RDOMail

    Dim mySubject As String
    Dim myToo As String
    Dim myCC As String
    Dim Sess As Object
    Sess = CreateObject("Redemption.RDOSession")
    'Sess.MAPIOBJECT = Application.ProductName

    Dim myMsg As Object = Sess.GetMessageFromMsgFile(OpenPath)

    'myMsg = Sess.GetMessageFromMsgFile(OpenPath)
    'myMsg.Display()

    'EDIT SUBJECT
    mySubject = myMsg.Subject
    myMsg.Subject = Replace(mySubject, "Number", TextBox7.Text)
    mySubject = myMsg.Subject
    myMsg.Subject = Replace(mySubject, "Direction", ComboBox1.SelectedItem)
    mySubject = myMsg.Subject
    myMsg.Subject = Replace(mySubject, "Name", TextBox1.Text)

    'EDIT TO
    myToo = myMsg.To
    myMsg.To = TextBox9.Text

    'EDIT CC
    myCC = myMsg.CC
    myMsg.CC += ";" & TextBox10.Text

    'SAVE
    myMsg.Save()

标签： outlookoutlook-redemption

解决方案

如果您使用的是 Redemption，则实际上需要安装它。将具有适当位数的 dll（32 位的 redemption.dll 和 64 位的 redemption64.dll）复制到任何文件夹并使用 regsvr32.exe 安装（使用时不需要管理员权限）。

还要确保您的应用程序的位数与 Outlook/MAPI 系统的位数相匹配 - 请参阅http://www.dimastr.com/redemption/faq.htm#ErrorCreatingRedemptionObject

推荐阅读