XL 2010 Envoyer tous les fichiers d'un Dossier

[filiph79]

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

 

[filiph79]

Bonjour,

Finalement, j'ai réussi à "créer " le code ci-dessous en compilant quelques codes trouvés sur Internet .....
A priori ça marche mais j'ai quelques interrogations notamment sur la ligne :
Set MonMail = Ol.createitem(olMailItem)

Je n'ai aucune majuscule sur createitem alors que creatObject OUI ... ??
Si je rends la déclaration de variable obligatoire (Option Explicit) Excel Met une erreur sur OlMailItem

Sub mail_test()
Dim Ol As Object, MonMail As Object
Dim Fichier As String, Dossier As String

Dossier = "C:\EXCEL\" 'pour Définition de dossier contenant les fichiers
Fichier = Dir(Dossier) ' Pour parcourir le dossier

Application.DisplayAlerts = False

Set Ol = CreateObject("outlook.application")
Set MonMail = Ol.createitem(olMailItem)

With MonMail
.to = "filiphbt@gmail.com"
.Subject = "Envoi Fichier"
.body = "Veuillez Trouver les Fichiers en PJ......"
Do While Fichier <> ""
.Attachments.Add Dossier & Fichier
Fichier = Dir
Loop
.send
End With
Set Ol = Nothing
End Sub

SI vus avez quelques explications à me fournir .....
Merci d'avance