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
Lors de l'exécution du script, le message d'erreur suivant, s'affiche : Le fichier spécifié est introuvable.
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
Merci pour votre aide.
Partager