Comments by Member 13336882 (Top 8 by date)

i fixed the code :

Class emailFolder
Public Property Title As String
End Class
Public Shared Sub Initialize()
client = New ImapClient("imap.gmail.com", True)
If Not client.Connect() Then
Throw New Exception("Error connecting to the client.")
End If
End Sub
Public Shared Function Login(ByVal u As String, ByVal p As String) As Boolean
Return client.Login(u, p)
End Function
Public Shared Sub Logout()
If client.IsAuthenticated Then
client.Logout()
End If
End Sub
Public Shared Function GetFolders() As List(Of emailFolder)
Dim folders = New List(Of emailFolder)()
For Each folder In client.Folders
folders.Add(New emailFolder With {.Title = folder.Name})
Next
client.Folders.Inbox.StartIdling()
AddHandler client.Folders.Inbox.OnNewMessagesArrived, AddressOf Inbox_OnNewMessagesArrived
Return folders
End Function
Private Shared Sub Inbox_OnNewMessagesArrived(ByVal sender As Object, ByVal e As IdleEventArgs)
MessageBox.Show($"A new message was downloaded in {e.Folder.Name} folder.")
End Sub
Public Shared Function GetMessagesForFolder(ByVal name As String) As MessageCollection
client.Folders(name).Messages.Download()
Return client.Folders(name).Messages
End Function

Now i get Null Reference Exception here :

Public Shared Function Login(ByVal u As String, ByVal p As String) As Boolean
Return client.Login(u, p)
End Function

Why ???????????????