Discussion :

[Seb38000]

Bonjour,

Je ne trouve pas de réponse sur mon sujet.

J envoi un mail tous les jours avec un fichier excel qui porte le même nom, mais il faut que je mette la date du jour dans l'objet....

Comment je peux faire.....

Avez vous une solution ou une astuce..

Merci

Sébastien

[curt]

Bonsoir Seb,

sur l'évènement ItemSend tu peux mettre la date dans l'objet en passant par VBA

Curt

[Oliv-]

Bonjour Sébastien,

Je ne comprends pas bien ce qui te pose problème ? taper la date ?
Pour insérer une date il y a un icone dans INSERTION / date et heure, mais il faut être dans le corps du mail, tu peux ensuite faire un copié collé.
Quel type de solution cherches tu ? une MACRO VBA ?

[curt]

Salut Seb,

tu peux en passant par VBA faire ça :

Code :

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

1
2
3
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Item.Subject = Now & " - " & Item.Subject
End Sub

On pourrait y ajouter un test pour activer l'ajout de la date le nom de la pièce attachée.

Curt

[Oliv-]

Salut Seb,

tu peux en passant par VBA faire ça :

Code :

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

1
2
3
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Item.Subject = Now & " - " & Item.Subject
End Sub

On pourrait y ajouter un test pour activer l'ajout de la date le nom de la pièce attachée.

Curt

Tel quel tous les emails envoyés aurons la date en +

[curt]

Salut Oliv,

Effectivement, d'où ma réflexion :

On pourrait y ajouter un test pour activer l'ajout de la date selon le nom de la pièce attachée.

Voilà qui devrait te satisfaire :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
Dim i As Integer
 
    For i = 1 To Item.Attachments.Count
        If Item.Attachments.Item(i).FileName = "MonFichierXL.XLSX" Then Item.Subject = Now & " - " & Item.Subject
    Next
 
End Sub

Curt