Mail.dll - .NET email component (IMAP, POP3)

	                using(Imap imap = new Imap())
                    {
                        imap.Connect("imap.server.com");  // or ConnectSSL for SSL
                        imap.UseBestLogin("user", "password");

                        imap.SelectInbox();
                        List<long> uids = imap.SearchFlag(Flag.Unseen);
                        foreach (long uid in uids)
                        {
                            IMail email = new MailBuilder()
                                .CreateFromEml(imap.GetMessageByUID(uid));
                            Console.WriteLine(email.Subject);
                        }
                        imap.Close();
                    }
                

                    using(Pop3 pop3 = new Pop3())
                    {
                        pop3.Connect("pop3.server.com");  // or ConnectSSL for SSL       
                        pop3.UseBestLogin("user", "password");

                        List<string> uids = pop3.GetAll();
                        foreach (string uid in uids)
                        {
                            IMail email = new MailBuilder()
                                .CreateFromEml(pop3.GetMessageByUID(uid));
                            Console.WriteLine(email.Subject);
                        }
                        pop3.Close();
                    }	            
                

                    IMail email = Mail
                        .Html(@"Html with an image: <img src=""cid:lena"" />")
                        .AddVisual(@"c:\lena.jpeg").SetContentId("lena")
                        .AddAttachment(@"c:\tmp.doc").SetFileName("document.doc")
                        .To("to@example.com")
                        .From("from@example.com")
                        .Subject("Subject")
                        .Create();

                    using(Smtp smtp = new Smtp())
                    {
                        smtp.Connect("smtp.server.com");  // or ConnectSSL for SSL
                        smtp.UseBestLogin("user", "password");

                        smtp.SendMessage(email);                      

                        smtp.Close();    
                    }	            
                

                    Using imap As New Imap
                        imap.Connect("imap.server.com")  ' or ConnectSSL for SSL
                        imap.UseBestLogin("user", "password")

                        imap.SelectInbox()
                        Dim uidList As List(Of Long) = imap.SearchFlag(Flag.Unseen)

                        For Each uid As Long In uidList
                            Dim email As IMail = New MailBuilder() _
                                .CreateFromEml(imap.GetMessageByUID(uid))
                            Console.WriteLine(email.Subject)
                        Next
                        imap.Close()
                    End Using	            
                

                    Using pop3 As New Pop3
                        pop3.Connect("pop3.server.com")  ' or ConnectSSL for SSL       
                        pop3.UseBestLogin("user", "password")

                        For Each uid As String In pop3.GetAll()
                            Dim email As IMail = New MailBuilder() _
                                .CreateFromEml(pop3.GetMessageByUID(uid))
                            Console.WriteLine(email.Subject)
                        Next
                        pop3.Close()
                    End Using
                

                    Dim email As IMail = Mail _
                        .Html("Html with an image: <img src=""cid:lena"" />") _
                        .AddVisual("C:\lena.jpeg").SetContentId("lena") _
                        .AddAttachment("C:\tmp.doc").SetFileName("document.doc") _
                        .To("to@example.com") _
                        .From("from@example.com") _
                        .Subject("Subject") _
                        .Create()

                    Using smtp As Smtp = New Smtp
                        smtp.Connect("smtp.server.com")  ' or ConnectSSL for SSL
                        smtp.UseBestLogin("user", "password")

                        smtp.SendMessage(email)

                        smtp.Close()
                    End Using