OutlookPlugin/MyAddIn/Connect.Dsr

VERSION 5.00
Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} Connect 
   ClientHeight    =   7215
   ClientLeft      =   1740
   ClientTop       =   1545
   ClientWidth     =   6585
   _ExtentX        =   11615
   _ExtentY        =   12726
   _Version        =   393216
   Description     =   "Sample Outlook Add-In"
   DisplayName     =   "MyAddIn"
   AppName         =   "Microsoft Outlook"
   AppVer          =   "Microsoft Outlook 9.0"
   LoadName        =   "Startup"
   LoadBehavior    =   3
   RegLocation     =   "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook"
End
Attribute VB_Name = "Connect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
   Option Explicit

   Dim oHostApp As Object
   Dim cmdBarControl As Office.CommandBarControl
   Dim WithEvents MyButton As Office.CommandBarButton
Attribute MyButton.VB_VarHelpID = -1
   
    Const cfgButtonTag As String = "ldapSyncButton"
    Const cfgButtonLabel As String = "Synchronize"
   
   Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
    ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
    ByVal AddInInst As Object, custom() As Variant)
      
      Dim oCommandBars As Office.CommandBars
      Dim oStandardBar As Office.CommandBar
   
      On Error Resume Next
      
      Set oHostApp = Application
      
      MsgBox "My Addin started in " & Application.Name
      
    ' Set up a custom button on the "Standard" commandbar...
      Set oCommandBars = oHostApp.CommandBars
      If oCommandBars Is Nothing Then
       ' Outlook has the CommandBars collection on the Explorer object
         Set oCommandBars = oHostApp.ActiveExplorer.CommandBars
      End If
   
      Set oStandardBar = oCommandBars.Item("Standard")
    
      'Set MyButton = oHostApp.CommandBars("Standard").Controls.Add(1)
      
        ' delete button in toolbar
        Set cmdBarControl = oStandardBar.FindControl(, , cfgButtonTag)
        cmdBarControl.Delete
        
        ' add button to toolbar
        Set MyButton = oStandardBar.Controls.Item(cfgButtonLabel)
         
         If MyButton Is Nothing Then
      
          Set MyButton = oStandardBar.Controls.Add(1)
             With MyButton
                
                .Caption = cfgButtonLabel
                
                .Style = msoButtonCaption
    
              ' The following items are optional, but recommended.
              ' The Tag property lets you quickly find the control
              ' and helps MSO keep track of it when there is more than
              ' one application window visible. The property is required
              ' by some Office applications and should be provided.
    
                .Tag = cfgButtonTag
     
              ' The OnAction property is optional but recommended.
              ' It should be set to the ProgID of the add-in, such that if
              ' the add-in is not loaded when a user presses the button,
              ' MSO loads the add-in automatically and then raises
              ' the Click event for the add-in to handle.
    
                .OnAction = "!<" & AddInInst.ProgId & ">"
    
                .Visible = True
                
             End With
        End If
   
   End Sub

   Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As _
      AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
      On Error Resume Next
      MsgBox "My Addin was disconnected by " & _
         IIf(RemoveMode = ext_dm_HostShutdown, _
         "Excel shutdown.", "end user.")
      
      MyButton.Delete
      
      Set MyButton = Nothing
      Set oHostApp = Nothing
    End Sub

   Private Sub MyButton_Click(ByVal Ctrl As Office.CommandBarButton, _
     CancelDefault As Boolean)
      MsgBox "Our CommandBar button was pressed!"
   End Sub


1	VERSION 5.00
2	Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} Connect
3	ClientHeight = 7215
4	ClientLeft = 1740
5	ClientTop = 1545
6	ClientWidth = 6585
7	_ExtentX = 11615
8	_ExtentY = 12726
9	_Version = 393216
10	Description = "Sample Outlook Add-In"
11	DisplayName = "MyAddIn"
12	AppName = "Microsoft Outlook"
13	AppVer = "Microsoft Outlook 9.0"
14	LoadName = "Startup"
15	LoadBehavior = 3
16	RegLocation = "HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook"
17	End
18	Attribute VB_Name = "Connect"
19	Attribute VB_GlobalNameSpace = False
20	Attribute VB_Creatable = True
21	Attribute VB_PredeclaredId = False
22	Attribute VB_Exposed = True
23	Option Explicit
24
25	Dim oHostApp As Object
26	Dim cmdBarControl As Office.CommandBarControl
27	Dim WithEvents MyButton As Office.CommandBarButton
28	Attribute MyButton.VB_VarHelpID = -1
29
30	Const cfgButtonTag As String = "ldapSyncButton"
31	Const cfgButtonLabel As String = "Synchronize"
32
33	Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
34	ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
35	ByVal AddInInst As Object, custom() As Variant)
36
37	Dim oCommandBars As Office.CommandBars
38	Dim oStandardBar As Office.CommandBar
39
40	On Error Resume Next
41
42	Set oHostApp = Application
43
44	MsgBox "My Addin started in " & Application.Name
45
46	' Set up a custom button on the "Standard" commandbar...
47	Set oCommandBars = oHostApp.CommandBars
48	If oCommandBars Is Nothing Then
49	' Outlook has the CommandBars collection on the Explorer object
50	Set oCommandBars = oHostApp.ActiveExplorer.CommandBars
51	End If
52
53	Set oStandardBar = oCommandBars.Item("Standard")
54
55	'Set MyButton = oHostApp.CommandBars("Standard").Controls.Add(1)
56
57	' delete button in toolbar
58	Set cmdBarControl = oStandardBar.FindControl(, , cfgButtonTag)
59	cmdBarControl.Delete
60
61	' add button to toolbar
62	Set MyButton = oStandardBar.Controls.Item(cfgButtonLabel)
63
64	If MyButton Is Nothing Then
65
66	Set MyButton = oStandardBar.Controls.Add(1)
67	With MyButton
68
69	.Caption = cfgButtonLabel
70
71	.Style = msoButtonCaption
72
73	' The following items are optional, but recommended.
74	' The Tag property lets you quickly find the control
75	' and helps MSO keep track of it when there is more than
76	' one application window visible. The property is required
77	' by some Office applications and should be provided.
78
79	.Tag = cfgButtonTag
80
81	' The OnAction property is optional but recommended.
82	' It should be set to the ProgID of the add-in, such that if
83	' the add-in is not loaded when a user presses the button,
84	' MSO loads the add-in automatically and then raises
85	' the Click event for the add-in to handle.
86
87	.OnAction = "!<" & AddInInst.ProgId & ">"
88
89	.Visible = True
90
91	End With
92	End If
93
94	End Sub
95
96	Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As _
97	AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
98	On Error Resume Next
99	MsgBox "My Addin was disconnected by " & _
100	IIf(RemoveMode = ext_dm_HostShutdown, _
101	"Excel shutdown.", "end user.")
102
103	MyButton.Delete
104
105	Set MyButton = Nothing
106	Set oHostApp = Nothing
107	End Sub
108
109	Private Sub MyButton_Click(ByVal Ctrl As Office.CommandBarButton, _
110	CancelDefault As Boolean)
111	MsgBox "Our CommandBar button was pressed!"
112	End Sub
113
114
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26