K
Karsten_Markmann
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
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