Monitoring

VERAGAddIn/rbnVERAG.vb

@@ -256,6 +256,23 @@ Public Class AVISO_Mail_Functions
         End Try
     End Sub
 
+    Shared Sub MovedMail()
+        Try
+            Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
+            Dim selection As Outlook.Selection = explorer.Selection
+            If selection.Count > 0 Then
+                Dim selectedItem = selection(1)
+                Dim mailItem As Outlook.MailItem = selectedItem
+                If mailItem IsNot Nothing Then
+                    MsgBox("Du bist hier angelangt!")
+                End If
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
 
     Shared Function getFirmaFromToMail(ToMail As String)
         If ToMail.Contains("@verag") Then Return "VERAG"