astuce pour envoyer fich par Outlook en VBA

[p@cm@n]

re Bonsoir le forum,
pour ceux que cela pourrait intéresser voici le code VBA que j'utilise pour envoyer mon classeur en pièce jointe (pour ma part j'utilise une barre outils personalisé mais libre à vous de mettre un bouton sur une feuille.

le seul petit défaut, c'est que lors de l'envoi, Outlook affiche une fenêtre d'alerte, comme quoi quelqu'un essai d'envoyer un message en mon nom (c'est logique puisque c'est moi qui l'envoi) il faut alors cliquer 2 fois sur oui pour accepter l'envoi, et la encore une deuxième fenêtre avec une jauge verte (je connais plus le nom exacte pour définir ça) il faut encore cliquez sur oui, et la l'envoi fini par s'effectuer.

si quelqu'un a une astuce pour faire disparaitre c'est deux fenêtre d'alerte je suis preneur, j'ai déja consulter pas mal de poste sur les demande d'envoi en VBA et plusieurs propose de passer par une commande MAPI, mois je souhaiterai si possible garder mon system mais sans les messages d'alerte.

voici le code:
Sub Envoyer_fichier()
' envoi d'un fichier en pièce jointe par Outlook
'
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem


' Lance une session Microsoft Outlook
Set appOutlook = New Outlook.Application
' Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)

With message
' Titre, Texte, Destinataires, Pièces jointes du message
.Subject = 'le titre du message'
.Body = 'le texte dans le message' _
& Chr(13) & 'Sincères salutations,' _
& Chr(13) & 'signature éventuel'

.BodyFormat = olformatHTML
.Recipients.Add ('nom du contact')
.Attachments.Add ThisWorkbook.Path & '\\' & ThisWorkbook.Name
.Send
End With

' Quitte l'application Outlook
appOutlook.Quit

' Réinitialise l'objet
Set appOutlook = Nothing
End Sub

salutations

😉