Dim olApp As New Outlook.Application
Dim olInstance As Outlook.Explorer
Dim olNamespace As Outlook.NameSpace
' See if an instance is running
Set olInstance = olApp.ActiveExplorer
If Not olInstance Is Nothing Then
' User's Email running, display
Set olNamespace = olApp.GetNamespace("MAPI"
' Set to default draft folder view
Set olApp.ActiveExplorer.CurrentFolder = olNamespace.GetDefaultFolder(olFolderDrafts)
olApp.ActiveExplorer.Display
End If
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.