[VBA] problème de sécurité sur Outlook

Bonjour,

Pour envoyer les courriers du dossiers Brouillons on
utilise cette macro VBA

Sub EnvoieTousBrouillons()
Dim MonOutlook As New Outlook.Application
Dim LeMail As Outlook.MailItem
Dim LesMails As Object

Set LesMails = MonOutlook.ActiveExplorer.Selection

For Each LeMail In LesMails
LeMail.Send
Next LeMail

Set LesMails = Nothing
End Sub

Il nous pose a chaque fois la quesiton, comment faire
pour ne me pose pas cette foutue question ?

Merci d'avance.

--
Cordialement.
GG.
Le forum de SBS
http://sbsfr.free.fr/