我正在使用VBExchange2005和已安装的Exchange Server2003,我发现了一些代码,它们使我能够连接到.NET并创建约会。问题是我找不到CDO。预约。我在哪里可以找到它并使下面的代码工作?我已经尝试了CDO和Outlook的所有示例。我相信下面的代码需要在Exchange环境中生成,并使用CDOEX.DLL?感谢您能给我的任何帮助或想法。谢谢
示例代码
sURL = "http://ExchangeServername/Exchange/testuser/calendar"
Dim oCn As ADODB.Connection = New ADODB.Connection()
'oCn.Provider = "exoledb.datasource";
'I am using the below provider because I am in the client side
oCn.Provider = "MSDAIPP.DSO"
oCn.Open(sURL, "testuser", "q1w2e3r4t5", 0)
If oCn.State = 1 Then
MsgBox("Good Connection")
Else
MsgBox("Bad Connection")
Return
End If
Dim iConfg As CDO.Configuration = New CDO.Configuration()
Dim oFields As ADODB.Fields
oFields = iConfg.Fields
oFields.Item(CDO.CdoCalendar.cdoTimeZoneIDURN).Value = CDO.CdoTimeZoneId.cdoAthens
'oFields.Item(CDO.CdoConfiguration.cdoSendEmailAddress).Value = "test@test.com"
oFields.Update()
Dim oApp As CDO.Appointment = New CDO.Appointment()
oApp.Configuration = iConfg
oApp.StartTime = Convert.ToDateTime("10/11/2001 10:00:00 AM")
oApp.EndTime = Convert.ToDateTime("10/11/2001 11:00:00 AM")
oApp.Location = "My Location"
oApp.Subject = "Test: Create Meeting in VB.NET"
oApp.TextBody = "Hello..."
'' Add recurring appointment
'' Every Thursday starting today, and repeat 3 times.
'' Save to the folder
oApp.DataSource.SaveToContainer(sURL, , _
ADODB.ConnectModeEnum.adModeReadWrite, _
ADODB.RecordCreateOptionsEnum.adCreateNonCollection, _
ADODB.RecordOpenOptionsEnum.adOpenSource, _
"", "")
oCn.Close()
oApp = Nothing
oCn = Nothing
oFields = Nothing发布于 2008-11-16 02:18:39
CDO.Appointment确实是cdoex.dll (用于交换的协作数据对象)的一部分,它是随某些版本的Exchange、SPS和Office一起提供的。您可以在您的机器上下载并注册cdoex.dll,并在VB.Net应用程序中引用它。
这些帖子应该会有帮助:
发布于 2008-11-16 02:25:49
如果您在本地PC或服务器上找不到cdoex.dll的副本,请尝试以下下载:
http://www.google.nl/search?q=download+CDOEX.DLL
https://stackoverflow.com/questions/286459
复制相似问题