Envoi mail par VBA

Bonjour à tous,

J'ai un problème avec une macro qui me permet d'envoyer un mail avec PJ (pièce jointe).

Le problème dans la macro est cette ligne : Set MaMessagerie = Create.Object("Outlook.Application")

et voici la macro en entière.

Sub EnvoiMail()

Dim Fichier As Variant

Fichier = Application.GetOpenFilename("tous les fichiers(*.*),*.*")

MsgBox Fichier

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = Create.Object("Outlook.Application")

Set MonMessage = MaMessagerie.createitem(0)

MonMessage.To = ""

MonMessage.CC = ""

MonMessage.Attachment.Add Fichier

MonMessage.Subject = "Test Compte rendu"

contenu = "Bonjour"

contenu = contenu & Chr(10) & Chr(13)

contenu = contenu & "Ci-joint le compte rendu du 25/06/2019."

MonMessage.body contenu

MonMessage.Send

Set MaMessagerie = Nothing

End Sub

Merci pour votre aide

Nikorasu a écrit :

Create.Object("Outlook.Application")

Pas de point

CreateObject("Outlook.Application")

Rebonjour,

Merci Thev pour la réponse, mais j'ai encore un problème avec la macro.

Cette fois-ci c'est cette ligne qui me pose probleme : MonMessage.Attachment.Add Fichier

Et voici le code entier :

Sub EnvoiMail()

Dim Fichier As Variant

Fichier = Application.GetOpenFilename("tous les fichiers(*.*),*.*")

MsgBox Fichier

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = CreateObject("Outlook.Application")

Set MonMessage = MaMessagerie.createitem(0)

MonMessage.To = ""

MonMessage.CC = ""

MonMessage.Attachment.Add Fichier

MonMessage.Subject = "Test Compte rendu"

contenu = "Bonjour"

contenu = contenu & Chr(10) & Chr(13)

contenu = contenu & "Ci-joint le compte rendu du 25/06/2019."

MonMessage.body contenu

MonMessage.Send

Set MaMessagerie = Nothing

End Sub