Experts Exchange connects you with the people and services you need so you can get back to work.
With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.
Public Sub QueryRecentUpdates()
Dim nUpdates As Long
Dim UPD As UpdateSession
Dim oSearch As IUpdateSearcher
Dim Col As IUpdateHistoryEntryCollection
Dim Query As IUpdateHistoryEntry
Set UPD = New UpdateSession '// Setup our session object
Set oSearch = UPD.CreateUpdateSearcher '// Get pointer to searcher
nUpdates = oSearch.GetTotalHistoryCount '// Get total history count
Set Col = oSearch.QueryHistory(0, nUpdates) '// Get pointer to collection
For Each Query In Col '// Display the data in the collection
Set UPD = Nothing
Set oSearch = Nothing
Set Col = Nothing
Set Query = Nothing
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment