Outlook VBA会议调整

时间:2017-03-08 19:25:04

标签: vba outlook outlook-vba

我一直在使用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

1 个答案:

答案 0 :(得分:0)