Counting unread emails

[GhostWatch]

Is there any way of counting the unread emails in a shared folder on outlook?
All i am needing is the number of emails, no info about the content like using the get data tab would get.

Thanks

 

[Georgiboy]

I am guessing you want to do this from Excel:

Sub UnreadMailsSharedInbox()
    Dim oa As Object, ons As Object, sm As Object, Inf As Object, uc As Long
    
    Set oa = CreateObject("Outlook.Application")
    Set ons = oa.GetNamespace("MAPI")
    Set sm = ons.Folders("Name of Shared Folder")
    Set Inf = sm.Folders("Inbox")
    uc = Inf.UnReadItemCount
    MsgBox "Unread emails in shared mailbox: " & uc
    
    Set Inf = Nothing
    Set sm = Nothing
    Set ons = Nothing
    Set oa = Nothing
End Sub

 

[GhostWatch]

I am guessing you want to do this from Excel:

Sub UnreadMailsSharedInbox()
    Dim oa As Object, ons As Object, sm As Object, Inf As Object, uc As Long
   
    Set oa = CreateObject("Outlook.Application")
    Set ons = oa.GetNamespace("MAPI")
    Set sm = ons.Folders("Name of Shared Folder")
    Set Inf = sm.Folders("Inbox")
    uc = Inf.UnReadItemCount
    MsgBox "Unread emails in shared mailbox: " & uc
   
    Set Inf = Nothing
    Set sm = Nothing
    Set ons = Nothing
    Set oa = Nothing
End Sub

Thank you.
Would this also be possible without using macros/VBA as i am trying to reduce the amount of macros used

 

[Georgiboy]

Not that I am aware of.