Creating Directories Inside Outlook

Create A Directories And Sub Directories In Outlook-

Here I create the directories in outlook through the Outlook Addins in VS 2010, follow this steps-
1.Open the VS2010  choose the selected option show in the image.

2.After the open a new window double click on 'ThisAddIn.vb',open code space.

3.In code space put the code-

   a) Let us create  function CreateOutlookDirectories().

    b)Here i create a 'flag' variable for check existing of folder ,if require folder name is already exist

      then it is not create same name folder.

   c)We create 'Valuehire' name folder in outlook inbox and sub_folder named 'Failed'.

   d))Just follow the code-

 Public Sub CreateOutlookDirectories()

        Dim objOutlook As New Outlook.Application

        Dim objNS As Outlook.NameSpace = objOutlook.GetNamespace("MAPI")

        Dim objInboxFolder As Outlook.MAPIFolder = Nothing

        Dim objXYZFolder As Outlook.MAPIFolder = Nothing

        Dim objTransferredFolder As Outlook.MAPIFolder = Nothing

        Dim objFailedFolder As Outlook.MAPIFolder = Nothing

        Dim xyzExistsFlag As Boolean = False

        Dim FailedExistsFlag As Boolean = False

        objInboxFolder = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

        If objInboxFolder.Folders.Count > 0 Then

            For i = 1 To objInboxFolder.Folders.Count

                If objInboxFolder.Folders.Item(i).Name = "Valuehire" Then

                    xyzExistsFlag = True

                    objXYZFolder = objInboxFolder.Folders("Valuehire")

                End If

            Next

            If xyzExistsFlag = True Then

                If objXYZFolder.Folders.Count > 0 Then

                    For j = 1 To objXYZFolder.Folders.Count

                        If objXYZFolder.Folders.Item(j).Name = "Failed" Then

                            FailedExistsFlag = True

                        End If

                    Next

                    If FailedExistsFlag = False Then

                        objFailedFolder = objXYZFolder.Folders.Add("Failed", Outlook.OlDefaultFolders.olFolderInbox)

                    End If

                Else

                    objFailedFolder = objXYZFolder.Folders.Add("Failed", Outlook.OlDefaultFolders.olFolderInbox)

                End If

            Else

                objXYZFolder = objInboxFolder.Folders.Add("Valuehire", Outlook.OlDefaultFolders.olFolderInbox)

                objFailedFolder = objXYZFolder.Folders.Add("Failed", Outlook.OlDefaultFolders.olFolderInbox)

            End If

        Else

            objXYZFolder = objInboxFolder.Folders.Add("Valuehire", Outlook.OlDefaultFolders.olFolderInbox)

            objFailedFolder = objXYZFolder.Folders.Add("Failed", Outlook.OlDefaultFolders.olFolderInbox)

        End If

    End Sub 

4.Call the function in 'ThisAddIn_Startup()' 

     

   Private Sub ThisAddIn_Startup() Handles Me.Startup

          CreateOutlookDirectories()

   End Sub

and run the program and see the result-