Démarrer macro Excel via Outlook

[Spock]

Bonjour toutes et tous,
Ma macro Excel, fonctionne nickel, mais je souhaites la faire démarrer dès que j'envoie un mail à des destinataires précis. Est-ce possible ? Quelqu'un a déjà fait ça ?

Une idée ?

Merci, Spock pas à la maison !!

 

[MichelXld]

bonjour Spock

il existe des evenements dans le VBA Outlook2002 ( je ne sais pas pour les autres versions)

dans l'éditeur de macros outlook (Alt+F11)
clique sur ThisOutlookSession dans l'explorateur de projet

en haut de l'editeur , remplace 'General' par 'Application' ( menu deroulant )

dans le menu déroulant de droite , s'affiche la liste des evenements associés

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
Private Sub Application_AdvancedSearchStopped(ByVal SearchObject As Search)
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Private Sub Application_MAPILogonComplete()
Private Sub Application_NewMail()
Private Sub Application_OptionsPagesAdd(ByVal Pages As PropertyPages)
Private Sub Application_Quit()
Private Sub Application_Reminder(ByVal Item As Object)
Private Sub Application_Startup()


La procédure evenementielle Outlook ci dessous , déclenche la macro Excel 'maProcedure' au moment de l'envoi d'un Mail , si le sujet du message est 'Test'
Dans cet exemple il existe prealablement un classeur Excel ouvert contenant une macro nommée 'maProcedure'


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim ExcelApp As Object
Set ExcelApp = GetObject(, 'Excel.Application')

If Item = 'Test' Then ExcelApp.Run 'maProcedure'
End Sub


bon apres midi
MichelXld

 

[Spock]

Bonjour Michel,

Je ne suis plus au boulot, j'essayerai demain, mais ça à l'air superbe.

J'ai déjà vérifier dans les macros il existe effectivement ItemSend Outlok 2000.

Je m'aperçois que j'ai oublié de mentionner que le fichier Excel est sur le PC à coté, lié via réseau, ça marchera aussi ?

Merci beaucoup....