adding a folder in outlook

[seec77]

how can i add a folder in outlook? in know that i have to do something like this:

Application.Namespace("Something").Folders.Add "FolderName"

but i don't know what i have to write instead of Something...

[RobDog888]

Here is how to create a new folder under the Inbox folder.
Private Function CreateFolder()

'oApp - only if Outlook is not running. Otherwise use 'Application'
Dim oApp = New Outlook.Application

Dim oNS As Outlook.NameSpace
Dim oInbox As Outlook.MAPIFolder
Dim oNewFolder As Outlook.MAPIFolder

'Use only one - oApp or Application. See first comment.
'Connection object.
Set oNS = oApp.GetNamespace("MAPI")
Set oNS = Application.GetNamespace("MAPI")

'Connection to Inbox folder.
Set oInbox = oNS.GetDefaultFolder(olFolderInbox)
'Create new subfolder "NewFolder"
Set oNewFolder = oInbox.Folders.Add("NewFolder", olFolderInbox)

End Function

[seec77]

cool, how much trouble to add a folder!
thanks man!

[RobDog888]

Your welcome.
Just drill down the folder path to where ever you want to create
a folder. Even if its under the Public folders.