Search Emails (Unread Mails Only)

[DMT Dave]

Hi Guy's, wilst i have the code below that filters an emai search, is there a simple method to only show unread emails for the given search string ?

I have had a look on DevHut and a couple of Micrisoft sites, struggling to find the best method of applying filter (unread only)

Here is my search, unsure if i can just add a small addiition to apply filter here:

SearchString = "Some Subject Or Some Email Address"

    Set app = GetObject(, "Outlook.Application")
    On Error GoTo 0
    If app Is Nothing Then
        Set app = CreateObject("Outlook.Application")
        app.Explorers.Add app.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
        app.Explorers(1).Activate
    End If
    
    app.ActiveExplorer.Search SearchString, olSearchScopeAllFolders


    Set app = Nothing
    DoCmd.RunCommand acCmdAppMinimize

Thanks guy's

[Welshgasman]

Look at these links.
https://www.google.com/search?q=filt...hrome&ie=UTF-8

If there is not a way to filter for unread, there is an Unread property.
https://learn.microsoft.com/en-us/of...ailitem.unread

Edit:
This seems the neatest?
https://stackoverflow.com/questions/...ls-not-working

[DMT Dave]

Thanks WGM, I did look at DevHut, i am dragged away from this now for a few hours but will look at your suggested links a little later

Kindest

[Welshgasman]

Thanks WGM, I did look at DevHut, i am dragged away from this now for a few hours but will look at your suggested links a little later

Kindest

Look at the last link, seems simplest and the neatest.

[DMT Dave]

Just had a brief look, yes doesn't look much at all to that, looks fairly simple, even in my books

I will read through better tonight and test, but again, always appreciated responses

[DMT Dave]

Just followng WGM link

I can't find a missing reference in the library for MAPIFolder, do you know what refence require selecting ?

    Dim olNs As Outlook.NameSpace    Dim Inbox As Outlook.MAPIFolder
    Dim Items As Outlook.Items
    Dim i As Long
    Dim Filter As String


    Set olNs = Application.GetNamespace("MAPI")
    Set Inbox = olNs.GetDefaultFolder(olFolderInbox)


    Filter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:hasattachment" & _
                       Chr(34) & "=1 AND " & _
                       Chr(34) & "urn:schemas:httpmail:read" & _
                       Chr(34) & "=0"


    Set Items = Inbox.Items.Restrict(Filter)


    For i = Items.Count To 1 Step -1
        Debug.Print Items(i) 'Immediate Window
    Next

[Gicu]

Use Folder instead, MAPIFolder was deprecated by MS a while ago.

Cheers,

[Welshgasman]

Just followng WGM link

I can't find a missing reference in the library for MAPIFolder, do you know what refence require selecting ?

    Dim olNs As Outlook.NameSpace    Dim Inbox As Outlook.MAPIFolder
    Dim Items As Outlook.Items
    Dim i As Long
    Dim Filter As String


    Set olNs = Application.GetNamespace("MAPI")
    Set Inbox = olNs.GetDefaultFolder(olFolderInbox)


    Filter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:hasattachment" & _
                       Chr(34) & "=1 AND " & _
                       Chr(34) & "urn:schemas:httpmail:read" & _
                       Chr(34) & "=0"


    Set Items = Inbox.Items.Restrict(Filter)


    For i = Items.Count To 1 Step -1
        Debug.Print Items(i) 'Immediate Window
    Next

Remember, that code is for Outlook and it works completely fine for me, so much so, I have saved it in case I ever need to do something like that.
I am however using 2007 Outlook.

[Gicu]

Sorry, forgot to add a link:
https://stackoverflow.com/questions/...in-vba-project
Cheers,

[DMT Dave]

Hi WGM and Vlad, thank you both

@WGM, so the code needs to go in outlook code ? not access ? thats if i have read your reply correct

thanks Vlad, i will try using folder instead and look at the refrerences you ahve sent on the link..

Kindest both of you

[Welshgasman]

Hi WGM and Vlad, thank you both

@WGM, so the code needs to go in outlook code ? not access ? thats if i have read your reply correct

thanks Vlad, i will try using folder instead and look at the refrerences you ahve sent on the link..

Kindest both of you

No. That code is in Outlook.
No reason why you cannot run it from Access, but you would need to set an object variable to an instance of Outlook.
The fact that nown is in that code, or mentioned in the link, leads me to believe that is Outlook VBA.

However nothing to say that cannot be run from Access ?, it is just VBA after all.

[DMT Dave]

Yeh, im still getting method or data member not found, highlighted red is not liisted as an option when re enter .(dot)

Added vlad's suggestion in ref library
change MAPI Folder to Folder in my Dim

But now thinking, this is not for access, just outlook code (per WGM respinse), if im understanding correct

Dim olNs As Outlook.NameSpace    Dim Inbox As Outlook.Folder
    Dim Items As Outlook.Items
    Dim i As Long
    Dim Filter As String, strAddress As String




    Set olNs = Application.GetNamespace("MAPI")
    Set Inbox = olNs.GetDefaultFolder(olFolderInbox)
    
    Debug.Print Inbox
    
    
    strAddress = "Some Email Subject"


    Filter = "@SQL=" & Chr(34) & strAddress & ":read" & _
                       Chr(34) & "=0"




    Set Items = Inbox.Items.Restrict(Filter)




    For i = Items.Count To 1 Step -1
        Debug.Print Items(i) 'Immediate Window
    Next

[Welshgasman]

That is not going to work anyway as you have not included the schema?
I do not know if that subject has to be included as criteria with the schema as well? I would expect so as it was needed for the attachments property in that link code.

If you are running this in Access, then Access is the application and that will not have a Namespace?

You have to understand the code you are trying to use. Just slapping bits together is never going to work.

https://learn.microsoft.com/en-us/of...n.getnamespace

Here is what I think is a badly named variable for calling from another app. I would have used anything BUT application, even if it is all in lowercase.
https://learn.microsoft.com/en-us/of...nce-of-outlook