Dart.Mail Namespace > MailboxCollection Class : Remove Method |
Dim instance As MailboxCollection Dim value As Mailbox instance.Remove(value)
Exception | Description |
---|---|
ProtocolException | Bad IMAP protocol response received from server. |
System.Net.Sockets.SocketException | A communications failure has occurred. |
System.InvalidOperationException | Attempt to illegally modify a server-side collection. |
This method removes the specified mailbox from the server by sending the IMAP DELETE command.
The list is automatically updated to reflect the new state of the collection.
private void doMailboxFunctions(object sender) { //Configure server and account info imap1.Session.RemoteEndPoint = new Dart.Mail.IPEndPoint(myServer, Imap.GetDefaultPort(imap1.Session)); imap1.Session.Username = myUsername; imap1.Session.Password = myPassword; //Connect and log into the account imap1.Connect(); imap1.Authenticate(); //Create a mailbox Mailbox newBox = imap1.Mailboxes.Add("My_New_Box"); //Subscribe the mailbox and check the subscribed list newBox.Subscribe(); //Get all subscribed mailboxes List<Mailbox> list = imap1.List("", "%", true).ToList<Mailbox>(); if (!list.Contains(newBox)) throw new Exception("Server did not subscribe the mailbox."); //Unsubscribe the mailbox and check the subscribed list newBox.Unsubscribe(); list = imap1.List("", "%", true).ToList<Mailbox>(); if (list.Contains(newBox)) throw new Exception("Server did not unsubscribe the mailbox."); //Rename the mailbox and then delete it newBox.Name = newBox.Name + "_Renamed"; imap1.Mailboxes.Remove(newBox); //Gracefully logout of the session imap1.Close(); }
Private Sub doMailboxFunctions(ByVal sender As Object) 'Configure server and account info imap1.Session.RemoteEndPoint = New Dart.Mail.IPEndPoint(myServer, Imap.GetDefaultPort(imap1.Session)) imap1.Session.Username = myUsername imap1.Session.Password = myPassword 'Connect and log into the account imap1.Connect() imap1.Authenticate() 'Create a mailbox Dim newBox As Mailbox = imap1.Mailboxes.Add("My_New_Box") 'Subscribe the mailbox and check the subscribed list newBox.Subscribe() 'Get all subscribed mailboxes Dim list As List(Of Mailbox) = imap1.List("", "%", True).ToList() If Not list.Contains(newBox) Then Throw New Exception("Server did not subscribe the mailbox.") End If 'Unsubscribe the mailbox and check the subscribed list newBox.Unsubscribe() list = imap1.List("", "%", True).ToList() If list.Contains(newBox) Then Throw New Exception("Server did not unsubscribe the mailbox.") End If 'Rename the mailbox and then delete it newBox.Name = newBox.Name & "_Renamed" imap1.Mailboxes.Remove(newBox) 'Gracefully logout of the session imap1.Close() End Sub