OUTLOOK ADDIN

Friend Sub MoveOriginalEmail(strConversationTopic As String, strConversationIndex As String, strFolderName As String)
  'make safe by escaping apostrophes
  Dim strOriginalTopic As String = strConversationTopic.Replace("'", "''")
  Dim strOriginalIndex As String = Left(strConversationIndex, (Len(strConversationIndex) - 10))
  Dim strCriteria As String = "urn:schemas:mailheader:thread-topic = '" & strConversationTopic & "'"
  Dim strSearchTag As String = "DLW:" & AdvancedSearchAction.MoveMail & ":" & strOriginalIndex & ":" & strFolderName
  Dim comAdvancedSearch As Outlook.Search = OutlookApp.AdvancedSearch("'\username@gmail.com'", strCriteria, 
  True, strSearchTag)
  ReleaseCOM(comAdvancedSearch)
End Sub

Private Sub AdxOutlookAppEvents1_AdvancedSearchComplete(sender As Object, hostObj As Object) Handles AdxOutlookAppEvents1.AdvancedSearchComplete
  'handle the search object
  Dim oSearch As Outlook.Search = CType(hostObj, Outlook.Search)
  Dim strSearchTag As String = oSearch.Tag
  'ensure that code is not executed unless initiated by me
  If Left(strSearchTag, 3) <> "DLW" Then
    Exit Sub
  End If
  Dim asaActionType As AdvancedSearchAction = strSearchTag.Split(":")(1)
  Dim strOriginalIndex As String = strSearchTag.Split(":")(2)
  Dim strFolder As String = strSearchTag.Split(":")(3)
  Dim comResults As Outlook.Results = oSearch.Results
  Dim intResults As Integer = comResults.Count
  If intResults = 0 Then
    ReleaseCOM(comResults)
    Exit Sub
  End If
  Dim comMailItem As Outlook.MailItem = Nothing
  Dim strIndex As String = ""
  For iCounter As Integer = 1 To intResults
    comMailItem = comResults.Item(iCounter)
    'using try to avoid comexception when attempting to get index of mailitem being sent
    Try
      strIndex = comMailItem.ConversationIndex
    Catch ex As COMException
      'set index to empty, as this email was being sent so cannot be the one we're looking for
      strIndex = ""
    End Try
    If strIndex = strOriginalIndex Then
      Exit For
    Else
      ReleaseCOM(comMailItem)
    End If
  Next
  ReleaseCOM(comResults)
  'if mailitem was not found then just exit
  If IsNothing(comMailItem) Then
    Exit Sub
  Else
    comMailItem.UnRead = False
    comMailItem.Save()
  End If
  Select Case asaActionType
    Case AdvancedSearchAction.MoveMail
      'if folder is junk then check to see if item is already in junk.
      'if so then toggle feature is needed to move it back to inbox
      Dim comParent As Outlook.Folder = Nothing
      If strFolder = "Junk" Then
        comParent = comMailItem.Parent
        If comParent.Name = strFolder Then
          strFolder = "Inbox"
        End If
        ReleaseCOM(comParent)
      End If
      comParent = comMailItem.Parent
      Dim strParentFolder As String = comParent.Name
      ReleaseCOM(comParent)
      If strParentFolder <> strFolder Then
        Dim comMapiFolder As Outlook.MAPIFolder = fldRoot.Folders(strFolder)
        'set global variables to allow executing macros later to open last mail moved to previn
        If strFolder = "Previn" Then
          strPrevin_CIndex = comMailItem.ConversationIndex
          strPrevin_CTopic = comMailItem.ConversationTopic
        End If
        Dim comMovedMailItem As Outlook.MailItem = comMailItem.Move(comMapiFolder)
        ReleaseCOM(comMovedMailItem)
        ReleaseCOM(comMapiFolder)
      End If
    Case AdvancedSearchAction.OpenMail
      comMailItem.Display()
    End Select
    ReleaseCOM(comMailItem)
End Sub

Public Sub ReleaseCOM(ByRef comObject As Object)
  If Not IsNothing(comObject) Then
    Marshal.ReleaseComObject(comObject)
    comObject = Nothing
  End If
End Sub

Public Class OutlookItemEventsClass1
    Inherits AddinExpress.MSO.ADXOutlookItemEvents

    Private OutlookApp As Outlook._Application = OutlookMacrosV2.AddinModule.CurrentInstance.OutlookApp
    Private mOEntryID As String

    Public Overrides Sub ProcessReply(ByVal Response As Object, ByVal E As AddinExpress.MSO.ADXCancelEventArgs)
        DocumentOriginalEmailEntryID(Response)
    End Sub

    Public Overrides Sub ProcessSend(ByVal E As AddinExpress.MSO.ADXCancelEventArgs)
        Dim comNameSpace As Outlook.NameSpace = OutlookApp.Session
        Dim comMailItem As Outlook.MailItem = comNameSpace.GetItemFromID(mOEntryID)
        comMailItem.Display()
        ReleaseCOM(comMailItem)
        ReleaseCOM(comNameSpace)
    End Sub

    Private Sub DocumentOriginalEmailEntryID(ByRef comMailItemReply As Outlook.MailItem)
        Dim comExplorer As Outlook.Explorer = OutlookApp.ActiveExplorer
        Dim comSelection As Outlook.Selection = comExplorer.Selection
        Dim comMailItem As Outlook.MailItem = comSelection(1)
        Dim comUserProperties As Outlook.UserProperties = comMailItemReply.UserProperties
        Dim comUserProperty As Outlook.UserProperty
        comUserProperty = comUserProperties.Add("O-EntryID", Outlook.OlUserPropertyType.olText, False, 1)
        comUserProperty.Value = comMailItem.EntryID
        mOEntryID = comMailItem.EntryID
        comMailItemReply.Save()
        ReleaseCOM(comUserProperty)
        ReleaseCOM(comUserProperties)
        ReleaseCOM(comMailItem)
        ReleaseCOM(comSelection)
        ReleaseCOM(comExplorer)
    End Sub

    Public Sub ReleaseCOM(ByRef comObject As Object)
        If Not IsNothing(comObject) Then
            Marshal.ReleaseComObject(comObject)
            comObject = Nothing
        End If
    End Sub
End Class