Автообработка вложений в Outlook|OutlookExpress

Dim OLApp As Application
Dim mNameSpace As NameSpace
'Dim mFolder As MAPIFolder
Dim AllMessages As Items
 
Private Sub Command1_Click()
    OLApp.Quit
    Set OLApp = Nothing
    End
End Sub
 
Private Sub Form_Load()
Dim thismessage  As MailItem
 
    Me.Show
    Screen.MousePointer = vbHourglass
On Error GoTo OutlookNotStarted
    Set OLApp = CreateObject('Outlook.Application')
On Error GoTo NoMAPINameSpace
    Set mNameSpace = OLApp.GetNamespace('MAPI')
    Set AllMessages = mNameSpace.GetDefaultFolder(olFolderInbox).Items
    MSFlexGrid1.ColWidth(0) = MSFlexGrid1.Width * 0.3
    MSFlexGrid1.ColWidth(1) = MSFlexGrid1.Width * 0.5
    MSFlexGrid1.ColWidth(2) = MSFlexGrid1.Width * 0.2
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Col = 0: MSFlexGrid1.Text = 'Sender'
    MSFlexGrid1.Col = 1: MSFlexGrid1.Text = 'Subject'
    MSFlexGrid1.Col = 2: MSFlexGrid1.Text = 'Date sent'
    For Each thismessage In AllMessages
        MSFlexGrid1.Row = MSFlexGrid1.Row + 1
        MSFlexGrid1.Col = 0
        MSFlexGrid1.Text = thismessage.SenderName
        MSFlexGrid1.Col = 1
        MSFlexGrid1.Text = thismessage.Subject
        MSFlexGrid1.Col = 2
        MSFlexGrid1.Text = thismessage.SentOn
    Next
    Screen.MousePointer = vbDefault
    Exit Sub
    
OutlookNotStarted:
    MsgBox 'Could not start Outlook'
    Screen.MousePointer = vbDefault
    Exit Sub
NoMAPINameSpace:
    MsgBox 'Could not get MAPI NameSpace'
    Screen.MousePointer = vbDefault
    Exit Sub
End Sub
 
Private Sub MSFlexGrid1_Click()
Dim thismessage As MailItem
    currentrow = MSFlexGrid1.Row
    MSFlexGrid1.Col = 0
    MSFlexGrid1.ColSel = 2
    Set thismessage = AllMessages.Item(currentrow)
    txtBody.Text = ' ' & thismessage.Body
End Sub