sendkeys pour piloter outlook

[29coco29]

Bonjour,

Je souhaite ouvrir une macro dans outlook (2010) à partir d'une macro excel :

Mon code fonctionne que si je n'ai qu'une seule macro outlook, comme j'ai du en créer une seconde, j'ai ajouté un sendkeys down, mais rien ne se passe :


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub envoi_Outlook()
Dim applOu As New Outlook.Application
Set applOu = Outlook.Application
Shell ("C:\Program Files (x86)\Microsoft Office\OFFICE14\OUTLOOK.EXE"), vbMaximizedFocus
Sleep 1500
applOu.Application.ActiveWindow
Application.SendKeys ("%{F8}"), True
Application.SendKeys ("{DOWN}"), True
Application.SendKeys ("%A"), True
Sleep 15000
End Sub


Si quelqu'un a une idée, je suis prête à tester ... merci d'avance.