hi am working on a project that uses outlook to do different things. one of which is accessing emails and using them. the code below is the code i am using to get the emails 

```
    Dim oApp As Outlook.Application = New Outlook.Application()
    ' Get Mapi NameSpace.
    Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
    ' Get Messages collection of Inbox.
    Dim oInbox As Outlook.MAPIFolder =         
    oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
    Dim oItems As Outlook.Items = oInbox.Items
    oItems.Sort("[ReceivedTime]", True)
    ' oItems = oItems.Sort("date", False)

    ' Loop each unread message.
    Dim oMsg As Outlook.MailItem
    Dim i As Integer = 0
    For Each item As Object In oItems
        Try
            If (TypeOf item Is Outlook.MailItem) Then
                If i <= 100 Then
                    oMsg = item
                    Dim subject1 As String
                    Dim receivetime As String
                    Dim sender As String
                    Dim con As String
                    con = oMsg.Body
                    sender = oMsg.SenderName
                    subject1 = oMsg.Subject
                    receivetime = oMsg.ReceivedTime
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        i = i + 1
    Next

```

this code trips the outlook security ever time and i am looking for code that does not trip it and that doesn't involve editing the registry or turning down my outlook security settings. thank you for your time