Guten Morgen und danke Mase für deine rasche Antwort. Stimmt, anderer Browser und die Bearbeitung zwecks besseren Übersicht funktioniert. Ich habe den Code gestern noch etwas geändert und siehe da es funktioniert zum Teil. Einziges Manko, es öffnet mir zweimal eine neue Mail, einmal mit dem gewünschten Betreff und einmal leer. Der Code dafür lautet folgt:

ThisOutlookSession

Option Explicit

 Private mobjInspectorsClass As clsInspectors

 Private Sub Application_Quit()
     Set mobjInspectorsClass = Nothing
 End Sub

 Private Sub Application_Startup()
   Set mobjInspectorsClass = New clsInspectors
   Set mobjInspectorsClass.Inspectors = Inspectors
 End Sub

Userform1:

Private Sub CommandButton1_click()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer


Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
    .Subject = "[Text1]"
    
 End With
 UserForm1.Hide
Mail.Display



Set Mail = Nothing
Set outObj = Nothing


End Sub

Private Sub CommandButton2_click()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer


Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
    .Subject = "[Text2]"
    
 End With
 UserForm1.Hide




Set Mail = Nothing
Set outObj = Nothing


End Sub


Private Sub CommandButton3_click()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer


Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
    .Subject = "[Text3]"
    
 End With
 UserForm1.Hide
Mail.Display



Set Mail = Nothing
Set outObj = Nothing


End Sub
Private Sub CommandButton4_click()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer


Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
    .Subject = "[Text4]"
    
 End With
 UserForm1.Hide
Mail.Display



Set Mail = Nothing
Set outObj = Nothing


End Sub

Klassemodul:

clsInspectors:

Option Explicit

 Private WithEvents mobjInspectors As Inspectors

 Private Sub Class_Terminate()
     Set mobjInspectors = Nothing
 End Sub

 Friend Property Set Inspectors(ByRef probjInspectors As Inspectors)
     Set mobjInspectors = probjInspectors
 End Property

 Private Sub mobjInspectors_NewInspector(ByVal Inspector As Inspector)
     If Inspector.CurrentItem.Class = olMail Then
         
         UserForm1.show
         
     End If
     
 End Sub