senkeys vba

[debrais]

Bonjour,

dans une macro Excel, j'utilise la commande
ActiveWorkbook.SendMail Recipients:="exemple@test.fr"
pour envoyer mon classeur par mail via Outlook 2000 (ça fonctionne)
Le pb c'est que j'ai systématiquement une boîte de dialogue d'Outlook (avertissement) qui me demande si je suis d'accord pour envoyer ce mail
(Oui, Non, Annuler) (Non par défaut)
Je souhaite mettre dans ma macro, une cde qui validera automatiquement le bouton "Oui"
J'utilise la cde suivante Application.SendKeys "{TAB}{ENTREE}" mais cela ne fonctionne pas

Ou est l'erreur SVP ?
Merci
A+

 

[sousou]

1/ Il faut activer le canal vers l'application en question.
Voir aide sur appactivate N° du canal ou nom de l'appli Windows
2/ S'assurer que l'application est prète à recevoir le sendkeys
Utiliser une boucle d'attente si nécessaire.


Un exemple avec le jeu de carte

sub test()
appli = Shell("C:\windows\freecell.exe", 1)

AppActivate appli 'Chargement de l'image
attendre (2)
SendKeys "%pn", 1

End Sub

Sub attendre(temps)
début = Timer
While Timer < début + temps
Wend
End Sub