Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Dim corps As String
Dim i As Integer
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
corps = "Vous trouverez en pièce jointe votre fiche d'appréciation."
i = 2
Do While Cells(i, 1) <> ""
With Olmail
.To = Cells(i, 2).Value
.Subject = "FICHE EVALUATION"
.Body = "Bonjour, " & Chr$(10) & corps & Chr$(10) & Chr$(10) & "Bien cordialement" & Chr$(10) & "Aurélie"
.Attachments.Add ThisWorkbook.Path & "\" & Cells(i, 3).Value & ".pdf"
.Send
End With
i = i + 1
Loop