1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
Sub envoi_mail()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim NomEtCheminFichier As String
NomEtCheminFichier = "C:\Users\JD\Desktop\Nouveau dossier\" & Range("A13") & ".pdf"
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set rng = Nothing
Set rng = ActiveSheet.Range("A8:F149") 'On définit la plage de données à convertir en HTML
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
OutMail.display 'affiche le message avec la signature par défaut
OutMail.to = mailto
On Error Resume Next
With OutMail
.to = Range("B1")
.CC = Range("B5")
.BCC = Range("")
.Attachments.Add NomEtCheminFichier
.Subject = Range("B2")
.HTMLBody = RangetoHTML(rng) & "<br>" & .HTMLBody 'On appelle la fonction RangetoHTML qui va convertir la plage en données HTML et on ajoute la signature
.display
.Save '.Save pour sauvegarder le mail dans les brouillons, .send pour l'envoyer'
End With
On Error GoTo 0
With Application
.EnableEvents = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub |
Partager