Проверьте, доступен ли ресурс в течение выбранных дат посредством обмена

У меня уже есть массив каждого ресурса в списке рассылки. Как проверить каждый ресурс в массиве, доступный через сервер обмена в течение времени начала и окончания запроса пользователя? Это будет добавление перспективы на ленте.Проверьте, доступен ли ресурс в течение выбранных дат посредством обмена

Public Sub AddElementToStringArray(ByVal stringToAdd As String) 
    ReDim Preserve distArray(distArrayElements) 
    distArray(distArrayElements) = stringToAdd 
    distArrayElements += 1 
End Sub 

Dim startDate As Date 
Dim endDate As Date 

Sub checkAvailable() 

    'distArray declared earlier. 
    If distArray Is Nothing Then 
     Exit Sub 
    Else 
     'Check if they are available. 
     'if available, add to resourceListBox. 
    End If 

End Sub

источник

2015-01-28 Jason

См предложение здесь: http://stackoverflow.com/questions/5622477/vba-outlook-seeing-peoples-calendars –

Я не хочу, чтобы отобразить их на экране календаря, я хочу это все происходит в фоновом режиме. Я хочу взять массив, который у меня есть, который является ресурсами списка рассылки и проверять каждый из них в цикле, если они доступны в начале и в конце даты. если они затем отображают их в списке. – Jason

Вы надеетесь сделать это через клиента Outlook или напрямую против сервера? Возможно, вы также можете добавить, в какой среде вы работаете (Excel? Outlook?) –

Public Sub GetFreeBusyInfo() 
    Dim myOlApp As New Outlook.Application 
    Dim myNameSpace As Outlook.NameSpace 
    Dim myRecipient As Outlook.Recipient 
    Dim myFBInfo As String 
    Set myNameSpace = myOlApp.GetNamespace("MAPI") 
    Set myRecipient = myNameSpace.CreateRecipient("Nate Sun") 
    On Error GoTo ErrorHandler 
    myFBInfo = myRecipient.FreeBusy(#11/11/2003#, 60 * 24) 
    MsgBox myFBInfo 
    Exit Sub 
ErrorHandler:  
    MsgBox "Cannot access the information. " 
End Sub

источник

2015-01-29 23:22:44 Jason

Проверьте, доступен ли ресурс в течение выбранных дат посредством обмена

ответ

Смежные вопросы