Bonjour à tous,
Je souhaite envoyer un fichier EXCEL via OUTLOOK. La procédure ci-dessous marche correctement, mais je voudrais que ce soit le fichier le plus récent du répertoire "RETOUR FICHIER" qui soit sélectionné pour l'envoi.
Merci par avance pour votre retour.
Bonne soirée.
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
Nom_Fichier = "C:\Production\Retour FICHIER\BPC 06 01 2020.xlsx"
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
With oBjMail
.To = "polop@entreprise.com" ' le destinataire
.Subject = "BPC" ' l'objet du mail
.Body = "Bonjour, Vous trouverez ......"
.Attachments.Add Nom_Fichier
.Display '
.Send
End With
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub