CDOEXおよびExchange 2000で関数を完了することはできません

Question

私はExchange 2000でCdoexを使用して予約を作成しようとしています。コードスニペットはMSDNからであり、VB6です。

この行に到達したとき：「.datasource.savetocontainer imbx.calendar、conn "i a a a a a a a a a a a a a a a erry" function（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

私は問題と解決策を見つけたので、ここで誰かがそれを必要としている場合です： リンクまた、私は私の命を救った例を見つけました： リンク