program new toolbar in outlook with VB.NET 2003
 

hello,

i try to develop an addin for outlook 2003 with VB.NET 2003.
here is the code for the "connect"-class.

---
Public Class Connect

Implements Extensibility.IDTExtensibility2

Dim applicationObject as Object
dim addInInstance as object

Dim WithEvents oApplication As
Microsoft.Office.Interop.Outlook.Application
Dim WithEvents oCreateAccountBHandler As
Microsoft.Office.Core.CommandBarButton
Dim oCommandBar As CommandBar

Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnBeginShutdown
End Sub

Public Sub OnAddInsUpdate(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnAddInsUpdate
End Sub

Public Sub OnStartupComplete(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnStartupComplete
MsgBox("TEST")

Dim oCommandBars As Microsoft.Office.Core.CommandBars
Dim oCommandBars2 As Microsoft.Office.Core.CommandBar
Dim oControls As Microsoft.Office.Core.CommandBarControls
Dim oControl As Microsoft.Office.Core.CommandBarButton

oCommandBars = oApplication.ActiveExplorer.CommandBars
oCommandBar = oCommandBars.Add("Account ToolBar", Temporary:=False)
oControl =
oCommandBar.Controls.Add(Type:=MsoControlType.msoC ontrolButton, ID:=1,
Temporary:=False)
oControl.Caption = "CNA"
oControl.FaceId = 609
oControl.Style = MsoButtonStyle.msoButtonIconAndCaption
oCreateAccountBHandler = oControl
oCommandBar.Visible = True
oCommandBar.Position = MsoBarPosition.msoBarLeft

End Sub

Public Sub OnDisconnection(ByVal RemoveMode As
Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnDisconnection
End Sub

Public Sub OnConnection(ByVal application As Object, ByVal connectMode
As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As
System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
applicationObject = application
addInInstance = addInInst

End Sub

End Class
---

My Problem:
the new toolbar "Account ToolBar" doesn't appear in outlook! can someone
please help me to resolve this?

thanks

Oskar

program new toolbar in outlook with VB.NET 2003
 

I see in your code you have a MsgBox. does this get invoked. This would
help to ensure that you add-in is in fact being loaded properly.

Oskar Vaia wrote:
hello,

i try to develop an addin for outlook 2003 with VB.NET 2003.
here is the code for the "connect"-class.

---
Public Class Connect

Implements Extensibility.IDTExtensibility2

Dim applicationObject as Object
dim addInInstance as object

Dim WithEvents oApplication As
Microsoft.Office.Interop.Outlook.Application
Dim WithEvents oCreateAccountBHandler As
Microsoft.Office.Core.CommandBarButton
Dim oCommandBar As CommandBar

Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnBeginShutdown
End Sub

Public Sub OnAddInsUpdate(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnAddInsUpdate
End Sub

Public Sub OnStartupComplete(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnStartupComplete
MsgBox("TEST")

Dim oCommandBars As Microsoft.Office.Core.CommandBars
Dim oCommandBars2 As Microsoft.Office.Core.CommandBar
Dim oControls As Microsoft.Office.Core.CommandBarControls
Dim oControl As Microsoft.Office.Core.CommandBarButton

oCommandBars = oApplication.ActiveExplorer.CommandBars
oCommandBar = oCommandBars.Add("Account ToolBar", Temporary:=False)
oControl =
oCommandBar.Controls.Add(Type:=MsoControlType.msoC ontrolButton, ID:=1,
Temporary:=False)
oControl.Caption = "CNA"
oControl.FaceId = 609
oControl.Style = MsoButtonStyle.msoButtonIconAndCaption
oCreateAccountBHandler = oControl
oCommandBar.Visible = True
oCommandBar.Position = MsoBarPosition.msoBarLeft

End Sub

Public Sub OnDisconnection(ByVal RemoveMode As
Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnDisconnection
End Sub

Public Sub OnConnection(ByVal application As Object, ByVal connectMode
As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As
System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
applicationObject = application
addInInstance = addInInst

End Sub

End Class
---

My Problem:
the new toolbar "Account ToolBar" doesn't appear in outlook! can someone
please help me to resolve this?

thanks

Oskar

program new toolbar in outlook with VB.NET 2003
 

You might want to head over to http://www.microeye.com and getthe Items Command Bar sample forom their Resources section. It is the primer on Explorer CommandBars.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Oskar Vaia" wrote in message ...
hello,

i try to develop an addin for outlook 2003 with VB.NET 2003.
here is the code for the "connect"-class.

---
Public Class Connect

Implements Extensibility.IDTExtensibility2

Dim applicationObject as Object
dim addInInstance as object

Dim WithEvents oApplication As
Microsoft.Office.Interop.Outlook.Application
Dim WithEvents oCreateAccountBHandler As
Microsoft.Office.Core.CommandBarButton
Dim oCommandBar As CommandBar

Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnBeginShutdown
End Sub

Public Sub OnAddInsUpdate(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnAddInsUpdate
End Sub

Public Sub OnStartupComplete(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnStartupComplete
MsgBox("TEST")

Dim oCommandBars As Microsoft.Office.Core.CommandBars
Dim oCommandBars2 As Microsoft.Office.Core.CommandBar
Dim oControls As Microsoft.Office.Core.CommandBarControls
Dim oControl As Microsoft.Office.Core.CommandBarButton

oCommandBars = oApplication.ActiveExplorer.CommandBars
oCommandBar = oCommandBars.Add("Account ToolBar", Temporary:=False)
oControl =
oCommandBar.Controls.Add(Type:=MsoControlType.msoC ontrolButton, ID:=1,
Temporary:=False)
oControl.Caption = "CNA"
oControl.FaceId = 609
oControl.Style = MsoButtonStyle.msoButtonIconAndCaption
oCreateAccountBHandler = oControl
oCommandBar.Visible = True
oCommandBar.Position = MsoBarPosition.msoBarLeft

End Sub

Public Sub OnDisconnection(ByVal RemoveMode As
Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnDisconnection
End Sub

Public Sub OnConnection(ByVal application As Object, ByVal connectMode
As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As
System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
applicationObject = application
addInInstance = addInInst

End Sub

End Class
---

My Problem:
the new toolbar "Account ToolBar" doesn't appear in outlook! can someone
please help me to resolve this?

thanks

Oskar