Bonjour à tous,

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 .txt de la forme : JJ-MM-AA.txt

Je souhaiterais envoyer en pièce jointe, le fichier correspond à la date actuelle.

Exemple : Nous sonne le 06-10-2008, je souhaiterais envoyer le fichier en pièce jointe : 06-10-2008.txt
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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:\log\" & madate & ".txt"
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "@smtp"
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
objMessage.Configuration.Fields.Update
 
objMessage.Send
Lors de l'exécution du script, le message d'erreur suivant, s'affiche : Le fichier spécifié est introuvable.

Merci pour votre aide.