0

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
4

1 に答える 1

0

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

于 2011-01-22T19:04:42.697 に答える