我一直在使用vba为Outlook开发一个小项目。最终目标是与两个收件人设置约会/会议,并将其设置为全天。然后,我需要它在我的日历中找到我的会议并将其设置为不是一整天的活动。
我已经到了可以将会议发送给我的收件人并让它按照需要显示的地步。我唯一的障碍就是让我的代码按日期和时间找到相同的会议(与发送时相同),并将其从全天活动改为不是全天活动。到目前为止,我的代码是迄今为止我需要的代码。
Sub Appointment()
Dim olApt As AppointmentItem
Set olApp = Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.Start = #3/10/2017 4:00:00 PM#
.End = #3/3/1017 5:00:00 PM#
.MeetingStatus = olMeeting
.AllDayEvent = True
.Subject = "OOO - Test"
.Body = "Testing Stuff"
.BusyStatus = olFree
.ReminderSet = False
.RequiredAttendees = "Placeholder" & ";" & " Placeholder"
.Save
.Send
End With
Set olApt = Nothing
Set olApp = Nothing
End Sub
答案 0 :(得分:0)
试试这个
{{1}}
我是从Office开发中心修改过的:Search the Calendar for Appointments Within a Date Range that Contain a Specific Word in the Subject