erreur : *' is not declared. it may be inaccessible due to its protection level
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:
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.
