Distriburing af Outlook-makroer - Spm til Kedde65

Hvad angår distribution, så skal du nok benytte den fil der hedder VbaProject.OTM det er der alt dit kode snask det gemmer sig når du laver det i Outlook. Denne fil kan du sikker vha. logon scripts eller lign. (GPO) distribuere ud til brugerne. Problemet ved denne løsning, er blot at hvis der er externe referencer til andre programmer (word, excel) så kommer de ikke med.
Alternativt så kan du jo lave et setup program vha. Microsoft Visual Studio Installer og her udrulle den msi fil vha. GPO.

Knapperne kommer ikke med men det kan du klare med følgende kode.
Dim WithEvents insps As Inspectors

Private Sub Application_Startup()
    Set insps = Application.Inspectors
End Sub

Private Sub insps_NewInspector(ByVal Inspector As Inspector)
    Dim item As CommandBarControl
    Dim cmdBar As CommandBar
    Dim cmdBtn As CommandBarButton
    Set cmdBar = Inspector.CommandBars("Standard")
   
    For Each item In cmdBar.Controls
        If item.Tag = "MailBtn" Then
            item.Delete
        End If
    Next
   
    Set cmdBtn = cmdBar.Controls.Add(msoControlButton, , , , True)
    cmdBtn.Tag = "MailBtn"
    cmdBtn.Caption = "Set CustomerID"
    cmdBtn.OnAction = "MailKategories"
    cmdBtn.Visible = True
End Sub

og smid så følgende kode ind i et modul for sig selv.

Public Sub MailKategories()
    Dim itm As MailItem
   
    Set itm = Application.ActiveInspector.CurrentItem
    itm.Categories = InputBox("Indtast kundenummer!", "Kundenummer")
End Sub

VH CK

orv hvor smart :o)

tak for hjælpen :o)