以下是excel宏的开头。我始终收到消息“对象不支持此属性或方法。
Sub RegisterAppointmentList(CName As String)
' adds a list of appontments to the Calendar in Outlook
Dim olApp As Outlook.Application
Dim olApptItem As Outlook.AppointmentItem
Set olApp = GetObject("", "Outlook.Application")
Set olApptItem = Application.CreateItem(olAppointmentItem)
On Error Resume Next ...
换线
Set olApptItem = Application.CreateItem(olAppointmentItem)
至
Set olApptItem = olApp.CreateItem(olAppointmentItem)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句