Envoi mail par VBA

Rebonjour,

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

bonjour,

mets un s à attachment

ainsi

MonMessage.Attachments.Add Fichier

il te manque aussi un =

    MonMessage.body = contenu
Rechercher des sujets similaires à "envoi mail vba"