Проверьте вложение почты

Question

Я использую vb.net для отображения электронной почты из outlook express! Все работает нормально, но когда какое-либо сообщение имеет вложение, я не могу отобразить сообщение о том, что к письму прикреплено!

Это мой код:

   Private Sub LoginButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginButton.Click
    Dim oItem
    Dim i As Integer
    Dim Message As MAPI.Message
    Dim items As String() = New String(6) {} '      Items are the sender name,subject and date and      read/unread value
    Dim PrSenderEmail, PrBodyEmail
    Session = CreateObject("MAPI.Session") ' we use a session object of MAPI Component
        Session.Logon(ProfileName:=Me.UserId.Text, ProfilePassword:=Me.Password.Text)
        Session.MAPIOBJECT = Session.MAPIOBJECT '
        Folder = CObj(Session.Inbox) ' choose the folder
        Application = CreateObject("Outlook.Application")
        Namespace1 = Application.GetNamespace("MAPI")
        Namespace1.Logon()
        ' for getting the sender name and avoid security validation of Outlook/Exchange server 2003
        ' we are using the "Redemption" component
        sItem = CreateObject("Redemption.SafeMailItem")
        Cursor.Current = Cursors.WaitCursor ' show we're busy doing the sort
        ListInbox.BeginUpdate() ' Notify that update begins
        ListInbox.Items.Clear()
        i = 0 ' first email message is 0
        For Each Message In Folder.Messages
            Try
                i = i + 1 ' increment to the next email message
                'get e-mail from the Inbox, can be any other item
                oItem = Application.Session.GetDefaultFolder(6).Items(i) ' GetDefaultFolder(6) refers to Inbox
                sItem.Item = oItem
                'sItem is an object of Redemption COM and is used to get the senders name
                items(0) = sItem.SenderName()
            Catch
                items(0) = "error"
            End Try
            Dim objApp As Outlook.Application = New Outlook.Application
            'Get Mapi NameSpace
            Dim objNS As Outlook.NameSpace = objApp.GetNamespace("MAPI")
            Dim oMsg As Outlook.MailItem
            Dim pp As String
            Dim b As Integer
            Dim objAttachment As Outlook.Attachment
            pp = Message.StoreID
            items(1) = Message.Subject
            items(2) = Message.TimeReceived
            items(4) = Message.Subject
            items(5) = Message.Size
            Dim objInbox As Outlook.MAPIFolder = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
            Dim objItems As Outlook.Items = objInbox.Items
            items(5) = Message.Size.ToString / 1000 & "kb"
            If Message.Unread = True Then
                items(3) = "unread"
            Else
                items(3) = "read"
            End If
            ListInbox.Items.Add(New ListViewItem(items))
        Next
        ListInbox.EndUpdate() ' Notify that update ends
        Cursor.Current = Cursors.Default
    End If
End Sub

Как я могу отобразить сообщение, что электронная почта имеет вложение?

Answer 1

Почему бы не использовать Message.Attachments.Count?