Action a louverture d'outlook vba
Résolu
Berorn
Messages postés
31
Statut
Membre
-
Berorn Messages postés 31 Statut Membre -
Berorn Messages postés 31 Statut Membre -
Bonjour,
Je cherche à afficher un message à l'ouverture d'Outlook. Jusqu'à là pas de problème j'ai mis un morceaux de code dans le startup du vbe.
Mais je voudrais que ce message s'affiche qu'une fois par jour. Imaginons j'ouvre Outlook une première fois, il me mets par exemple un msgbox. Je ferme l'application et je l'ouvre de nouveau, et la il me mette rien. Sauf le lendemain...
Avez-vous une solution ?
Merci
Je cherche à afficher un message à l'ouverture d'Outlook. Jusqu'à là pas de problème j'ai mis un morceaux de code dans le startup du vbe.
Mais je voudrais que ce message s'affiche qu'une fois par jour. Imaginons j'ouvre Outlook une première fois, il me mets par exemple un msgbox. Je ferme l'application et je l'ouvre de nouveau, et la il me mette rien. Sauf le lendemain...
Avez-vous une solution ?
Merci
A voir également:
- Action a louverture d'outlook vba
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Concurrent action - Guide
- Vous devez disposer d'une autorisation pour effectuer cette action - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
- Magasin moins cher qu'action - Guide
2 réponses
Bonjour,
on devrait pouvoir l'inscrire dans une tâche, mais vu que je ne connais pas les macros outlook pour créer, tester puis supprimer le lendemain, je préfère créer un fichier texte avec la date de dernière exécution.
Fait sur excel, non testé sur outlook :
eric
on devrait pouvoir l'inscrire dans une tâche, mais vu que je ne connais pas les macros outlook pour créer, tester puis supprimer le lendemain, je préfère créer un fichier texte avec la date de dernière exécution.
Fait sur excel, non testé sur outlook :
Private Sub Application_Startup()
Dim numfich As Integer, i As String
If Dir("c:\tmp", 16) = "" Then MkDir "c:\tmp"
' lecture date
numfich = FreeFile
On Error GoTo suite
Open "c:\tmp\dateOutlook.txt" For Input Lock Read Write As #numfich
On Error GoTo 0
Input #numfich, i
Close #numfich
suite:
On Error GoTo 0
If i <> Format(Date, "dd/mm/yyyy") Then
' ta macro
'...
' ecriture date
numfich = FreeFile
Open "c:\tmp\dateOutlook.txt" For Output Lock Read Write As #numfich
Print #numfich, Date
Close #numfich
End If
End Sub
eric
