{"id":64133,"date":"2007-08-29T01:44:00","date_gmt":"2007-08-29T01:44:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2007\/08\/29\/how-can-i-get-a-list-of-appointments-for-a-specific-month\/"},"modified":"2007-08-29T01:44:00","modified_gmt":"2007-08-29T01:44:00","slug":"how-can-i-get-a-list-of-appointments-for-a-specific-month","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-get-a-list-of-appointments-for-a-specific-month\/","title":{"rendered":"How Can I Get a List of Appointments for a Specific Month?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I get a list of my appointments for a specific month (for example, all my appointments for December, 2007)?

— HG <\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, HG. We\u2019ll get to your question in just a moment. Before we do that, however, the Scripting Guy who writes this column wants to take a little time and enjoy the last few days of August (and, in effect, the last few days of summer). And what a summer it\u2019s been here in the Seattle area; this past weekend, for example, the temperature nearly reached 70 degrees Fahrenheit! (And no, we are not<\/I> making that up.) At one point the Scripting Guy who writes this column actually had the back door to his house propped open, although that changed the moment the wind started blowing and the rain started falling. But that was all right: needless to say, after dealing with daytime temperatures of 68 degrees Fahrenheit, well, a little breeze and a little rain felt pretty good.<\/P>\n

The important thing is that, after a relatively tough winter (which really wasn\u2019t all that<\/I> tough, as long you didn\u2019t mind being without power<\/B><\/A> for a 6-day stretch) the weather gods obviously felt sorry for those of us who live in Seattle. \u201cThose poor Seattle-area people,\u201d they must have thought. \u201cWe gave them such a lousy winter; how can we make it up to them? Oh, wait, we know: we\u2019ll give them a summer where the temperature rarely climbs above 70 degrees and the sun hardly ever shines. That should make everyone happy.\u201d <\/P>\n

And, of course, it did.<\/P>\n\n<\/THEAD>\n\n\n
\n

Note<\/B>. The whole Seattle area seems to be under a curse of some kind: we\u2019re spending billions for dollars to build a light rail system that doesn\u2019t actually go anywhere; we\u2019re stuck serving as the home of the Seattle Supersonics (although that, at least, appears to be temporary); and now we\u2019re forced to endure both a lousy winter and<\/I> a lousy summer. What did we ever do to deserve this?<\/P>\n

Hey, wait a minute: who said, \u201cYou gave the world Microsoft, didn\u2019t you?\u201d<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n

<\/DIV>\n

Oh, well. As it turns out, that tiny glimmer of light that might have been a tiny of sliver of sunshine has now disappeared behind our omnipresent gray clouds. With that in mind, let\u2019s turn the lights on, crank up the heat a little, and conclude the summer with a bang: by writing a script that retrieves a list of appointments scheduled for the month of December, 2007.<\/P>\n

You know, a script like this one:<\/P>

Const olFolderCalendar = 9<\/p>\n
Set objOutlook = CreateObject(“Outlook.Application”)\nSet objNamespace = objOutlook.GetNamespace(“MAPI”)\nSet objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)<\/p>\n
Set colItems = objFolder.Items<\/p>\n
strFilter = “[Start] >= ’12\/1\/2007′ AND [Start] <= ’12\/31\/2007′”\nSet colFilteredItems = colItems.Restrict(strFilter)<\/p>\n
For Each objItem In colFilteredItems\n    If objItem.Start > Now Then\n        Wscript.Echo “Meeting name: ” & objItem.Subject\n        Wscript.Echo “Meeting date: ” & objItem.Start\n        Wscript.Echo “Duration: ” & objItem.Duration & ” minutes”\n        Wscript.Echo “Location: ” & objItem.Location\n        Wscript.Echo\n    End If\nNext\n<\/PRE>\n
As you can see, we start out by defining a constant named olFolderCalendar and setting the value to 9; we\u2019ll use that constant to tell the script which Outlook folder we want to connect to. (As a matter of fact, we do<\/I> want to connect to the Calendar folder. Good guess!) After defining the constant, we create an instance of the Outlook.Application<\/B> object, then use the GetNamespace<\/B> method to bind to the MAPI namespace (which \u2013 in case you\u2019re wondering \u2013 happens to be the only<\/I> namespace that we can bind to).<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. So if the MAPI namespace is the only namespace we can bind to, then do we even have<\/I> to bind to it? Why don\u2019t we just automatically connect to the MAPI namespace? Well, that\u2019s because \u2026 because \u2026 well, just because, OK?<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
After we\u2019ve made the connection to the MAPI namespace, we then call the GetDefaultFolder<\/B> method to hook us up to the Outlook calendar (note that we pass GetDefaultFolder the constant olFolderCalendar that we created at the start of the script):<\/P>
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)\n<\/PRE>\n
From there, we can get a collection of all our appointments by doing nothing more complicated than creating an object reference to the folder\u2019s Items<\/B> property, like so:<\/P>
Set colItems = objFolder.Items\n<\/PRE>\n
That was pretty easy, wasn\u2019t it? But party\u2019s over: now we\u2019re going to have to do a little bit of work. (But don\u2019t worry; it truly is<\/I> just a \u201clittle bit\u201d of work.) As you no doubt recall, we aren\u2019t interested in a collection of all<\/I> our appointments; we\u2019re only interested in those appointments scheduled to take place during the month of December, 2007. Therefore, and in order to restrict our collection to appointments scheduled for the month of December, 2007, we need to apply a Filter<\/B> to the collection, something we do with these two lines of code:<\/P>
strFilter = “[Start] >= ’12\/1\/2007′ AND [Start] <= ’12\/31\/2007′”\nSet colFilteredItems = colItems.Restrict(strFilter)\n<\/PRE>\n
So what\u2019s going on here? Well, in the first line we\u2019re setting the criteria for the Filter: we only want those appointments where the value of the Start<\/B> property (note that property names must be enclosed in square brackets) is greater than or equal to December 1, 2007 (12\/1\/2007) and<\/I> where the value of the Start property is less than or equal to December 31, 2007. The net effect? We\u2019ll only get back appointments that take place (i.e., that start) in December, 2007.<\/P>\n
In the second line of code, we simply call the Restrict<\/B> method, passing along the filter we created (represented by the variable strFilter). That\u2019s going to give us back a brand-new collection, one consisting only of those appointments that take place in December, 2007. From there all we have to do is set up a For Each loop to loop through this sub-collection, doing nothing more inside that loop than echoing back some of the key appointment property values (such as meeting name, date, duration, and location):<\/P>
For Each objItem In colFilteredItems\n    If objItem.Start > Now Then\n        Wscript.Echo “Meeting name: ” & objItem.Subject\n        Wscript.Echo “Meeting date: ” & objItem.Start\n        Wscript.Echo “Duration: ” & objItem.Duration & ” minutes”\n        Wscript.Echo “Location: ” & objItem.Location\n        Wscript.Echo\n    End If\nNext\n<\/PRE>\n
That\u2019s all there is to it.<\/P>\n
Now, one thing to keep in mind here is that this script will not necessarily show any recurring appointments that take place in December, 2007; that\u2019s because Outlook treats recurring appointments slightly different than it does other meetings. If the first occurrence of a recurring appointment takes place in December 2007 then that first occurrence will be returned by the script. However, if the first occurrence for the recurring appointment took place earlier then December, 2007, well \u2026. For HG this wasn\u2019t a problem; she was specifically interested in \u201cone-off\u201d meetings and appointments. However, if that is<\/I> a problem for you (that is, if you\u2019d like to get a list of recurring appointments as well), take a look at the Office Space article Retrieving a List of Recurring Appointments from Microsoft Outlook<\/B><\/A> and see if that helps.<\/P>\n\n<\/THEAD>\n\n\n
\n
Office Outlook 2007:<\/B> If you run this script against Outlook 2007, you will see some<\/I> recurring meetings that fall in December 2007. However, you\u2019ll see only those recurring meetings where the first occurrence hasn\u2019t happened yet. In addition, the meeting date (objItem.Start) will show the first date in the recurring appointment. For example, if you have a recurring meeting the first Friday of every month starting in October 2007, the meeting will show up in your output for December meetings (since there will be a meeting scheduled for Friday, December 7) but the meeting date of your output will show October 5. If the first occurrence of that meeting was in the past (say, June 1, 2007) you won\u2019t see the December occurrence.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
And yes, we know: some of you are interested in retrieving a list of the actual days and dates for recurring appointments (as opposed to a note that simply says that this meeting occurs every Tuesday from now until January 1, 2008). That\u2019s something we\u2019ll probably address in a future Hey, Scripting Guy!<\/I> But not today; today isn\u2019t the future. <\/P>\n
Or at least we hope<\/I> that today isn\u2019t the future. Things are depressing enough around here as they are. Oh, well; tomorrow the temperature is expected to reach 74<\/I> degrees Fahrenheit. Talk about a heat wave, eh?<\/P>\n\n<\/THEAD>\n\n\n
\n
Ed<\/B>itor\u2019s Note:<\/B> The Scripting Guy who writes this column went to the dentist today. We hope that explains any small hint of grouchiness you might have detected in today\u2019s column. We\u2019re not sure how to explain yesterday\u2019s column\u2026or the day before\u2026or\u2026.<\/P><\/TD><\/TR><\/TBODY><\/TABLE><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I get a list of my appointments for a specific month (for example, all my appointments for December, 2007)?— HG Hey, HG. We\u2019ll get to your question in just a moment. Before we do that, however, the Scripting Guy who writes this column wants to take a little time and […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[212,49,3,5],"class_list":["post-64133","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-microsoft-outlook","tag-office","tag-scripting-guy","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I get a list of my appointments for a specific month (for example, all my appointments for December, 2007)?— HG Hey, HG. We\u2019ll get to your question in just a moment. Before we do that, however, the Scripting Guy who writes this column wants to take a little time and […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64133","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=64133"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64133\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=64133"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=64133"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=64133"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}