Quantcast
Channel: ImapX 2
Viewing all articles
Browse latest Browse all 1952

New Post: Get Inbox to show new messages

$
0
0
VB CODE:
Private Sub RefreshMailFolders(ByVal eAcc As EmailAccount)   '######## RefreshMailFolders '########
    Dim imapFolder As ImapX.Folder
    On Error Resume Next
    For Each imapFolder In eAcc.IMAP.Folders
        imapFolder.Messages.Download(, MessageFetchMode.Minimal)
    Next
    RefreshMailFoldersComplete(eAcc.MailAdress)
End Sub
I have disabled the above code as a method for checking for new messages I will attempt to get idle functionality working.

Despite this change, I am still getting blank messages(bodies) under the following circumstances:

1) I view some but not all messages from the INBOX
VB CODE:
Private Sub PreviewImapMessage(ByVal mess As ImapX.Message)
    'mess.Download(MessageFetchMode.Full)
    'set WebBrowser DocumentText 
    wbMail.DocumentText = If(mess.Body.HasHtml, mess.Body.Html, mess.Body.Text)
    'Headers in label
    Dim i As Integer = 0
    Dim Header As Object
    For Each Header In mess.Headers
        LabelHeaders.Text = LabelHeaders.Text & " " & mess.Headers.Item(mess.Headers.Keys(i))
        i = i + 1
    Next
End Sub
2) I view messages from any folder other then INBOX , then return to view previously unseen messages from INBOX

3) Some of these messages will be blank, If instead I close app and restart app and just attempt to view only messages from INBOX all messages will have their bodies.

Viewing all articles
Browse latest Browse all 1952

Trending Articles