Re : Envoyer un email avec excel
Bonjour,
Malgré les nombreux sujets sur ce thème, après une journée à chercher je n'arrive pas à faire ce que je souhaite...
Je veux mettre en objet la sélection de cellule E2:AF2 et le corps de l'email B4:BI26
Voici le code que j'ai, mais je coince pour .Subject = ??? et .Body = ???
Private Sub CommandButton1_Click()
Dim MailApp As New Outlook.Application
Dim NewMail As MailItem
Dim Dest As String
Dim selection As Range
Set MailApp = New Outlook.Application
Set NewMail = MailApp.CreateItem(NewMailItem)
With NewMail
Dest = "XXXX@YYYY.com"
.To = Dest
.Subject = "E2:AF2"
.Body = "B4, BI26"
.Importance = olImportanceNormal
.Display
End With
End Sub
Si quelqu'un peut m'aider, je serais très heureux.
Bonne soirée.
Thomas