On Tue, 05 Jul 2011 12:12 -0500, "Jarvis, Matthew" <[email protected]>
wrote:
> Hope everyone survived the 4th, and to our brethren elsewhere - hope you
> had a good weekend...
Yes thanks!
(I wish fireworks would be BANNED - I was up until
> well past midnight last night covering my wife's dog's ears)...
Your wife has dog's ears? ooooooo-kay....
>
>
>
> Being off for the last 4 days I come back to a screen full of Outlook
> Calendar alerts... some I care about, some I don't, so as I went through
> the blah blah blah list I 'snoozed' some, dismissed others.
>
>
>
> Thinking ahead for this afternoon I was curious how many of these things
> were going to be popping up later, and got to thinking as to how to
> determine that. I'm assuming that if push came to shove I could figure
> it out with Automtion, but was wondering if a shortcut might be to go
> check the Registry or something.
>
>
Maybe something modified from:
Sub GetAppt()
Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim olFldr As MAPIFolder
Dim olApt As AppointmentItem
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set olFldr = olNs.GetDefaultFolder(olFolderCalendar)
For Each olApt In olFldr.Items
If InStr(1, olApt.Subject, "Piano", vbTextCompare) > 0 Then
Debug.Print olApt.Subject, Format(olApt.Start, "mm/dd/yy")
End If
Next olApt
Set olApt = Nothing
Set olFldr = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub
--
Alan Bourke
alanpbourke (at) fastmail (dot) fm
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
