Bonjour tout le monde,

J'ai un petit souci sur VS 2010. Je souhaite ajouter un ruban sur office 2007 afin d'y inclure des macros de mail automatique. Ces macros fonctionnent très bien sur Outlook mais dans un soucis d'ergonomie et esthétisme je voudrais les placer sur un nouveau ruban.

Le problème est le suivant, lorsque j'applique ma macro au bouton j'ai plusieurs message d'erreur.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Imports Microsoft.Office.Tools.Ribbon
 
Public Class Ribbon1
 
    Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
        Dim oMail As Outlook.MailItem
        Dim oFSO
        Dim oFS
        If Application.ActiveExplorer.Selection.Count Then
            If TypeOf Application.ActiveExplorer.Selection(1) Is Outlook.MailItem Then
                oMail = Application.ActiveExplorer.Selection(1).Reply
 
                oFSO = CreateObject("Scripting.FileSystemObject")
 
                oFS = oFSO.OpenTextFile("D:\Documents\Logimec\Desktop\testos.htm")
 
 
                stext = oFS.ReadAll
                oMail.BodyFormat = olFormatHTML
                oMail.HTMLBody = stext & vbCr & oMail.HTMLBody
                oMail.Display()
            End If
        End If
    End Sub
End Class
Pour plusieurs lignes j'ai le message :

'application' is not declared. it may be inaccessible due to its protection level
'stext' is not declared. it may be inaccessible due to its protection level
'olFormatHTML' is not declared. it may be inaccessible due to its protection level

Avez vous une idée de l'origine de cette erreur ?

Merci d'avance.