Expert VBA pour Outlook 2003

Bonjour,

J'ai une routine qui fonctionne sur VBA outlook 2003 mais l'inconvénient j'ai un message qui apparait à chaque fois que la commande Send est exécuté.

Sub Envoi_Brouillon()
   Dim objApp As Application
   Dim objNS As NameSpace
   Dim objInbox As MAPIFolder

   set objApp = CreateObject("Outlook.application")
   set objNS = objApp.GetNameSpace("MAPI")
   set objInbox = objNS.GetDefaultFolder(olFolderDrafts)

  do while objInBox.Items.Count > 0
      objInBox.Items.Item(1).Send
  loop
end sub

Cette routine me permet d'envoyer tous les mails dans le folder brouillon en un coup.
Seul problème le message.

Si quelqu'un connaît une solution. Je suis preneur.

Un grand merci à l'avance.

DH

Salut,
Pourquoi créer une application Outlook alors que celui ci tourne ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

Tu as essayé ça ?
Application.DisplayAlerts = False
'suis encore bon pour le zop hein ? Bon tant pis...
A+