Sub Envoi()
Dim mainWB As Workbook
Dim SendID
Dim CCID
Dim Subject
Dim Body
Dim olMail As MailItem
Dim FichierDisponible As Variant
Set otlApp = CreateObject("Outlook.Application")
Set olMail = otlApp.CreateItem(olMailItem)
Set Doc = olMail.GetInspector.WordEditor
'Dim colAttach As Outlook.Attachments
Dim oAttach As Outlook.Attachment
Set mainWB = ActiveWorkbook
For i = 2 To ThisWorkbook.Worksheets("Mail").Range("A" & Rows.Count).End(xlUp).Row
FichierDisponible = mainWB.Sheets("Mail").Range("E" & i).Value
FichierDepartsRetours = mainWB.Sheets("Mail").Range("F" & i).Value
FichierTaux = mainWB.Sheets("Mail").Range("G" & i).Value
SendID = mainWB.Sheets("Mail").Range("B" & i).Value
CCID = mainWB.Sheets("Mail").Range("C" & i).Value
Subject = mainWB.Sheets("Mail").Range("D" & i).Value
Body = mainWB.Sheets("Mail").Range("B4").Value
With olMail
.To = SendID
If CCID = "" Then
.CC = CCID
End If
.Subject = Subject
'add the image in hidden manner, position at 0 will make it hidden
.Attachments.Add "U:\" & FichierDisponible, olByValue, 0
.Attachments.Add "U:\" & FichierDepartsRetours, olByValue, 0
.Attachments.Add "U:\" & FichierTaux, olByValue, 0
.HTMLBody = .HTMLBody & "Disponibles à la location:" _
& "" _
& "
" _
& "
" _
& "
" _
& "Bonne lecture, CdG"
.Display
.Send
End With
Next i
End Sub