Problème d'ajout de pièces jointe multiples dans mail outlook depuis excel et vba

[JPS]

Bonjour à tous,

Je crée une petite application d'envoi de mail avec adjonction de pièces jointes automatique.
Les pièces jointes sont des fichiers divers (nombre de fichiers variable).
Les fichiers joints sont contenus dans le répertoire C:\ENVOI\
La macro que j'ai créé ne fonctionne pas (les pièces jointes ne sont pas jointes).
Aucun message d'erreur n'est renvoyé ?

Quelqu'un aurait une petite idée ?

Merci beaucoup

Voilà le code :

Sub ENVOI_SYN()
' Création de l'e-mail d'envoi

Dim OutApp As Object
Dim OutMail As Object

Dim Chemin As String
Dim Fichier As String

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

' Création de l'e_mail
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail

' affectation des pièces jointes
'Définit le répertoire contenant les fichiers
Chemin = "C:\ENVOI\"

'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
Fichier = Dir(Chemin & "*.*")

Do While Len(Fichier) > 0

.Attachments.Add Fichier

Fichier = Dir()
Loop

.Display

End With
On Error GoTo 0


Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True

End Sub

 

[JPS]

Re : Problème d'ajout de pièces jointe multiples dans mail outlook depuis excel et vb

J'ai trouvé le problème.
En fait il fallait mettre :

.Attachements.Add Chemin & Fichier