Makro in Outlook2003 dauerhaft speichern

Hallo,

ich habe ein Makro in Outlook2003 installiert über die VBA – Entwicklungsumgebung

Public Sub GesamtdauerTermine()
Dim objAuswahl As Selection
Dim objTermin As AppointmentItem
Dim lngGesamt As Long
Dim lngTage As Long
Dim lngStunden As Long
Dim lngMinuten As Long
Dim strMsg As String
On Error Resume Next
Set objAuswahl = Application.ActiveExplorer.Selection
lngGesamt = 0
For Each objTermin In objAuswahl
lngGesamt = lngGesamt + objTermin.Duration
Next objTermin
lngStunden = lngGesamt 60
lngMinuten = lngGesamt Mod 60
lngTage = lngStunden 24
strMsg = \”Dauer in Stunden/Minuten: \” _
& Format$(lngStunden, \”0\”) & \”:\” & _
Format$(lngMinuten, \”00\”)
If lngTage > 0 Then
strMsg = strMsg & vbCrLf & \”Dauer in Tagen: \” & _
CStr(lngTage) & vbCrLf
End If
MsgBox strMsg, _
vbOKOnly + vbInformation, _
\”Gesamtdauer Termine:\”
Set objAuswahl = Nothing
End Sub

Nachdem ich ein Symbol in der Symbolleiste angelegt habe und Outlook schließe wird nach dem Öffnen von Outlook das Symbol nicht mehr angezeigt..
Wenn ich mit ALT +F11 die VBA-Entwicklungsumgebung aufrufe wird mir das Modul, mit der entsprechenden Prozedur, erneut angezeigt , vorher erhalte ich dieses Bild:

Wenn ich auf > Makros aktivieren< klicke wird mir die Prozedur in dem Modul angezeigt. Kann mir jemand erklären, welche Einstellungen noch vorgenommen werden müssen, damit das Symbol in Outlook gespeichert bleibt. [Editiert am 16/8/2008 von marty1] [Editiert am 16/8/2008 von marty1] [Editiert am 16/8/2008 von marty1]