Création de mail automatique

Bonjour,

Si quelqu'un peut m'expliquer ce qu'il ne va pas dans le code :

Erreur reportée : Sub ou function non définie pour CreateItem

D'avance merci

Sub Mail()

        Dim LEmail As Variant
        Set LEmail = CreateObject("outlook.application")

        With CreateItem(olMailItem)
        Ligne = ActiveCell.Row
            'Envoyé depuis l'adresse :
            .SentOnBehalfOfName = "blablabla@blablabla"
            'Objet du mail :
            .Subject = "Renouvellement du plan de prévention " '& Cells(Ligne, 1) & " " & Cells(Ligne, 2)
            .To = "" 'Cells(Ligne, 4) & " " & Cells(Ligne, 19)
            'Contenu du mail :

            .HTMLBody = "<p> Bonjour, le plan de prévention " & Cells(Ligne, 1) & " arrive à échance le " & Cells(Ligne, 10) & </p>" & _
            "<p><strong> Si la société a besoin d'intervenir après cette date, la mise à jour de celui-ci est obligatoire. </strong></p>" & _
            "<ol> <li> Une inspection préalable est obligatoire avant le début de l'intervention, merci de nous proposer des dates pour réaliser celle-ci. </li>" & _
            "<li> En cas d'impossibilité, merci de nous faire un retour par mail.</li>" & _
            "<p>Je vous remercie d’avance et vous souhaite une bonne fin de journée. </p>"

            .Display

        End With

End Sub

Bonjour Raphaël78120

Il faut créer l'instance d'Outlook et du mail, sinon ça ne peut pas fonctionner

  Set OutObj = CreateObject("Outlook.Application")
  Set Email = OutObj.CreateItem(0)

A+