Bonjour le forum,
Je souhaiterai envoyer par mail plusieurs pièces jointes stockées dans un dossier .
Je sais actuellement envoyer un Fichier en utilisant le code ci dessous :
Sub mail()
Dim ol As Object, monmail As Object
Application.DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
With monmail
.To = "filiphbt@gmail.Com"
.Subject = "Envoi Fichier"
.Body = "Modifications apportées au planning de fabrication"
.attachments.Add "c:\EXCEL\classeur2.xlsx"
.Send
End With
Set ol = Nothing
End Sub
ME fichiers sont stockés dans le dossier C:\Excel et peuvent être de format différents (pdf, Docx, Txt, XLSX.....
Merci pour votre aide
Philippe
Je souhaiterai envoyer par mail plusieurs pièces jointes stockées dans un dossier .
Je sais actuellement envoyer un Fichier en utilisant le code ci dessous :
Sub mail()
Dim ol As Object, monmail As Object
Application.DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
With monmail
.To = "filiphbt@gmail.Com"
.Subject = "Envoi Fichier"
.Body = "Modifications apportées au planning de fabrication"
.attachments.Add "c:\EXCEL\classeur2.xlsx"
.Send
End With
Set ol = Nothing
End Sub
ME fichiers sont stockés dans le dossier C:\Excel et peuvent être de format différents (pdf, Docx, Txt, XLSX.....
Merci pour votre aide
Philippe
Dernière édition: