envoyer automatiquement et périodiquement un message

[kuhnden]

Bonjour,

Je souhaite envoyer tous les mercredi le même message à une adresse afin que la personne n'oublie pas la chose qu'elle doit faire ce jour la.
Je sais qu'il y a une possibilité de plannifier une tache sur l'outlook du destinataire mais je préfère envoyé un mail.
Est-ce possible ?

Merci

Nicolas

[Heureux-oli]

Vérifier lors de l'ouverture de Outlook le jour de la semaine et envoyer un mail si ce jour est un mercredi.

Pour être certains que Outlook s'ouvre le mercredi, le mettre dans les tâches planifiées.

[Tofalu]

Une version assez simpliste :

1. Le message est d'abord créer en brouillon et sauvegarder et l'objet est "Impératif"
2. A l'ouverture d'outlook, si on est mercredi, VBA envoi le message
3. Le jour suivant, il récupère le message dans les éléments envoyés pour le mettre dans les brouillons pour préparer le mercredi suivant.

Avantage, aprés le premier envoi du mercredi le message n'est plus envoyable puisqu'il n'apparait plus dans les brouillons, il le redeviendra le lendemain ou aprés.

Evéidemment, il faudrait peaufiner avec des gestion d'erreurs, pour vérifier notamment qu'il a bien été envoyé et non resté en boite d'envoi mais ça me parait une bonne piste non ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Application_Startup()
On Error Resume Next
'Vérifie la date
Select Case Weekday(Now)
    Case vbWednesday:
        Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts).Items("Impératif").Send
    Case Else:
        Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items("Impératif").Move Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)
End Select
 
 
End Sub

[Oliv-]

Bonjour,
une autre solution avec le gestionnaire de tache windows en vbs.
Pour executer une macro toutes les x minutes ou à tel autre moment avec un VBSCRIPT et le gestionnaire de taches
qui va lancer une macro VBA !!!



Dans un fichier que vous appelerez ontime_outlook.vbs collez le code ci-dessous.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
'##############DEBUT ###############
'By Oliv 29 juin 2007
'Lance une macro dans OUTLOOK
   Dim theApp, theNameSpace, theMailItem
     Set theApp = WScript.CreateObject("Outlook.Application")
     'Set theNameSpace = theApp.GetNamespace("MAPI")
On error resume next
'on peut afficher par exemple le sujet du mail actif .
     Set theMailItem = theApp.activeInspector.currentitem
Msgbox "Le mail actif est " & theMailItem.subject
 
'ici on lance une macro du nom de toto dans Outlook.
Call theapp.toto
 
  set theapp = nothing
  Set theNameSpace= Nothing
  Set theMailItem= Nothing
'##############FIN##############################"
 
Dans le gestionnaire de taches de windows ajoutez l'execution du fichier selon la période voulu.
 
dans outlook créez votre macro toto
 
Sub toto()
 
MsgBox "ca marche !!"
 
End Sub

Oliv'