Bonjour,
J'ai trouvé ce programme dans ce forum pour envoyer un email à partir des tâches planifiées. Quand je le passe dans un débogueur je n'ai pas de message d'erreur mais il n'exécute pas la macro dans Outlook. Est-ce que quel'un peut me dire pourquoi. L'affichage du message du email ouvert fonctionne.
Que je l'exécute avec Wscript ou Cscript le résultat est le même. J'ai enlevé WScript.CreateObject parce que j'avais un message d'erreur dans le débogueur. Et j'ai trouvé une information qui disait que s'était pour être utilisé dans une autre situation.

Merci à l'avance de votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'##############DEBUT ###############
'By Oliv 29 juin 2007
'Lance une macro dans OUTLOOK
Dim theApp, theNameSpace, theMailItem
'Set theApp = WScript.CreateObject("Outlook.Application")
Set theApp = CreateObject("Outlook.Application")
Set theNameSpace = theApp.GetNamespace("MAPI")
On error resume next
'ici on lance une macro du nom de toto dans Outlook.
Call theapp.toto
'on peut afficher par exemple le sujet du mail actif .
Set theMailItem = theApp.activeInspector.currentitem
Msgbox "Le mail actif est " & theMailItem.subject
 
 
set theapp = nothing
Set theNameSpace= Nothing
Set theMailItem= Nothing
'##############FIN##############################"