我试过使用属性,但不知道如何由find或restrict使用它: Set rdvs = ns.GetDefaultFolder(olFolderCalendar).Items.Find("[ItemProperties('Tag')] = 'auto-generated'")Sub createAppointment()
Dim apptm As Outlook.
我收到的错误是“运行时错误'438‘对象不支持这个属性或方法”。我还添加了来自Ron De‘’Bruin的RangeToHTML代码。Sub Meeting_Request()Dim r As LongDim rng2 As Range
Dim myapt As Object ' Outlook.Appoint
我正在尝试从VBA宏中生成约会,并将其放入Outlook的日历中。我的代码如下...Sub CommandButton1_Click()
Dim olapp As Object OLNS.Logon
Set OLAppointment = olapp.CreateItem(olAppointmentItem<