Macro to open Outlook App Doesn't Work Anymore

[sspatriots]

I have this macro that I found that used to open the Outlook App to a new e-mail. A generic version is below. However, it will not work on PC's with this "New Outlook" option switched on.

Sub OpenNewOutlookMessage()
    Dim outlookApp As Object
    Dim newMail As Object
    
    ' Create an instance of Outlook
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' Create a new mail item
    Set newMail = outlookApp.CreateItem(0)  ' 0 represents a new mail item
    
    ' Set properties for the mail item (e.g., subject, body, recipients)
    newMail.Subject = "New Email Subject"
    newMail.Body = "This is the body of the email."
    newMail.To = "recipient@example.com"
    
    ' Display the new mail item
    newMail.Display
End Sub

Any help would be much appreciated. I need something that works for both versions of Outlook. Thanks, SS

 

[AC PORTA VIA]

go to TOOLS- REFERENCES
check out Microsoft Outlook

 

[sspatriots]

It’s checked. Same issue with New Outlook

 

[AC PORTA VIA]

It’s checked. Same issue with New Outlook

strange
it worked for me at first
after I closed everything (excel and outlook) then it doesn't work anymore
not sure really

 

[rlv01]

I think the issue is likely New Outlook. I believe MS removed COM support and thus traditional programmability and automation by Windows and Office applications. There is a fair amount of info on the web.

Redirecting

The New Outlook and Access/VBA

Microsoft is currently working on the so-called New Outlook that is no longer based on COM. This means that the traditional object model, the programmability and the automation of Outlook from other Windows applications such as Access will be lost. But one after the other:What?Microsoft had been...

www.accessforever.org

If I had a lot of outlook based automation code, I'd be sticking to the "old" outlook as long as possible.