![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \nHey, GH. Before we tackle this question we\u2019d like to reassure anyone who looked out their window recently and saw pigs flying; that\u2019s to be expected. Likewise, any of our readers who happen to be residents of Hades might have been alarmed by the recent cold snap down there. Trust us; there\u2019s nothing to be alarmed about. Pigs flying, hell freezing over \u2013 those things are bound to happen when the Scripting Son draws a walk in his last at-bat of the high school baseball season. <\/P>\n
That\u2019s right, after 18 games and 60-some at-bats the Scripting Son finally drew a walk, and in his last at-bat of the season to boot. Not that this is particularly unusual. Three years ago, for example, he was on an all-star team that toured Japan. During that time he played in 14 games and walked once: in his final at-bat. That same year he went the entire regular season (nearly 40 games) without walking at all; oddly enough, in his first playoff game, he then walked three times. Last year the Scripting Son played in 60 games and walked four times. Etc., etc.<\/P>\n
Needless to say, the Scripting Son doesn\u2019t like to walk.<\/P>\n
So what difference does this make to you, GH? Quite a bit, believe it or not. After all, the Scripting Guy who writes this column has always said, \u201cWrite a script that retrieves a list of upcoming appointments that have been scheduled by a specific person? When pigs fly!\u201d<\/P>\n
Well, in that case:<\/P>
Const olFolderCalendar = 9<\/p>\nSet objOutlook = CreateObject(“Outlook.Application”)\nSet objNamespace = objOutlook.GetNamespace(“MAPI”)\nSet objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)<\/p>\n
Set colItems = objFolder.Items<\/p>\n
strFilter = “[Organizer] = ‘Ken Myer'”\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
Before we explain how this works we need to go turn up the heat; for some reason it seems a little colder here than it usually is. <\/P>\n
OK, that\u2019s better. As you can see, we start out by defining a constant named olFolderCalendar and setting the value to 9; we\u2019ll use this constant to tell Outlook which folder (the Calendar folder) we want to work with. Next we create an instance of the Outlook.Application<\/B> object, then connect to the MAPI<\/I> namespace (which happens to be the only<\/I> namespace we can connect to). We then use the GetDefaultFolder<\/B> method to bind to the Calendar folder in Outlook:<\/P>Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)\n<\/PRE>\nThat was<\/I> pretty easy, wasn\u2019t it?<\/P>\n
Our next step is to create an object reference to the folder\u2019s Items<\/B> property:<\/P>Set colItems = objFolder.Items\n<\/PRE>\nWhat does that do for us? That grabs a collection of all our appointments (that is, everything in the Calendar folder) and stashes it in a variable named colItems. <\/P>\n
And yes, you\u2019re right: we\u2019re not<\/I> interested in all the items in the Calendar folder, are we? Instead, we\u2019re only interested in upcoming meetings that have been organized by our manager, Ken Myer. Somehow we need to filter our collection. But how?<\/P>\n
Well, here\u2019s one suggestion: why not apply a filter?<\/P>
strFilter = “[Organizer] = ‘Ken Myer'”\nSet colFilteredItems = colItems.Restrict(strFilter)\n<\/PRE>\nAs you can see, in the first line of code we assign a filter value to the variable strFilter. Filters are made up of two parts: a property name (enclosed in square brackets) and a property value (in this case, a value enclosed in single quote marks, because we are dealing with a string). We want to limit our data to meetings arranged by Ken Myer; that is, meetings where the Organizer<\/B> property is equal to Ken Myer<\/I>. Hence the two parts of our filter: [Organizer]<\/B> and \u2018Ken Myer\u2019<\/B>.<\/P>\n
In line 2, we then call the Restrict <\/B>method to apply this filter to our collection. That\u2019s going to create a new collection (named colFilteredItems) that contains information only about those meetings organized by Ken Myer.<\/P>\n
That\u2019s almost<\/I> what we need. However, this sub-collection will contain all the meetings organized by Ken Myer, including those that have already taken place. Because GH is only interested in upcoming meetings, we need to weed out the meetings that have already taken place. <\/P>\n
In theory, we could do that by making a fancier filter. However, filtering on dates can be a bit complicated; therefore, we decided to take the easy way out. Rather than apply a double filter \u2013 one that limits returned data to meetings organized by Ken Myer, provided that those meetings haven\u2019t been held yet \u2013 we applied a filter that returns all the meetings organized by Ken Myer. We then set up a For Each loop to walk through the complete collection of meetings. And what\u2019s the first thing we do in that loop? Check to see if the meeting has already been held:<\/P>
If objItem.Start > Now Then\n<\/PRE>\nIf the meeting\u2019s Start<\/B> time is later than the current date and time (which we can determine using VBScript\u2019s Now<\/B> function) that means that the meeting hasn\u2019t taken place yet. Therefore, we go ahead and echo back the meeting\u2019s name, start time, duration, and location; that\u2019s what this block of code is for:<\/P>Wscript.Echo “Meeting name: ” & objItem.Subject\nWscript.Echo “Meeting date: ” & objItem.Start\nWscript.Echo “Duration: ” & objItem.Duration & ” minutes”\nWscript.Echo “Location: ” & objItem.Location\n<\/PRE>\nAnd then we loop around and repeat the process with the next meeting in the collection. <\/P>\n
One thing to watch out for here. Because of the way Outlook stores recurring appointments, those appointments might not show up in your output. That\u2019s due, in large part, to the fact that the start date for a recurring appointment might be long-since past. Because of that, you might need to use two<\/I> scripts to make sure you get the desired information: the script we just showed you, and a second script designed to retrieve the recurring appointments organized by Ken Myer. What might that second script look like? It might look a little like this:<\/P>Const olFolderCalendar = 9<\/p>\nSet objOutlook = CreateObject(“Outlook.Application”)\nSet objNamespace = objOutlook.GetNamespace(“MAPI”)\nSet objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)<\/p>\n
Set colItems = objFolder.Items<\/p>\n
strFilter = “[IsRecurring] = TRUE AND [Organizer] = ‘Ken Myer'”<\/p>\n
Set colFilteredItems = colItems.Restrict(strFilter)<\/p>\n
For Each objItem In colFilteredItems\n Set objPattern = objItem.GetRecurrencePattern\n If objPattern.PatternEndDate > Now Then\n Wscript.Echo “Meeting name: ” & objItem.Subject\n Wscript.Echo “Duration: ” & objItem.Duration & ” minutes”\n Wscript.Echo “Location: ” & objItem.Location\n Wscript.Echo “Recurrence type: ” & objPattern.RecurrenceType\n Wscript.Echo “Start time: ” & objPattern.StartTime\n Wscript.Echo “Start date: ” & objPattern.PatternStartDate\n Wscript.Echo “End date: ” & objPattern.PatternEndDate\n Wscript.Echo\n End If\nNext\n<\/PRE>\n
Of course, you could always combine the two scripts into a single script. But we\u2019ll let you take care of that yourself.<\/P>\n
\n<\/THEAD>\n\n\n| \n Note<\/B>. You say you don\u2019t understand how the preceding script works? Then you might want to take a look at our Office Space article<\/B><\/A> on retrieving recurring appointments.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n<\/DIV>\n Meanwhile, the Scripting Son is getting ready for his summer ball season, a season in which he\u2019ll play another 50-to-60 games. Will he draw many walks during this<\/I> season? Probably not; at least when it comes to baseball the Scripting Son is impatient, he\u2019s impetuous, and he just goes out there and acts without thinking.<\/P>\n Wonder where he learned all that from \u2026.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":" Hey, Scripting Guy! How can I get a list of all the upcoming meetings that have been scheduled by a specific person (namely, my manager)?— GH Hey, GH. Before we tackle this question we\u2019d like to reassure anyone who looked out their window recently and saw pigs flying; that\u2019s to be expected. Likewise, any of […]<\/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-64913","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 all the upcoming meetings that have been scheduled by a specific person (namely, my manager)?— GH Hey, GH. Before we tackle this question we\u2019d like to reassure anyone who looked out their window recently and saw pigs flying; that\u2019s to be expected. Likewise, any of […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64913","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=64913"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64913\/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=64913"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=64913"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=64913"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}} |
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")