RDO.Session是否有其他替代方法-Outlook Redemption dll

Question

我在vb网络中创建了一个微型程序，该程序可以在不同的复选框中手动输入一些信息，然后使用此输入信息，该程序可以编辑.msg Outlook模板。问题是我有错误“无法创建ActiveX组件”。在“创建对象（” Redemption.RDOSession“）中。（请查看屏幕快照以获取更多详细信息）。Cannot create ActiveX component

请告诉我您是否有解决此问题的想法？或者如果您有其他替代方法。

我使用的dll是：

导入Outlook = Microsoft.Office.Interop.Outlook

进口换领

导入系统

导入System.IO

导入System.Text

导入MailMessage = Aspose.Network.Mail.MailMessage

导入响应

导入系统。全球化

互操作兑换

Microsoft Outlook 16.0对象库

Microsoft HTML对象库

InteropExtension 1.0类型库

OLE自动化

OutlookAddinLib

兑换Outlook和MAPI COM库

---

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

'EDIT .MSG文件

'Dim OpenPath作为字符串= 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()

Answer 1

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