Envoi d'email automatique VBA Thunderbird

Bonjour à tous,

mon code ne fonctionne pas... Voudriez-vous bien y jeter un oeil et me dire si quelque chose vous paraît inexact ?

Merci par avance.

Ludo

Sub envoiClasseur()
Dim Fichier As Variant

' le programme ouvre une fenêtre où l'on va sélectionner le fichier'
Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")

MsgBox Ficher

'ici on demande d'utiiser thunderbid comme client de messageirie "
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe")

Set MonMessage = MaMessagerie.Createiteitem(0)

'ici nous définissons les champs du mail'
'entre guillemet il faut inqiquer les adresses mails, il y a deux points entre MonMessage et to et cc pour pouvoir envoyer sur le forum'
MonMessage..to = "adresse email"
MonMessage..CC = "adresse email"

'ici nous commençons la rédaction du mail'
MonMessage.attachements.Add Fichier

'sujet du mail'
MonMessage = "Test envoi PJ depuis Excel Suivi Depot Aide Region Excel"

'Corps du mail'
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
'les caractères Chr indiquent un saut de ligne'
contenu = contenu & "Veuillez trouver en pièce jointe le fichier de suivi des dépôts Aides Région" & Chr(10) & Chr(13)
contenu = contenu & "Très cordialemennt" & Chr(10) & Chr(13)
contenu = contenu & "Jean DUPOND"
MonMessage.body "contenu"

'ici on provoque l'envoi du mail et de sa pièce jointe'
MonMessage.Send

'réinitialisation de la messagerie'
Set MaMessagerie = Nothing

'Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe '
MsgBox "Votre mail a bien été envoyé"

End Sub