Item.send

Bonjour le forum

voici une macro qui me permet d'envoyer un fichier a plusieurs collaborateur

Sub envoiMailEtFeuilleActivetoto()


ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="toto.fr", Subject:="coucou " 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True

End Sub

Outloock me met a chaque fois un message comme quoi il y a peut être un virus je dois repondre oui pour envoyer

Comment éviter ce message?

Cordialement