This is possible, you will need to disable the actions behind these buttons, the example below will make these buttons non functional for all users/groups.
You will need to make sure that the Case statement for defects is un-commented out along with the ''End Select'' a ''Case Else'' needs to be added with ''ActionCanExecute = DefaultRes'' and ''ActionCanExecute = DefaultRes'' needs to be removed from outside of the select statement. I changed the name of the function in the Case statement from Defect_ActionCanExecute to Bug_ActionCanExecute so that the name would look similar to the other functions for the Defect/Bug module for consistancy. I have tested this on ALM 11 and it may work with other versions.
Function ActionCanExecute(ActionName)
'Use ActiveModule and ActiveDialogName to get
'the current context.
On Error Resume Next
'Use the following script to redirect this function to the module specific function:
Select Case ActiveModule
Case ''Defects''
ActionCanExecute = Bug_ActionCanExecute(ActionName)
' Case ''Test Lab''
' ActionCanExecute = TestLab_ActionCanExecute(ActionName)
' Case ''Test Plan''
' ActionCanExecute = TestPlan_ActionCanExecute(ActionName)
' Case ''Requirements''
' ActionCanExecute = Requirements_ActionCanExecute(ActionName)
' Case ''Management''
' ActionCanExecute = Management_ActionCanExecute(ActionName)
' Case ''Test Resources''
' ActionCanExecute = Resources_ActionCanExecute(ActionName)
' Case ''Business Components''
' ActionCanExecute = Components_ActionCanExecute(ActionName)
' Case ''Dashboard''
' ActionCanExecute = Analysis_ActionCanExecute(ActionName)
' Case ''Business Models''
' ActionCanExecute = BusinessModels_ActionCanExecute(ActionName)
Case Else ActionCanExecute = DefaultRes
End Select
On Error GoTo 0
End Function
'Create a new function in the Defects module script, the function should contain the following:
Function Bug_ActionCanExecute(ActionName)
On Error Resume Next
If (ActionName = ''act_SendbyEmail'' or ActionName = ''MAIL_BG_DETECTED_BY'' or ActionName = ''MAIL_BG_RESPONSIBLE'' or ActionName = ''act_sendbyemail_BG_Detected_BY'' or ActionName = ''Defects.SendByEmailDetectedBy'' or ActionName = ''Defects.SendByEmailAssignedTo'' or ActionName = ''BugDetails.SendByEmailAssignedTo'' or ActionName = ''BugDetails.SendByEmailDetectedBy'' or ActionName = ''BugDetails.SendByEmail'')Then
MsgBox ''You don't have enough permissions to send an e-mail''
Bug_Actioncanexecute = false
else Bug_ActionCanExecute = DefaultRes
End If
On Error GoTo 0
End Function