Bonjour,
Mon code actuel fait une boucle dans un répertoire pour retenir en pièces jointes uniquement les fichiers du jour lastmodifieddate>=date.
contrainte : retenir uniquement fichiers du jour modifiés en date du jour de l''envoie quelque soit le format/extension.
le programme s’arrête lorsqu'une condition est remplie et n'attache qu'un seul et unique document word certes bien modifié en date du jour.
au lieu d'attacher l'ensemble des docs modifiés du jour.
Le programme devrait attacher tous les docs modifiés du jour au lieu de s’arrêter a la première itération.
code :
Dim fso As Object
Dim strFile As String
Dim fsoFile
Dim fsoFldr
Dim dtNew As Date, sNew As String
strFile = "Z:\test"
Set fsoFldr = fso.GetFolder(strFile)
For Each fsoFile In fsoFldr.Files
If fsoFile.DateCreated >= Date Then
sNew = fsoFile
End If
Next fsoFile
With OutMail
.To = contact
.CC = contactcopy
.Subject = objet1
.HTMLBody = "Test"
.Attachments.Add sNew
.display
End With
Merci par avance
Tarik