Bonjour,
il vous manque la bibliothèque : Microsoft Outlook Object Library (Editeur VBA --> Outils --> Références). Elle doit être cochée.
Par ailleurs cette instruction :
Set ObjOutlook = New Outlook.Application
est inutile car elle est incluse dans celle_ci
Dim ObjOutlook As New Outlook.Application
celle-ci est à ajouter :
Dim oBjMail As Outlook.MailItem
NB : Je ne comprends pas l'utilisation d'une ListBox pour votre date de préavis. Une Listbox sert à afficher plusieurs lignes et ensuite à faire une sélection. Vous n'avez a priori besoin que d'une TextBox.