小编tod*_*ent的帖子

我安排与3-4个"忙碌"的人会面.使用Scheduling Assistant检索和更新可用时间可能很繁琐.

我正在尝试创建一个Excel宏(Outlook打开),以根据提供的电子邮件地址查看可用时间.

如果日期已知(已完成),此宏将创建会议.如果日期未知,我需要将每个人都可以免费的日期打印到电子表格中.
所有用户都在同一台服务器上.

Sub GetFreeBusyInfo ()是我需要帮助的地方.
1.它可以打印个人可用性 - 但我需要整个组的忙/闲信息
2.如何在"07/01/2013 3:00 - 4:00 PM EST"格式中显示结果？

Option Explicit
Sub CheckAvail()
Dim myOutlook As Object
Dim myMeet As Object
Dim i As Long

'Create the Outlook Session
Set myOutlook = CreateObject("Outlook.Application")
'Create the AppointmentItem
Set myMeet = myOutlook.CreateItem(1)
myMeet.MeetingStatus = 1

i = 23
'Start at row 23
If Cells(i, 11) <> "" Then
    'Add Recipients
    Do Until Trim(Cells(i, 10).Value) = ""
       'Add all recipients
        myMeet.Recipients.Add Cells(i, …