Is there a way so Outlook will only open once,so if it open then code does nothing ? Code works but opens Outlook every time its clicked.
Private Sub CommandButton1_Click() Dim ol As Object Dim ns As Object Dim fldr As Object On Error Resume Next Set ol = CreateObject("Outlook.Application") Set ns = ol.GetNamespace("MAPI") Set fldr = ns.GetDefaultFolder(6) 'inbox fldr.Display ol.ActiveWindow.WindowState = 1 End Sub
Bookmarks