Outlook-excel

Hello !
J'utilise cette macro pour envoyer le fichier en cours d'utilisation :

Sub SendMail_Outlook()

ActiveWorkbook.Save

'Avant de lancer cette macro, Dans l'éditeur VBA:
'Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim fichier As String
fichier = ActiveWorkbook.FullName

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = adresse@email
.Subject = "Envoi de fichiers" & Range("B1")
.Body = "Tu trouveras ci-joint le fichier Excel "
.Attachments.Add fichier
.Send
End With
End Sub

Voilà, si ça peut te servir...
Bonne journée
Baroude

Outlook

Comment je peux faire pour éviter que mes messages émis soient copiés dans les éléments envoyés?

Merci d'avance

Outlook

désolé je suis allée trop vite j'avais pas vu répondre dsl