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 :
Pour plusieurs lignes j'ai le message :
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
'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.
Partager