Comment appeler une procédure VBA outlook depuis VB visual studio ?

**ArMen56K** · 08/10/2015, 19h44

Salut à tous,
J'ai programmé des procédures complexes en VBA dans outlook, et je voudrais tout simplement les lancer depuis un programme en visual basic depuis visual studio.
J'ai plein d'exemples qui marchent pour créer une nouvelle tâche, un nouvel email, etc. Mais rien pour lancer directement une procédure VBA.

Si je prends un petit code tout simple en VBA dans outlook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub NomDeLOrdi()
MsgBox ("Bonjour depuis VBA Outlook")
End Sub

Comment faire pour le lancer depuis visual studio, en visual basic?

J'ai vraiment regardé partout, je n'y arrive pas.
Je ne comprends pas où se situent ces procédures dans l'Outlook object model et comment les appeler: J'ai cru comprendre que ça passe par la classe application, mais rien ne marche.
Je ne trouve rien qui m'aide quand j'épluche le Microsoft.Office.Interop.Outlook...

Je promets une bière virtuelle à mon sauveur

**clementmarcotte** · 08/10/2015, 20h12

Bonjour,

Quand j'avais Outlook, c'était encore sans VBA.

Avec Excel, c'est Application.run(nom_de_macro)

en théorie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim appOL as new Microsoft.Office.Interop.Outlook.application
sub macrooutlook()
    dim appOL as new Microsoft.Office.Interop.Outlook.application
    appOL.run(nom_de_macro)
End sub

En gros, c'est la même chose que si tu pilotais Outlook à partir d'Excel, sauf qu'il faut adapter l'appel des objets aux conventions .net
Tu peux toujours regarder l'aide VBA d'Outlook en l'adaptant aux objets .net.

Également, une place à connaître sur MSDN:

https://msdn.microsoft.com/fr-fr/lib.../dn467914.aspx

**ArMen56K** · 08/10/2015, 22h32

j'essaie mais ça ne marche pas:
dans Microsoft.Office.Interop.Excel, dans la classe application,
on a effectivement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Overridable Function Run(Optional Macro As Object, Optional Arg1 As Object, Optional Arg2 As Object, Optional Arg3 As Object, Optional Arg4 As Object, Optional Arg5 As Object, Optional Arg6 As Object, Optional Arg7 As Object, Optional Arg8 As Object, Optional Arg9 As Object, Optional Arg10 As Object, Optional Arg11 As Object, Optional Arg12 As Object, Optional Arg13 As Object, Optional Arg14 As Object, Optional Arg15 As Object, Optional Arg16 As Object, Optional Arg17 As Object, Optional Arg18 As Object, Optional Arg19 As Object, Optional Arg20 As Object, Optional Arg21 As Object, Optional Arg22 As Object, Optional Arg23 As Object, Optional Arg24 As Object, Optional Arg25 As Object, Optional Arg26 As Object, Optional Arg27 As Object, Optional Arg28 As Object, Optional Arg29 As Object, Optional Arg30 As Object) As Object
    Membre de Microsoft.Office.Interop.Excel.ApplicationClass

mais dans Microsoft.Office.Interop.Outlook, dans la classe application, il n'y a pas de fonction run...

**clementmarcotte** · 08/10/2015, 22h45

Bonjour,

Si tu le n'as pas sur ta machine, tu peux télécharger l'aide de VBA Office 2013:

https://www.microsoft.com/en-us/down....aspx?id=40326

Il va falloir que tu écumes les méthodes de l'objet Application d'Outlook, pour voir s'il n'y a pas quelque chose ressemblant à Run.

Ou bien que tu ailles fouiller à partir de là:

https://msdn.microsoft.com/fr-fr/lib...ffice.14).aspx

**ArMen56K** · 08/10/2015, 22h52

merci pour tes réponses. J'ai déjà cherché en vain dans tout ce que tu me dis depuis plusieurs jours... et aussi sur google, en français, en anglais, et je ne trouve rien qui fonctionne. La bière virtuelle est à nouveau en jeu!