Outlook Klasör AltOluşturma

[alprn19]

Merhaba arkadaşlar aşağıdaki kodla outlookta klasör oluşturuyorum fakat klasörün yerini atayamıyorum gelen kutusuna oluşturuyor. Örneğin gelen kutusundaki "A123" klasörüne oluşturması için nasıl bir değişiklik yapmam gerekir.
Sub birisi()
Dim oloUtlook As Outlook.Application
Dim ns As Outlook.NameSpace
Dim itm As Object

On Error Resume Next

Application.ScreenUpdating = False

Set oloUtlook = CreateObject("Outlook.Application")
Set ns = oloUtlook.GetNamespace("MAPI")
Set itm = ns.GetDefaultFolder(olFolderInbox)

itm.Folders.Add ("Dosyaİsmi")

Set oloUtlook = Nothing
Set ns = Nothing
Set itm = Nothing

end sub