Discussion :

[eugesippe]

Bonjour,

J'ai une boite mail 1) sur laquelle je redirige des mails reçus dans une autre boite 2)
Dès réception dans la boite mail 2), une règle vérifie l'expéditeur et certains mots clefs dans "objet". Si l'expéditeur est conforme ainsi que le mot clef, un son wav est joué et une macro qui ouvre une page web est exécutée (et le mail est supprimé).


Jusque là tout fonctionne correctement

Le souci c'est que seuls les mails qui arrivent après m'être connecté m'intéressent, tout ceux que je reçois alors que je ne n'ai pas lancé Outlook, envoyé par la boite 1) ne doivent pas déclencher la macro.
Il faut donc que je teste la date / heure dans la macro et la comparer avec ????
C'est là que je bloque !

Auriez vous une idée ? Voici la macro qui ouvre la page web

Code :

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

1
2
3
4
Sub macro(MyItem as MailItem)
      navigate = "adresse web"
      Shell ("C:\Program Files\Internet Explorer\iexplore.exe " & navigate)
End Sub

Merci pour votre aide

[eugesippe]

J'ai fait quelques tests, voici ou j'en suis actuellement, on teste la date et l'heure du réception du mail. Si la date = aujourd'hui on affiche la page. Ensuite (quelque soit le cas) on supprime le mail.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub macro(MyItem As MailItem)
      Dim recu As String
      Dim jour As String
      recu = MyItem.ReceivedTime
      jour = Left(recu, 10)
      If jour = Date Then
         ' MsgBox jour & " " & Date / pour visualiser les chaines recu et jour
         navigate = "https://site_internet.com"
         Shell ("C:\Program Files\Internet Explorer\iexplore.exe " & navigate)
      End If
      MyItem.Delete
End Sub

Il ne me reste plus qu'à faire un test sur l'heure ...