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