IN VB6 I MAKE A CALL TO OULOOK TO GET MAILS,   I WANT TO DISABLE THE POPUP IN OUTLOOK THAT A PROGRAM ASK PERMISSION TO READ  DATA FROM OUTLOOK

Dim otlApp As Outlook.Application
    Dim otlNMSpace As Outlook.NameSpace
    Dim otlFolder As Outlook.MAPIFolder
    Dim otlSubFolder As Object
    Dim otlItem As Object
    Dim otlMailItem As Outlook.MailItem
    Dim otlAttachment As Outlook.Attachment
    Dim strFilePrefix As String
    
    Set otlApp = CreateObject("Outlook.Application")
    Set otlNMSpace = otlApp.GetNamespace("mapi")
    Set otlFolder = otlNMSpace.GetDefaultFolder(olFolderInbox)
    If Not otlFolder Is Nothing Then
        For Each otlItem In otlFolder.Items
            If otlItem.Class = olMail Then
                Set otlMailItem = otlItem
                If otlMailItem.Attachments.Count > 0 Then         '  thus only if mail has attachment !!
                    Debug.Print otlMailItem.Subject, otlMailItem.ReceivedTime, otlMailItem.SenderName
                            strFilePrefix = Right$(otlMailItem.Subject, 2)
                            For Each otlAttachment In otlMailItem.Attachments
                                If otlAttachment.FileName = "strPrefix" & "000x.txt" Then
                                    otlAttachment.SaveAsFile "C:\MyFolder\" & strFilePrefix & "\" & otlAttachment.FileName
                                End If
                            Next otlAttachment
                End If
            End If
        Next
    End If
    Set otlApp = Nothing
    Set otlNMSpace = Nothing
    Set otlFolder = Nothing