Outlook VisualBasic Script

Sub folder()
    Dim myCal As MAPIFolder
    Set myCal = Application.GetNamespace("MAPI") _
        .GetDefaultFolder(FolderType:=olFolderSentMail)
End Sub