office outlook 2003 code

Jeg har

Dim objOutlook As Outlook._Application = New Outlook.Application
        Dim oNS As Outlook.NameSpace = objOutlook.GetNamespace("MAPI")
        Dim objInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        Dim oInbox As Outlook.Folders = objInbox.Folders
        Dim oCurrent As Outlook.MAPIFolder = oInbox.Item("_Sortering") '.Folders.Item("acomma")
        Dim objItems As Outlook.Items = oCurrent.Items
        'Dim oPrevious As Outlook.MAPIFolder = oInbox.Item("FYI").Folders.Item("Previous Month")
        Dim objItem As Outlook.MailItem

        Dim intCount As Integer
        Dim i As Integer
        intCount = objItems.Count

        For i = intCount To 1 Step -1
            ' objItem = objItems.Item(i)
            Try
                oCurrent.Folders.Add(objItems.Item(i))
            Catch ex As Exception

            End Try



        Next
        MsgBox(intCount)
        oNS.Logoff()
        objOutlook = Nothing
        oNS = Nothing
        objItems = Nothing
        oInbox = Nothing


ER der nogle der lige gidder at finde ud af hvordan man lave en

hvis mappen er der, så skal den ikke oprettes, men ellers skal den...