Recherche mail Outlook par sujet et date variable

Bonjour à tous,

Je cherche a creer un code qui depuis Excel, va rechercher un mail Outlook en fonction d'un objet et d'une date pour ensuite en faire differentes choses.

J'ai un bout de code qui fonctionne parfaitement pour la recherche par objet, impossible par contre de trouver comment y ajouter un parametre de date

J'ai testé differentes syntaxes avec la fonction SentOn mais rien ne passe. Je précise que la date est stockée dans une variable.

Ci dessous mon code en version simplifiée qui se contentera d'afficher le mail :

Sub test()

Dim o As Object, olSpace As Object, olInbox As Object, m As Object, a As Object
Set o = CreateObject("Outlook.Application")
Set olSpace = o.GetNamespace("MAPI")
Dim dd As String
dd = Feuil1.Range("H7") 'date variable
Set olInbox = olSpace.GetDefaultFolder(6)
Set m = olInbox.Items.Find("[Subject] = ""Fermeture de l'agence"" and [SentOn] = " & dd & "")
If Not m Is Nothing Then
m.Display

Else
MsgBox "Mail non trouvé..."

End If
End Sub

J'obtiens une erreur "Condition non valide"

Avez vous une idée ?

Merci par avance,

Bonjour,

La recherche sur une date par égalité n'est pas possible, il faut passer par une fourchette comme :

     "[SentOn] > '" & Format(dd - 1, "ddddd") & "'" & "And" & "[SentOn] < '" & Format(dd + 1, "ddddd") & "'"