Nouveau message au contact dans Outlook - VB/VBA/VBS - Programmation
Marsh Posté le 10-09-2005 à 12:59:43
A tu essayer de modifier le %(s) dans Msg_contact_copie_XYZ()
Car à priori le %(S) correspond maintenant au carnet d'adresse et non plus à nouveau message... Mais de toute façon le Pb vient de là...
@+
Marsh Posté le 12-09-2005 à 08:27:03
J'ai fait quelques tests et apparement le "Nouveau message au contact" se trouve dans le menu actions (d'où le Alt+S).
@+
Marsh Posté le 21-09-2005 à 10:51:27
Petit up, personne n'a une idée d'où viendrait le problème? J'ai essayé sur les autres postes et cette macro marche mais sur le mien, elle bug 0_o
Marsh Posté le 08-09-2005 à 15:56:03
Bonjour tout le monde,
J'avais une macro plutôt "roots" qui marchait bien mais récemment elle bug et je ne sais pas d'où cela peut-il venir. Ce qu'elle faisait c'est qu'on allait sur un contact, on cliquait et ça mettait automatiquement certains destinataires. Par contre, maintenant, ça ne m'ouvre pas de fenêtre avec un nouveau message mais ça m'ouvre une fenêtre pour créer un nouveau contact
Sub XYZ()
SendKeys "x@xyz.com"
SendKeys "; "
SendKeys "y@xyz.com"
SendKeys "{tab}"
End Sub
Sub Msg_contact_copie_XYZ()
SendKeys "%(s)"
SendKeys "m"
SendKeys "{ENTER}"
SendKeys "{ENTER}"
SendKeys "{ENTER}"
SendKeys "{BACKSPACE}"
SendKeys "{BACKSPACE}"
SendKeys "{BACKSPACE}"
SendKeys "+({tab})"
SendKeys "+({tab})"
Call XYZ
End Sub
Etrangement, celle ci fonctionne toujours:
Sub Msg_repond_copie_boss()
SendKeys "^(r)"
SendKeys "+({tab})"
SendKeys "+({tab})"
Call XYZ
SendKeys "{tab}"
End Sub
Merci de votre aide
Stef