Discussion :

[math345]

bonjour,

j'aimerais avoir un coup de main pour pouvoir créé un script pour pouvoir envoyer un mail avec une pièce jointe si celle-ci a été modifié dans la journée. sinon il ne faut pas l'envoyer.

je vous remercie d'avance pour votre aide.

[l_autodidacte]

Bonjour et BIENVENU sur DVP;

Pour envoyer un mail avec pièce jointe, regarde cette discussion.

Pour l'envoi du fichier du jour, il faut mettre une condition sur la date de dernière modification du fichier et ce AVANT LA LIGNE objEmail.Send, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\FichierAEnvoyer") ' mettre le chemin complet du fichier
If Day(f.DateLastModified) <> Day(Date) Then
    MsgBox "Le fichier ne date pas d'aujoud'hui, l'envoi est annulé."
    Wscript.Quit
End If

[math345]

Merci pour votre réponse rapide.
Je vais essayer cela, étant pas du domaine de la programmation, je reviendrais vers vous si j'ai d'autre problème.