无法使用 CDOEX 和 Exchange 2000 完成该功能

Question

我正在尝试在 Exchange 2000 中使用 CDOEX 创建约会。代码片段来自 msdn，是 VB6。

当我到达这一行：“.DataSource.SaveToContainer iMbx.Calendar，Conn”时，我收到错误“无法完成该功能（800703eb）”

任何帮助将不胜感激！

Function CreateAppointment(StartTime As Date, _
                            EndTime As Date, _
                            Subject As String, _
                            Location As String, _
                            TextBody As String, _
                            iMbx As IMailbox) As Appointment

' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Exchange 2000 Library

    Dim iAppt       As New Appointment
    Dim Conn        As New ADODB.Connection
    Conn.Provider = "ExOLEDB.DataSource"

    'Set the appointment properties
    With iAppt
        .StartTime = StartTime
        .EndTime = EndTime
        .Subject = Subject
        .Location = Location
        .TextBody = TextBody
        'Save the appointment
        Conn.Open iMbx.BaseFolder
        .DataSource.SaveToContainer iMbx.Calendar, Conn
    End With

    Set CreateAppointment = iAppt
End Function

Answer 1

我已经找到了问题和解决方案，所以这里是以防万一有人需要它：链接
另外，我还找到了挽救我生命的示例：链接