XL 2010 Envoyer tous les fichiers d'un Dossier

Bonjour,

Finalement, j'ai réussi à "créer " le code ci-dessous en compilant quelques codes trouvés sur Internet .....
A priori ça marche mais j'ai quelques interrogations notamment sur la ligne :
Set MonMail = Ol.createitem(olMailItem)

Je n'ai aucune majuscule sur createitem alors que creatObject OUI ... ??
Si je rends la déclaration de variable obligatoire (Option Explicit) Excel Met une erreur sur OlMailItem

Sub mail_test()
Dim Ol As Object, MonMail As Object
Dim Fichier As String, Dossier As String

Dossier = "C:\EXCEL\" 'pour Définition de dossier contenant les fichiers
Fichier = Dir(Dossier) ' Pour parcourir le dossier

Application.DisplayAlerts = False

Set Ol = CreateObject("outlook.application")
Set MonMail = Ol.createitem(olMailItem)

With MonMail
.to = "filiphbt@gmail.com"
.Subject = "Envoi Fichier"
.body = "Veuillez Trouver les Fichiers en PJ......"
Do While Fichier <> ""
.Attachments.Add Dossier & Fichier
Fichier = Dir
Loop
.send
End With
Set Ol = Nothing
End Sub

SI vus avez quelques explications à me fournir .....
Merci d'avance