Problème d'envoi d'un mail avec PJ [Résolu]

-
Bonjour,

J'essaye depuis hier à envoyer un mail avec une PJ en utilisant "Attachement.Add" mais je n'y arrive pas du tout.
Quelqu'un pourrais me dire que est le problème à mon codage?


Sub Mail()
If MsgBox("Voulez-vous envoyer un mail au fournisseur de la facture sélectionné?", vbYesNo, "Confirmation") = vbYes Then
    Dim MonMail As Variant
    Dim Fichier As Variant
        Fichier = Application.GetOpenFilename(, , "Sélection du fichier", , "")
            MsgBox Fichier
            If Fichier = "" Then
            MsgBox ("Aucune sélection, tâche annulée")
            Exit Sub
            End If
                ActiveCell.Copy Destination:=Sheets("DATA BASE").Range("AA2")
                Set MonMail = CreateObject("outlook.application")
                    With MonMail.Createitem(olmailitem)
                                .Subject = "Mail de confirmation"
                                .To = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 3, False)
                                .CC = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 4, False)
                                .Body = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 5, False)
                                .Attachement.Add Fichier
                                .Display
                    End With
            End If
    
End Sub



Configuration: Windows / Chrome 77.0.3865.90
Afficher la suite 

1 réponse

Messages postés
26522
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 octobre 2019
1833
0
Merci
Bonjour,

Attachements avec un S
.Attachments.Add Fichier

Merci pour la réponse Jordane
C’était simple mais il fallait le remarquer.
:)
Commenter la réponse de jordane45