Ms Outlook Error -2147221233- [Collaboration Data Objects - [MAPI_E_NOT_FOUND(8004010

[jhl84]

I'm running a macro in Ms Outlook to extract attachments from emails and save it in a folder. The sender email address and subject forms the saved attachments' filename.

The macro works fine but recently when I ran it, it gives me this error:
-2147221233- [Collaboration Data Objects - [MAPI_E_NOT_FOUND(8004010F)]]
I have no idea what I did wrong. Not sure if the settings in Outlook I accidentally modified. I did not modify the macro all this while so I'm baffled.

I remember applying a security patch on my pc and I have not the slightest idea what it was. What could have possibly changed in my environment that triggered this error?

Or perhaps is there anything I can do to modify the code below to make it working again?

Private Function GetExchangeSenderAddress(objMsg As MailItem) As String
  
	Dim oSession As Object
	Set oSession = CreateObject("MAPI.Session")
	oSession.Logon "", "", False, False
	
	Dim sEntryID As String
	Dim sStoreID As String
	Dim oCdoMsg As Object
	Dim sAddress As String
	Const g_PR_SMTP_ADDRESS_A = &H39FE001F
	
	sEntryID = objMsg.EntryID
	sStoreID = objMsg.Parent.StoreID
	Set oCdoMsg = oSession.GetMessage(sEntryID, sStoreID)
	
	sAddress = oCdoMsg.Sender.Fields(g_PR_SMTP_ADDRESS_A).Value
	Set oCdoMsg = Nothing
	oSession.Logoff
	Set oSession = Nothing
	
	GetExchangeSenderAddress = sAddress
	
End Function

Please advice, thanks