Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Why is this stopping?

Posted on 2006-06-20
2
Medium Priority
?
187 Views
Last Modified: 2011-09-20
I'm trying to write a tool to retrieve all my Outlook 2003 appointments for me.  At this point, I'm just in the start of a test tool.  I've got a form with a listbox on it named ListBox1 into which I want to add all these.  Once I have this working it's on to the next step.

I'm running the following and I'm being told I have > 1000 appointments (which I do).  However, when I run this I get through about a dozen and then it goes off into never land.  The thumbwheel on the ListBox shrinks to nothing and the program doesn't return.  It's appearently gotten into some sort of fatal loop (and yet I'm not getting any exception).

Any thoughts?  I'm just looking for some code that will list all the subjects of all my appointments.

        Dim oApp As Outlook.Application = New Outlook.Application()

        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
        oNS.Logon("YourValidProfile", Missing.Value, False, True)

        Dim oCalendar As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)

        Dim oAppointments As Outlook.Items = oCalendar.Items

        MsgBox("Total : " & oAppointments.Count)

        ListBox1.Items.Clear()

        Dim oAppt As Outlook.AppointmentItem = Nothing

        oAppt = oAppointments.GetFirst

        Try

            While oAppt IsNot Nothing

                If Len(oAppt.Subject) = 0 Then

                    ListBox1.Items.Add("Nothing")

                Else

                    MsgBox(oAppt.Subject)

                    ListBox1.Items.Add(oAppt.Subject)

                    oAppt = oAppointments.GetNext

                End If

            End While

        Catch ex As Exception

            MsgBox(ex.Message & " " & ex.StackTrace)

        End Try
0
Comment
Question by:klamerus
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 14

Accepted Solution

by:
ptakja earned 2000 total points
ID: 16947764
Here's the bug:

           While oAppt IsNot Nothing

                If Len(oAppt.Subject) = 0 Then

                    ListBox1.Items.Add("Nothing")
                    >>>>>>>>> If you get here, you are in an infinite loop since you never update the oAppt object like you do in the Else block.

                Else

                    MsgBox(oAppt.Subject)

                    ListBox1.Items.Add(oAppt.Subject)

>>>>>>>>>> You need to move this line OUTSIDE the If structure and you should be OK.
                    oAppt = oAppointments.GetNext

                End If

            End While
0
 
LVL 1

Author Comment

by:klamerus
ID: 16955983
Well, I only had the one to add "nothing" in the event that I had an appointment with no subject, so that I'd have something show up.

Doh!  I see the point about the GetNext.  I'm stuck on a loop on an item with no subject.
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Reports are based on a report definition, which is an XML file that describes data and layout for the report, with a different extension. You can create a client-side report definition language (*.rdlc) file with Visual Studio, and build g…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
Video by: ITPro.TV
In this episode Don builds upon the troubleshooting techniques by demonstrating how to properly monitor a vSphere deployment to detect problems before they occur. He begins the show using tools found within the vSphere suite as ends the show demonst…
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …

670 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question