Bonjour,

Problème : Impossible d'utiliser objMessage.AddAttachment avec une variable.
Explication : Je possède dans un dossier en local sur mon poste, différents fichiers .pdf de la forme : JJ-MM-AAAA.pdf
Je souhaiterais envoyer en pièce jointe, le fichier correspond à la date actuelle.
Exemple : Nous somme le 13-7-2010, je souhaiterais envoyer le fichier en pièce jointe : 13-7-2010.PDF


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim madate
 
madate = Day(Now) & "-" & Month(Now) & "-" & Year(now)
 
Set objMessage = CreateObject("CDO.Message")
 
objMessage.Subject = "test"
objMessage.From = "@mail"
objMessage.To = "@mail"
objMessage.TextBody = "test"
objMessage.AddAttachment "c:\chemin\" & madate & ".pdf"
 .......
MERCI