MS Outlook' da yeni bir klasor ...

[Haluk]

Merhaba;

Herhangibir Office (Excel - Word - PP - Access ...) dokumanında, aşağıdaki VBA kodu ile MS Outlook' da Inbox (Gelenler) klasorunun altına yeni bir klasor olusturabilirsiniz.

 Sub Test()
    Dim OutApp As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutFolder = OutApp.GetNamespace("MAPI").GetDefaultFolder(6).Folders
    OutFolder.Add "MyNewFolder"
    Set OutFolder = Nothing
    Set OutApp = Nothing
End Sub