objMessage.AddAttachment avec pour chemin, une variable
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:
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.
