Fermer boite de dialogue outlook depuis VB...

Bonjour le forum,
J'utilise un code pour envoyer une feuille de mon classeur excel en pièce jointe avec outlook.
With olmail
.To = Sheets('X').Range('K3').Value
.Subject = 'Y' & Format(Date, 'd mmmm yyyy') & ' ' & Format(TIME, 'h mm ss')
.Body = 'Bonjour, ' & vbLf & vbLf & vbLf & _
'A+. ' & vbLf & Application.UserName
'Pièces jointes
.Attachments.Add fichiermail
.Display
Le prob., c'est que si il y a une boite de dialogue ouverte dans outlook le mail ce bloque et ne peut être ouvert pour l'envoie...
'Erreur d'exécution....
Une boîte de dialogue est ouverte.Fermez cette boîte de dialogue et recommencez.'
Comment peut-on fermer une boite de dialogue ouverte dans outlook depuis excel??

Merci !