bonjour ,
voila
Set TheOLapp = CreateObject('Outlook.Application')
Set TheOLitem = TheOLapp.CreateItem(olMailItem)
With TheOLitem
fij = chemin du fichier joint
.Application.Session.Logon
.To = Sheets('CcMail').Range('A1') 'modifie le range
.CC = Sheets('CcMail').Range('A2') & ';' ' &'ici tu peux ajouter des destinataires
.Importance = olImportanceHigh
.Subject = UserForm1.TextBox1 ' par exemple
.Body = UserForm10.TextBox2 ' exemple
.Attachments.Add Fij
.Categories = 'Daily-Report'
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
.Display
'.Save
'.Send
End With
Set TheOLapp = Nothing
Set TheOLitem = Nothing
End With
Voila je pense que c ce que tu voulais
ps : ce code marche avec Outlook