Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
With oBjMail
.To = Demandeur & "@xxx.com"
.Subject = "Cloture de campagne"
.Body = "La campagne " & NomCamp & " (numéro " & NumCamp & ") a été clôturée. Elle est archivée dans le dossier " & ActiveWorkbook.Path & "."
.Send
End With