1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub EnvoiMail_3()
Dim ObjOutlook, Dim ObjOutlookmail, Dim NomFichier As String
NomFichier = ThisWorkbook.Name
Set ObjOutlook = CreateObject("Outlook.Application")
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
With oBjMail
.To = Feuil1.Range("B2") 'le destinataire
.Subject = Feuil1.Range("A3") 'l'objet du mail
.Body = Worksheets("Feuil1").Range("A5:A15") 'c'est là que ça bug
'.Attachments.Add Nomfichier
.Send ' Ici on peut mettre '.Display' pour l'envoyer avec vérification sur outlook
End With
'ObjOutlook.Quit
End Sub |
Partager