Partial Class SendMailVC _ Public Sub New(ByVal Container As System.ComponentModel.IContainer) MyClass.New() 'Required for Windows.Forms Class Composition Designer support Container.Add(Me) End Sub 'Component overrides dispose to clean up the component list. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Component Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Component Designer 'It can be modified using the Component Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.aSendMailCRMEstate_Leads = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) Me.aSendEMailLawyerDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components) ' 'aSendMailCRMEstate_Leads ' Me.aSendMailCRMEstate_Leads.Caption = "Send mail" Me.aSendMailCRMEstate_Leads.Category = "aSendMailCRMEstate_Leads" Me.aSendMailCRMEstate_Leads.ConfirmationMessage = Nothing Me.aSendMailCRMEstate_Leads.Id = "aSendMailCRMEstate_Leads" Me.aSendMailCRMEstate_Leads.ImageName = "mail2" Me.aSendMailCRMEstate_Leads.Shortcut = Nothing Me.aSendMailCRMEstate_Leads.Tag = Nothing Me.aSendMailCRMEstate_Leads.TargetObjectsCriteria = Nothing Me.aSendMailCRMEstate_Leads.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Leads) Me.aSendMailCRMEstate_Leads.TargetViewId = "" Me.aSendMailCRMEstate_Leads.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView Me.aSendMailCRMEstate_Leads.ToolTip = Nothing Me.aSendMailCRMEstate_Leads.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) ' 'aSendEMailLawyerDocument ' Me.aSendEMailLawyerDocument.Caption = "Send EMail Lawyer Document" Me.aSendEMailLawyerDocument.Category = "" Me.aSendEMailLawyerDocument.ConfirmationMessage = Nothing Me.aSendEMailLawyerDocument.Id = "aSendEMailLawyerDocument" Me.aSendEMailLawyerDocument.ImageName = Nothing Me.aSendEMailLawyerDocument.Shortcut = Nothing Me.aSendEMailLawyerDocument.Tag = Nothing Me.aSendEMailLawyerDocument.TargetObjectsCriteria = Nothing Me.aSendEMailLawyerDocument.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity) Me.aSendEMailLawyerDocument.TargetViewId = Nothing Me.aSendEMailLawyerDocument.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView Me.aSendEMailLawyerDocument.ToolTip = Nothing Me.aSendEMailLawyerDocument.TypeOfView = GetType(DevExpress.ExpressApp.DetailView) End Sub Friend WithEvents aSendMailCRMEstate_Leads As DevExpress.ExpressApp.Actions.SimpleAction Friend WithEvents aSendEMailLawyerDocument As DevExpress.ExpressApp.Actions.SimpleAction End Class