expatriechili
Messages postés2Date d'inscriptionmardi 6 juin 2006StatutMembreDernière intervention 7 juin 2006
-
6 juin 2006 à 23:49
expatriechili
Messages postés2Date d'inscriptionmardi 6 juin 2006StatutMembreDernière intervention 7 juin 2006
-
7 juin 2006 à 15:40
Bonjour,
j'ai une petite colle qui n'en sera peut être pas une pour les plus expérimentés d'entre vous, à savoir :
Au sein d'outlook (2003), si on a créé un répertoire "Perso", peut on créer une macro VB permettant, lorsqu'on se situe sur un message de la boite de réception, de basculer le message dans perso, à l'aide d'une combinaison de touches...
Mes recherches m'ont jusqu'à maintenant fait douter de la faisabilité, mais j'attends que quelqu'un puisse me détromper...
Polack77
Messages postés1098Date d'inscriptionmercredi 22 mars 2006StatutMembreDernière intervention22 octobre 20191 7 juin 2006 à 14:16
Bonjour,
Je viens de regarder, et, en effet il ne semble pas possible de crée des racorcis clavier pour Outlook 2003 (tout du moin de la façon d'ont on s'y prend soit avec "KeyBindings.Add"). Il ne semble pas possible non plus de crée une barre d'outils (pour Outlook). Par contre il est possible de crée une barre d'outils dans un message que l'on écrit.
Donc pour moi ce que tu veut faire ce n'est pas possible (à moin que tu ne fasse une application qui détect le racourcis que tu veut utilisé puis qui fait par DDE la modif dans Outlook, si non je ne sais pas ).
Si tu ne sait pas faire de DDE je te donne ce petit bout de code :
Private Sub test()
Dim MyOutlook As Object
Set MyOutlook = GetObject(, "Excel.Application")
'ici tu fait tes traitement du type "MyOutlook.Application.Quit" qui ferme Outlook
Set MyOutlook = Nothing
End Sub
Polack77
Messages postés1098Date d'inscriptionmercredi 22 mars 2006StatutMembreDernière intervention22 octobre 20191 7 juin 2006 à 14:20
Heeeeeeeeeee, pardon le bout de code c'est :
Private Sub test()
Dim MyOutlook As Object
Set MyOutlook = GetObject(, " Outlook
.Application")
'ici tu fait tes traitement du type "MyOutlook.Application.Quit" qui ferme Outlook
Set MyOutlook = Nothing
End Sub
Et avec ce code (celui de dessus) il faut que outlook soit ouvert si non c'est :
Set MyXl = CreateObject("Outlook.Application") 'Qui lui ouvre Outlook
expatriechili
Messages postés2Date d'inscriptionmardi 6 juin 2006StatutMembreDernière intervention 7 juin 2006 7 juin 2006 à 15:40
Salut,
et merci pour ces contributions... Ca confirme ce que je pensais... à priori il faut que l'appli soit au sein d'Outlook, donc si quelqu'un a une idée...
Merci encore,