Alors là Brigitte t'es rapide
Bon alors en passant par Outlook (et je mets ton adresse mail pour montrer comment ça marche
:woohoo: )
Option Explicit
Sub envoieMail()
Dim Sujet As String, AdresseMail As String, Message As String
Dim NbreRapport As Byte
Dim OL, olMailItem, MyItem
Sujet = 'Attention important'
AdresseMail = 'Brigitte@xld.fr'
Message = 'Veuillez trouver ci-joint le fichier'
Set OL = CreateObject('Outlook.Application')
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
.To = AdresseMail
.Subject = Sujet
.Body = Message
.Attachments.Add 'C:\\tmp\\MonDoc.xls'
.Categories = 'Banking-Info'
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
End Sub
Bonne journée