ContextMenuAttachment get list of selected attachments on Button click

Private Sub adxOutlookEvents_AttachmentContextMenuDisplay(sender As Object, commandBar As Object, target As Object) Handles adxOutlookEvents.AttachmentContextMenuDisplay
        Dim attachmentsSelectionObj As Object = Nothing
        Dim attachedFile As Object = Nothing
        Try
            attachmentsSelectionObj = target
            arrListFileAttachment = Nothing
            arrListFileAttachment = New ArrayList
            Dim count As Integer = attachmentsSelectionObj.Count
            If count = 0 Or count > 1 Then
                AdxCommandBarButtonSaveAttachment.Visible = False
            End If
            For i = 1 To attachmentsSelectionObj.Count
                attachedFile = attachmentsSelectionObj(i)
                Dim fileName As String = attachedFile.FileName
                Dim fileExt As String = UCase(Path.GetExtension(fileName))
                If fileExt = ".DOC" Or fileExt = ".DOCX" Or fileExt = ".PDF" Or fileExt = ".XLS" Or fileExt = ".XLSX" Then
                    arrListFileAttachment.Add(attachedFile)
                    AdxCommandBarButtonSaveAttachment.Visible = True
                End If
            Next
        Catch ex As Exception
            objAcumenGlobalClass.CREATEERRORFILE("[Error: ] " + "- [ " + System.Reflection.MethodInfo.GetCurrentMethod.Name + " ] " + ex.Message + " , " + ex.StackTrace, objAcumenUserVariables)
            objAcumenGlobalClass.DisplayErrorMsg(ex.Message, ex, System.Reflection.MethodInfo.GetCurrentMethod.Name, "", objAcumenUserVariables)
        Finally
            attachmentsSelectionObj = Nothing
            attachedFile = Nothing
        End Try
    End Sub

Private Sub AdxRibbonButtonSaveAttachment_OnClick(sender As Object, control As AddinExpress.MSO.IRibbonControl, pressed As Boolean) Handles AdxRibbonButtonSaveAttachment.OnClick
        Try
            Dim attachmentInfo As StringBuilder = New StringBuilder()
            Dim mailAttachments As Outlook.Attachments = control.Context.Parent.Attachments
            If Not IsNothing(mailAttachments) Then
                For i As Integer = 1 To mailAttachments.Count
                    Dim currentAttachment As Outlook.Attachment = mailAttachments.Item(i)
                    If Not IsNothing(currentAttachment) Then
                        attachmentInfo.AppendFormat("#{0}", i)
                        attachmentInfo.AppendLine()
                        attachmentInfo.AppendFormat("File Name: {0}", currentAttachment.FileName)
                        attachmentInfo.AppendLine()
                        attachmentInfo.AppendFormat("Diplay Name: {0}", currentAttachment.DisplayName)
                        attachmentInfo.AppendLine()
                        attachmentInfo.AppendFormat("Type: {0}", currentAttachment.Type)
                        attachmentInfo.AppendLine()
                        attachmentInfo.AppendLine()
                        Marshal.ReleaseComObject(currentAttachment)
                    End If
                Next
                If attachmentInfo.Length > 0 Then
                    System.Windows.Forms.MessageBox.Show( _
                        attachmentInfo.ToString(), "E-mail attachments")
                    Marshal.ReleaseComObject(mailAttachments)
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub

            // 
            // adxRibbonContextMenu1
            // 
            this.adxRibbonContextMenu1.ContextMenuNames.AddRange(new string[] {
            "Outlook.Explorer.ContextMenuAttachments",
            "Outlook.Mail.Read.ContextMenuAttachments"});
            this.adxRibbonContextMenu1.Controls.Add(this.adxRibbonButton1);
            this.adxRibbonContextMenu1.Ribbons = ((AddinExpress.MSO.ADXRibbons)(((AddinExpress.MSO.ADXRibbons.msrOutlookMailRead | AddinExpress.MSO.ADXRibbons.msrOutlookMailCompose) 
            | AddinExpress.MSO.ADXRibbons.msrOutlookExplorer)));
            // 
            // adxRibbonButton1
            // 
            this.adxRibbonButton1.Caption = "adxRibbonButton1";
            this.adxRibbonButton1.Id = "adxRibbonButton_4a060117645443fabc3e9353127c92cd";
            this.adxRibbonButton1.ImageTransparentColor = System.Drawing.Color.Transparent;
            this.adxRibbonButton1.Ribbons = ((AddinExpress.MSO.ADXRibbons)(((AddinExpress.MSO.ADXRibbons.msrOutlookMailRead | AddinExpress.MSO.ADXRibbons.msrOutlookMailCompose) 
            | AddinExpress.MSO.ADXRibbons.msrOutlookExplorer)));
            this.adxRibbonButton1.OnClick += new AddinExpress.MSO.ADXRibbonOnAction_EventHandler(this.adxRibbonButton1_OnClick);

private void AddinModule_OnRibbonBeforeCreate(object sender, string ribbonId)
{
    if (this.HostMajorVersion > 15)
    {
        this.adxRibbonContextMenu1.ContextMenuNames.Add("Outlook.Mail.Compose.ContextMenuAttachments");
        this.adxRibbonContextMenu1.Ribbons |= ADXRibbons.msrOutlookMailCompose;
        this.adxRibbonButton1.Ribbons |= ADXRibbons.msrOutlookMailCompose;
        // System.Diagnostics.Debug.WriteLine("!!! " + this.adxRibbonButton1.Ribbons.ToString()); 
    }
}

private void adxRibbonButton1_OnClick(object sender, IRibbonControl control, bool pressed)
{
    int result = 0;
    object context = control.Context;

    if (context is Outlook._Explorer)
    {
        Outlook._Explorer window = context as Outlook._Explorer;
        Outlook._AttachmentSelection attSelection = window.AttachmentSelection;
        result = attSelection.Count;
        Marshal.ReleaseComObject(attSelection);
    }
    else if (context is Outlook._Inspector)
    {
        Outlook._Inspector window = context as Outlook._Inspector;
        Outlook._AttachmentSelection attSelection = window.AttachmentSelection;
        result = attSelection.Count;
        Marshal.ReleaseComObject(attSelection);
    }
    else if (context is Outlook._AttachmentSelection)
    {
        Outlook._AttachmentSelection attSelection = context as Outlook._AttachmentSelection;
        result = attSelection.Count;
        Marshal.ReleaseComObject(attSelection);
    }
    else
    {
        result = -1;
    }

    if (context == null)
    {
        result = int.MinValue;
    }
    else
    {
        Marshal.ReleaseComObject(context);
    }
    MessageBox.Show("Selected attachment count = " + result.ToString());
}