I got the solution!
The adjusted procedures are:
Private WithEvents objOpenInsp As Outlook.Inspector
Private WithEvents objInsp As Outlook.Inspectors
Private Sub objInsp_NewInspector(ByVal Inspector As Outlook.Inspector)
If TypeName(Inspector.CurrentItem) = "MailItem" Then
Set objOpenInsp = Inspector
End If
End Sub
Private Sub objOpenInsp_Activate()
Dim objItem As Outlook.MailItem
Dim frm As frmLanguage
Dim lngLang As Long
Set objItem = objOpenInsp.CurrentItem
If Len(objItem.EntryID) = 0 And Len(objItem.Subject) = 0 Then
'This procedure is only for new email messages.
'Note that if you leave the subject line empty and try to close
'the objItem window, the Activate event is triggered too and may
'get stuck in a loop.
Set frm = New frmLanguage
frm.Show
lngLang = frm.lngRetValue
Unload frm
If lngLang > 0 Then
'MyNewMessage Inspector.CurrentItem, lngLang
MyNewMessage objItem, lngLang
Else 'User pressed Cancel or closed the form
objItem.Subject = " " 'prevent loop
objItem.Close olDiscard
End If
End If
Set frm = Nothing
Set objItem = Nothing
End Sub
Again, thx for your help!