![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
|
|||
|
|||
![]()
Hey there
I have created this custom commandbar which works ok in the main outlook window. The problem is that this custom commandbar does not appear when I click "new email" or opening an existing email. I do NOT use Word as email editor. Have anybody any ideas? I have used the following code: On Error Resume Next Set cbrNewToolbar = Application.ActiveExplorer.CommandBars("Kunden i Centrum2") If Err = 0 Then ' Toolbar findes, så gør den lige synlig. cbrNewToolbar.Delete 'slet baren for at undgå en masse checkbøvl senere Set cbrNewToolbar = Application.ActiveExplorer.CommandBars.Add _ (Name:="Kunden i Centrum2", Position:=msoBarTop, Temporary:=True) Else Set cbrNewToolbar = Application.ActiveExplorer.CommandBars.Add _ (Name:="Kunden i Centrum2", Position:=msoBarTop, Temporary:=True) End If Set cmbSaveEmailKiC = cbrNewToolbar.Controls.Add(Type:=msoControlButton) With cmbSaveEmailKiC .FaceId = 271 .BeginGroup = False .Visible = True .Style = msoButtonIconAndCaption .Caption = "Gem email i KiC" .OnAction = "KundeKorrespondance" .TooltipText = "Gem email på debitor i KiC systemet" End With cbrNewToolbar.Visible = True |
#2
|
|||
|
|||
![]()
Am 18 Jul 2006 02:42:42 -0700 schrieb Karsten_Markmann:
Karsten, in that case you need to create the bar for ActiveInspector.Commandbars instead of Explorer. -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook -- www.VBOffice.net -- Hey there I have created this custom commandbar which works ok in the main outlook window. The problem is that this custom commandbar does not appear when I click "new email" or opening an existing email. I do NOT use Word as email editor. Have anybody any ideas? I have used the following code: On Error Resume Next Set cbrNewToolbar = Application.ActiveExplorer.CommandBars("Kunden i Centrum2") If Err = 0 Then ' Toolbar findes, så gør den lige synlig. cbrNewToolbar.Delete 'slet baren for at undgå en masse checkbøvl senere Set cbrNewToolbar = Application.ActiveExplorer.CommandBars.Add _ (Name:="Kunden i Centrum2", Position:=msoBarTop, Temporary:=True) Else Set cbrNewToolbar = Application.ActiveExplorer.CommandBars.Add _ (Name:="Kunden i Centrum2", Position:=msoBarTop, Temporary:=True) End If Set cmbSaveEmailKiC = cbrNewToolbar.Controls.Add(Type:=msoControlButton) With cmbSaveEmailKiC .FaceId = 271 .BeginGroup = False .Visible = True .Style = msoButtonIconAndCaption .Caption = "Gem email i KiC" .OnAction = "KundeKorrespondance" .TooltipText = "Gem email på debitor i KiC systemet" End With cbrNewToolbar.Visible = True |
#3
|
|||
|
|||
![]()
Thanks a lot Michael. That was a big help.
Michael Bauer skrev: Am 18 Jul 2006 02:42:42 -0700 schrieb Karsten_Markmann: Karsten, in that case you need to create the bar for ActiveInspector.Commandbars instead of Explorer. -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook -- www.VBOffice.net -- |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Custom CommandBar in Wordmail Editor. | Sanjay | Add-ins for Outlook | 0 | May 31st 06 10:11 PM |
Creating a custom appointment form | Theresa Smallwood | Outlook and VBA | 11 | May 15th 06 03:47 PM |
Creating Custom Events | Theresa Smallwood | Outlook - General Queries | 0 | May 9th 06 04:07 PM |
Creating new Appointment out of Custom Form | Marc Herbrik | Outlook and VBA | 2 | May 8th 06 03:38 PM |
how to add a custom button on the explorer "standard" commandbar | Herve cadieu | Outlook and VBA | 1 | March 17th 06 03:33 PM |