Sleeper: 'New Outlook' Broken my VBA

Good Morning All.

Hopefully this will be a quick one.

Op: Office365 (enterprise)
Outlook: version 2303 (16227.20280)

The Problem.

Having developed and running the workbook withou issue for about 12months it has now started erroring.

At the startup of the workbook the users email address is got (to both log and send messages in the background redaing selections they make).
To stop it falling over, i added a line to check if outlook is running, and if not tell them it needs to be and then closes the book.
(Code below).

Now with the recent release of 'New Outlook' (toggle)
http://www.vbaexpress.com/forum/imag...AASUVORK5CYII=
If I have this version of outlook running instead, [which I quite like], then the code line does not see outlook as running?!? (and therefore doenot pick up the users email either)

Any suggestions why this might be would be great, would like to get something inplace before work pushes the release out formally.

cheers.
M.

TLDR: If current Outlook is open oOutlook NOT Nothing; if New Outlook is open, oOutlook IS Nothing; if Outlook is closed, oOutlook IS Nothing.

The Code:

Code:

---

Public Sub email_hunter()

Dim oOutlook As Object 'Checks Outlook is open.

        On Error Resume Next

        Set oOutlook = GetObject(, "Outlook.Application")

        On Error GoTo 0

        If oOutlook Is Nothing Then

            MsgBox "Outlook is not open, open Outlook and try again. " & vbNewLine & vbNewLine & _

            "'New Outlook' does not work either(PreRelease)" & vbNewLine & vbNewLine & _

            "Please open Outloook email and try again."

            ActiveWorkbook.Close SaveChanges:=False

        Else

            Call mod_MISC.currentUserEmailAddress

            USER_email = currentUserEmailAddress

        End If

end sub

---

You can try this code:

Code:

---

' https://social.msdn.microsoft.com/Forums/en-US/93674f48-299e-4880-b77f-5f7bc66b2e75/names-of-currently-running-applications?forum=isvvba
Public Function IsProgramOpen(ByVal program_name As String) As Boolean
' Arnelgp
'
' Example:
'
' test if Outlook is already running
'
'  ? IsProgramOpen("OUTLOOK.EXE")
'
' some common program names:
'
' "OUTLOOK.EXE"    to test for Outlook is already running
' "MSACCESS.EXE"    to test if MS Access is already running
' "EXCEL.EXE"      to test for Excel
' "WINWORD.EXE"    to test for Word application
' "POWERPNT.EXE"    to test for Powerpoint
'
' etc.
'
 Const THIS_PC As String = "."
 Dim objWMIService, colItems, objItem
 Dim sName As String


    Set objWMIService = GetObject("winmgmts:\\" & THIS_PC & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process", , 48)


    program_name = UCase(program_name)
   
    For Each objItem In colItems
        sName = UCase(Trim$(objItem.Name))
        If sName = program_name Then
            IsProgramOpen = True
            Exit For
        End If
    Next
End Function

---

on immediate window (VBA) you test:

?IsProgramOpen("OUTLOOK.EXE")

This is a snippet I use to send Outlook emails

Uses Outlook if open, opens Outlook if not

Code:

---

    'open Outlook or create if not open
    On Error GoTo OutlookError
    Set oOutlook = GetObject(, "Outlook.Application")
    On Error GoTo 0

.......   


    Exit Function


OutlookError:
    If Err.Number = 429 Then
        Set oOutlook = CreateObject("Outlook.Application")
        Resume Next
    Else
        SendWithOutlook = False


    End If

---

Thanks for the replies.

Interestingly and looking into TM a bit more, the 'New Outlook' runs as olk.exe

still trying to work out what the > Set oOutlook = GetObject(, "Outlook.Application")
command is for this alternative.

but for now I am using your [Arnalgp] function checking for true in either OLK.EXE or OUTLOOK.EXE

As far as I can see, the new outlook seems to be more of an app with no VBA support. (if memory serves, wasn't olk.exe the old outlook express executable? If so, hardly "new outlook" ;))

Just a quick update. - I'll leave it as open for now without solution, although it looks like it may not be possible.:crying:

I implemented program check function suggested with an or statement picking up either version.
However, although it accepts the OLK as true, i does'nt pull the needed info (Users email address and line manager), nor does it send any messages, just loads them as draft emails then sends when outlook(.exe) opens.

Back to the drawing board, may for now just have to force users to open the original outlook rather than the new fangled preview - see what happens when it comes out into formal release and hope a proper hand off is established.:doh:

Nice update. Let me see your results.

Announce me when you have the results.

@ Hilltroop, Try being polite about your requests.

One potential solution is to use the CreateObject function instead of GetObject.

Try checking for both versions of Outlook to cover all scenarios.

Code:

---

On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
' Try to get the new Outlook
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application.23")
On Error GoTo 0
End If

---