And other problem is that
For Each uid As Long In client.Search(Flag.Unseen)
Dim email As IMail = New MailBuilder().CreateFromEml( _
client.GetHeadersByUID(uid))
Log &= vbCrLf & (email.Subject)
Dim Count = email.Attachments.Count
For Each mime As MimeData In email.Attachments
Next
Next
Count is always "0" and clearly this email has files.