'Запуск Outlook через Excel.

Sub test_Run_GetFolderFromID()

str_FolderFromID = "000000006BC25118D973A54B890E402621254E700100F214CE4C44F3604B810CDAC20F38A2770007CA3A4ED40000"

Call Run_GetFolderFromID(str_FolderFromID)

End Sub

Sub Run_GetFolderFromID(ByVal str_FolderFromID As String)

Dim olApp As Outlook.Application

Set olApp = CreateObject("Outlook.Application")

' olApp.Session.GetDefaultFolder(6).Display '6 = olFolderInbox

str_FolderFromID = "000000006BC25118D973A54B890E402621254E700100F214CE4C44F3604B810CDAC20F38A2770007CA3A4ED40000"

Call olApp.Session.GetFolderFromID(str_FolderFromID).Display

End Sub