MyTetra Share
Делитесь знаниями!
Запуск Outlook через Excel
09.04.2020
22:08
Текстовые метки: VBA_Outlook
Раздел: !Закладки - VBA - Outlook

'Запуск 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

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования