| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Visitors | 1392224 | | Impressions | 5100212 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 20.01.2006 | Accessed: 26544 | | | | Description
The sample determines the number of appointments of a given day - also including recurrings. The returned value tells you that number. Via the optional argument oResult you get access to the found items. |
Public Function AppointmentsAtDay(ByVal dtDate As Date, _
Optional oResult As Outlook.Items _
) As Long
Dim oFld As Outlook.MAPIFolder
Dim oItems As Outlook.Items
Dim sFind As String
Dim obj As Object
Dim i As Long
Set oFld = Application.Session.GetDefaultFolder(olFolderCalendar)
Set oItems = oFld.Items
oItems.Sort "[Start]", False
oItems.IncludeRecurrences = True
sFind = Format(dtDate, "ddddd")
sFind = "[Start] <= " & _
Chr(34) & sFind & " 11:59 PM" & Chr(34) & _
" AND [End] > " & _
Chr(34) & sFind & " 12:00 AM" & Chr(34)
Set oResult = oItems.Restrict(sFind)
For Each obj In oResult
i = i + 1
Next
AppointmentsAtDay = i
End Function
|
| | |
| | |  | ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more] |
| | |  | Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more] |
| | |  | SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
