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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| Sub EnvoiMail()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''' Création du mail
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'préparation du mail
Sheets("Block").Select
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'''''''''''''''''''''''''''''''''''''
strHTML = ""
strHTML = strHTML & "<HEAD>" & "</HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour, <BR><BR>Voici la liste des lots bloqués.<BR><BR>"
strHTML = strHTML & "<table style='border: solid 1px black' cellpadding='10'>" '"<TABLE BORDER>"
For i = 1 To ActiveWorkbook.Sheets("Block").Range("A65536").End(xlUp).Row
strHTML = strHTML & "<TR halign='middle'nowrap>"
For j = 1 To 6 'nombre de colonnes
strHTML = strHTML & "<TD style=' border-collapse:collapse; border: solid 1px black' bgcolor='blank'align='center'><FONT COLOR='blue'SIZE=3>" _
& Cells(i, j) & "</FONT></TD>"
Next j
strHTML = strHTML & "</TR>"
Next i
strbody = strHTML & "</Table>"
'''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
With OutMail
.display
'.To = "coucou@dgkfhjkhl.be"
.CC = ""
.BCC = ""
.Subject = "Block notifications"
.HTMLBody = strbody & "<br>" & "Bien à Vous," & .HTMLBody & "</BODY>"
.display '.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End sub |
Partager