VB CODE:
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:
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.
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 INBOX3) 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.