/*
 * ホスト"pop.example.net"のPOPSデフォルトポート(995)にSSL/TLSを用いて接続。
 * ユーザ名に"user"、パスワードに"pass"を使用。　認証方式は対応しているものを順に試行。
 */
var client1 = new PopClient(new Uri("pops://user@pop.example.net/"));

client1.Connect("pass");

/*
 * ホスト"pop.example.net"のポート10110に接続、可能ならSSL/TLSにアップグレード。
 * ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。　認証方式はAPOPを試行。
 */
var client2 = new PopClient(new Uri("pop://user;AUTH=+APOP@pop.example.net:10110/"));

client2.Profile.UseTlsIfAvailable = true;
client2.Connect(new NetworkCredential("user", "pass"));

/*
 * ホスト"pop.example.net"のポート10110にSSL/TLSを用いて接続。
 * ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5を試行。
 */
var client3 = new PopClient("pop.example.net", 10110, true, "user", "DIGEST-MD5");

client3.Connect("pass");

/*
 * ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、SSL/TLSは使用しない。
 * ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。　認証方式はDIGEST-MD5, CRAM-MD5, APOP, USER/PASSの順に試行。
 */
var client4 = new PopClient("pop.example.net", -1, false, null, "*");

client4.Profile.UseTlsIfAvailable = false;
client4.Profile.UsingSaslMechanisms = new[] {"DIGEST-MD5", "CRAM-MD5"};

client4.Connect(new NetworkCredential("user", "pass"));

/*
 * ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、可能ならSSL/TLSを使用する。
 * ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。
 * 認証方式はCRAM-MD5, PLAIN, APOP, USER/PASSの順に試行。　ただしSSL/TLSが使用できない場合、平文による認証を許可しない。
 */
var client5 = new PopClient(new Uri("pop://user@pop.example.net/"));

client5.Profile.UseTlsIfAvailable = true;
client5.Profile.UsingSaslMechanisms = new[] {"CRAM-MD5", "PLAIN"};
client5.Profile.AllowInsecureLogin = false;

client5.Connect(new NetworkCredential("user", "pass"));

/*
 * GMailのアカウント"user"にPOPで接続。　パスワードは"pass"を使用。
 */
var client6 = new PopClient(new Uri("pops://user@pop.gmail.com/"));

client6.Connect("pass");

'
' ホスト"pop.example.net"のPOPSデフォルトポート(995)にSSL/TLSを用いて接続。
' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式は対応しているものを順に試行。
'
Dim client1 As New PopClient(New Uri("pops://user@pop.example.net/"))

client1.Connect("pass")

'
' ホスト"pop.example.net"のポート10110に接続、可能ならSSL/TLSにアップグレード。
' ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。　認証方式はAPOPを試行。
'
Dim client2 As New PopClient(New Uri("pop://user;AUTH=+APOP@pop.example.net:10110/"))

client2.Profile.UseTlsIfAvailable = True
client2.Connect(New NetworkCredential("user", "pass"))

'
' ホスト"pop.example.net"のポート10110にSSL/TLSを用いて接続。
' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5を試行。
'
Dim client3 As New PopClient("pop.example.net", 10110, True, "user", "DIGEST-MD5")

client3.Connect("pass")

'
' ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、SSL/TLSは使用しない。
' ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。　認証方式はDIGEST-MD5, CRAM-MD5, APOP, USER/PASSの順に試行。
'
Dim client4 As New PopClient("pop.example.net", -1, False, Nothing, "*")

client4.Profile.UseTlsIfAvailable = False
client4.Profile.UsingSaslMechanisms = New String() {"DIGEST-MD5", "CRAM-MD5"}

client4.Connect(New NetworkCredential("user", "pass"))

'
' ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、可能ならSSL/TLSを使用する。
' ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。
' 認証方式はCRAM-MD5, PLAIN, APOP, USER/PASSの順に試行。　ただしSSL/TLSが使用できない場合、平文による認証を許可しない。
'
Dim client5 As New PopClient(New Uri("pop://user@pop.example.net/"))

client5.Profile.UseTlsIfAvailable = True
client5.Profile.UsingSaslMechanisms = New String() {"CRAM-MD5", "PLAIN"}
client5.Profile.AllowInsecureLogin = False

client5.Connect(New NetworkCredential("user", "pass"))

'
' GMailのアカウント"user"にPOPで接続。　パスワードは"pass"を使用。
'
Dim client6 As New PopClient(New Uri("pops://user@pop.gmail.com/"))

client6.Connect("pass")

// ホスト"pop.example.net"のPOPデフォルトポートに接続し、
// ユーザ名"user"で認証を行う設定を作成
var profile = new PopClientProfile(new Uri("pop://user@pop.example.net/"));

// SSL/TLSが使用できない場合は、平文による認証を許可しない
profile.AllowInsecureLogin = false;

// 上記の設定でクライアントを2つ作成する
var c1 = new PopClient(profile);
var c2 = new PopClient(profile);

c1.Connect("pass");
c2.Connect("pass");

' ホスト"pop.example.net"のPOPデフォルトポートに接続し、
' ユーザ名"user"で認証を行う設定を作成
Dim profile As New PopClientProfile(New Uri("pop://user@pop.example.net/"))

' SSL/TLSが使用できない場合は、平文による認証を許可しない
profile.AllowInsecureLogin = False

' 上記の設定でクライアントを2つ作成する
Dim c1 As New PopClient(profile)
Dim c2 As New PopClient(profile)

c1.Connect("pass")
c2.Connect("pass")

using System;
using System.Net;
using System.Net.Security;
using System.Security.Authentication;
using System.Security.Cryptography.X509Certificates;
using Smdn.Net.Pop3.Client;

public class ValidateServerCerts {
  static void Main(string[] args)
  {
    // 証明書の検証を行うコールバックメソッドを指定
    PopSslConnection.ServerCertificateValidationCallback += ValidateRemoteCertificate;

    // 有効にするプロトコルバージョンを指定
    PopSslConnection.EnabledSslProtocols = SslProtocols.Default;

    using (var client = new PopClient(new Uri("pops://user@localhost/"))) {
      client.Connect("pass");
    }
  }

  private static bool ValidateRemoteCertificate(object sender,
                                                X509Certificate certificate,
                                                X509Chain chain,
                                                SslPolicyErrors sslPolicyErrors)
  {
#if DEBUG
    // デバッグ時のみSslPolicyErrors.RemoteCertificateNameMismatchを無視
    if ((int)(sslPolicyErrors & SslPolicyErrors.RemoteCertificateNameMismatch) != 0)
      sslPolicyErrors &= ~SslPolicyErrors.RemoteCertificateNameMismatch;
#endif

    if (sslPolicyErrors == SslPolicyErrors.None) {
      return true;
    }
    else {
      // エラーがあれば標準エラーに表示
      Console.Error.WriteLine(sslPolicyErrors);
      return false;
    }
  }
}

Imports System
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
Imports Smdn.Net.Pop3.Client

Public Class ValidateServerCerts
  Shared Sub Main(ByVal args As String())
    ' 証明書の検証を行うコールバックメソッドを指定
    PopSslConnection.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    Using client As New PopClient(New Uri("pops://user@localhost/"))
      client.Connect("pass")
    End Using
  End Sub

  Private Shared Function ValidateRemoteCertificate(ByVal sender As Object, _
                                                    ByVal certificate As X509Certificate, _
                                                    ByVal chain As X509Chain, _
                                                    ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
#If DEBUG Then
    ' デバッグ時のみSslPolicyErrors.RemoteCertificateNameMismatchを無視
    if (CInt(sslPolicyErrors & SslPolicyErrors.RemoteCertificateNameMismatch) <> 0 then
      sslPolicyErrors = sslPolicyErrors And Not sslPolicyErrors.RemoteCertificateNameMismatch
    End If
#End If

    If sslPolicyErrors = sslPolicyErrors.None Then
      Return True
    Else
      ' エラーがあれば標準エラーに表示
      Console.Error.WriteLine(sslPolicyErrors)
      Return False
    End If
  End Function
End Class

using System;

using Smdn.Net.Pop3;
using Smdn.Net.Pop3.Client;

class SaveToFile {
  static void Main(string[] args)
  {
    using (var client = new PopClient(new Uri("pop://user;AUTH=DIGEST-MD5@localhost/"))) {
      client.Connect("pass");

      // メールボックスにある1件目のメッセージをダウンロードしてファイル"sample.eml"に保存
      client.DownloadFirstMessageToFile("sample.eml");
    }
  }
}

Imports System

Imports Smdn.Net.Pop3
Imports Smdn.Net.Pop3.Client

Class SaveToFile
  Shared Sub Main(ByVal args As String())
    Using client As New PopClient(New Uri("pop://user;AUTH=DIGEST-MD5@localhost/"))
      client.Connect("pass")

      ' メールボックスにある1件目のメッセージをダウンロードしてファイル"sample.eml"に保存
      client.DownloadFirstMessageToFile("sample.eml")
    End Using
  End Sub
End Class

using System;

using Smdn.Net.Pop3;
using Smdn.Net.Pop3.Client;

class SaveToFile {
  static void Main(string[] args)
  {
    const bool deleteAfterDownload = false;

    // メールボックスにある1件目のメッセージをダウンロードしてファイル"sample.eml"に保存
    PopClient.DownloadFirstMessageToFile(new Uri("pop://user;AUTH=DIGEST-MD5@localhost/"),
                                         "pass",
                                         deleteAfterDownload,
                                         "sample.eml");
  }
}

Imports System

Imports Smdn.Net.Pop3
Imports Smdn.Net.Pop3.Client

Class SaveToFile
  Shared Sub Main(ByVal args As String())
    Const deleteAfterDownload As Boolean = False

    ' メールボックスにある1件目のメッセージをダウンロードしてファイル"sample.eml"に保存
    PopClient.DownloadFirstMessageToFile(New Uri("pop://user;AUTH=DIGEST-MD5@localhost/"), _
                                         "pass", _
                                         deleteAfterDownload, _
                                         "sample.eml")
  End Sub
End Class

using System;
using System.Net;
using System.Text;

using Smdn.Net.Pop3.Client;

class GpopRetrieveRecent {
  static void Main(string[] args)
  {
    PopSslConnection.ServerCertificateValidationCallback += delegate {
      // 証明書の検証は省略 (エラーを無視してすべて受け入れる)
      return true;
    };

    using (var client = new PopClient(new Uri("pops://user@pop.gmail.com/"))) {
      client.Connect("pass");

      if (client.MessageCount == 0) {
        // メールボックスにメッセージがない
        Console.WriteLine("no messages");
        return;
      }

      // メールボックスにある最後のメッセージを取得
      var message = client.GetLastMessage();

      // メッセージ本文をダウンロードし、iso-2022-jpでデコードして表示
      Console.WriteLine(message.ReadAllText(Encoding.GetEncoding("iso-2022-jp")));
    }
  }
}

Imports System
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
Imports System.Text

Imports Smdn.Net.Pop3.Client

Class GpopRetrieveRecent
  Private Shared Function ValidateRemoteCertificate(ByVal sender As Object, _
                                                    ByVal certificate As X509Certificate, _
                                                    ByVal chain As X509Chain, _
                                                    ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
    ' 証明書の検証は省略 (エラーを無視してすべて受け入れる)
    Return True
  End Function

  Shared Sub Main(ByVal args As String())
    PopSslConnection.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    Using client As New PopClient(New Uri("pops://user@pop.gmail.com/"))
      client.Connect("pass")

      If client.MessageCount = 0 Then
        ' メールボックスにメッセージがない
        Console.WriteLine("no messages")
        Return
      End If

      ' メールボックスにある最後のメッセージを取得
      Dim message As PopMessageInfo = client.GetLastMessage()

      ' メッセージ本文をダウンロードし、iso-2022-jpでデコードして表示
      Console.WriteLine(message.ReadAllText(Encoding.GetEncoding("iso-2022-jp")))
    End Using
  End Sub
End Class

using System;

using Smdn.Net.Pop3.Client;

class SaveAndDelete {
  static void Main(string[] args)
  {
    PopSslConnection.ServerCertificateValidationCallback += delegate {
      // 証明書の検証は省略 (エラーを無視してすべて受け入れる)
      return true;
    };

    using (var client = new PopClient(new Uri("pops://user;auth=ntlm@localhost/"))) {
      client.Connect("pass");

      // メッセージ本文を取得したら削除する
      client.DeleteAfterRetrieve = true;

      // メールボックスにあるすべてのメッセージとIDを取得
      foreach (var message in client.GetMessages(true)) {
        // IDをファイル名として保存 (IDがファイル名として妥当かどうかのチェックは省略)
        message.Save(message.UniqueId + ".eml");
      }

      // ログアウトしてメッセージを削除
      client.Logout();
    }
  }
}

        :
      client.DeleteAfterRetrieve = false;

      // メールボックスにあるすべてのメッセージとIDを取得
      foreach (var message in client.GetMessages(true)) {
        // IDをファイル名として保存 (IDがファイル名として妥当かどうかのチェックは省略)
        message.Save(message.UniqueId + ".eml");
        // 保存できたら削除マークを付ける
        message.MarkAsDeleted();
      }
        :
        :

Imports System
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
Imports System.Text

Imports Smdn.Net.Pop3.Client

Class SaveAndDelete
  Private Shared Function ValidateRemoteCertificate(ByVal sender As Object, _
                                                    ByVal certificate As X509Certificate, _
                                                    ByVal chain As X509Chain, _
                                                    ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
    ' 証明書の検証は省略 (エラーを無視してすべて受け入れる)
    Return True
  End Function

  Shared Sub Main(ByVal args As String())
    PopSslConnection.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    Using client As New PopClient(New Uri("pops://user;auth=ntlm@localhost/"))
      client.Connect("pass")

      ' メッセージ本文を取得したら削除する
      client.DeleteAfterRetrieve = True

      ' メールボックスにあるすべてのメッセージとIDを取得
      For Each message As PopMessageInfo In client.GetMessages(True)
        ' IDをファイル名として保存 (IDがファイル名として妥当かどうかのチェックは省略)
        message.Save(message.UniqueId + ".eml")
      Next

      ' ログアウトしてメッセージを削除
      client.Logout()
    End Using
  End Sub
End Class

        :
      client.DeleteAfterRetrieve = False

      ' メールボックスにあるすべてのメッセージとIDを取得
      For Each message As PopMessageInfo In client.GetMessages(True)
        ' IDをファイル名として保存 (IDがファイル名として妥当かどうかのチェックは省略)
        message.Save(message.UniqueId + ".eml")
        ' 保存できたら削除マークを付ける
        message.MarkAsDeleted()
      Next
        :
        :

using System;

using Smdn.Net.Pop3.Client;

class SaveAndDelete {
  private static string SelectFileNameOf(PopMessageInfo message)
  {
    // IDをファイル名として使用 (IDがファイル名として妥当かどうかのチェックは省略)
    return message.UniqueId + ".eml";
  }

  static void Main(string[] args)
  {
    PopSslConnection.ServerCertificateValidationCallback += delegate {
      // 証明書の検証は省略 (エラーを無視してすべて受け入れる)
      return true;
    };

    // メールボックスにあるすべてのメッセージを取得して指定したファイル名で保存
    PopClient.DownloadAllMessagesToFiles(new Uri("pops://user;auth=ntlm@localhost/"),
                                         "pass",
                                         true,
                                         SelectFileNameOf);
  }
}

Imports System
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
Imports System.Text

Imports Smdn.Net.Pop3.Client

Class SaveAndDelete
  Private Shared Function ValidateRemoteCertificate(ByVal sender As Object, _
                                                    ByVal certificate As X509Certificate, _
                                                    ByVal chain As X509Chain, _
                                                    ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
    ' 証明書の検証は省略 (エラーを無視してすべて受け入れる)
    Return True
  End Function

  Private Shared Function SelectFileNameOf(ByVal message As PopMessageInfo) As String
    ' IDをファイル名として使用 (IDがファイル名として妥当かどうかのチェックは省略)
    Return message.UniqueId + ".eml"
  End Function

  Shared Sub Main(ByVal args As String())
    PopSslConnection.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

      ' メールボックスにあるすべてのメッセージを取得して指定したファイル名で保存
    PopClient.DownloadAllMessagesToFiles(New Uri("pops://user;auth=ntlm@localhost/"), _
                                         "pass", _
                                         True, _
                                         AddressOf SelectFileNameOf)
  End Sub
End Class

using System;
using System.Collections.Generic;
using System.Threading;

using Smdn.Net.Pop3.Client;

class CheckRecent {
  static void Main(string[] args)
  {
    // 既知のメッセージID
    var ids = new List<string>();

    using (var client = new PopClient(new Uri("pop://user;auth=ntlm@localhost/"))) {
      client.Profile.UseTlsIfAvailable = false;

      for (;;) {
        client.Connect("pass");

        // メールボックスにあるすべてのメッセージを取得
        foreach (var message in client.GetMessages(true)) {
          // 既知のメッセージIDかどうかチェック
          if (ids.Contains(message.UniqueId)) {
            // 既知の場合は何もしない
          }
          else {
            // 新着の場合は、メッセージ本文のヘッダのみを取得
            foreach (var line in message.ReadLines(0)) {
              // ヘッダのうち"Subject:"で始まる行のみを表示
              if (line.StartsWith("Subject:", StringComparison.OrdinalIgnoreCase))
                Console.WriteLine("{0}: {1}", message.UniqueId, line);
            }

            // 既知のメッセージIDとして追加
            ids.Add(message.UniqueId);
          }
        }

        // いったん切断
        client.Disconnect();

        // 5分後に再接続する
        Thread.Sleep(TimeSpan.FromMinutes(5.0));
      }
    }
  }
}

Imports System
Imports System.Collections.Generic
Imports System.Threading

Imports Smdn.Net.Pop3.Client

Class CheckRecent
  Shared Sub Main(ByVal args As String())
    ' 既知のメッセージID
    Dim ids As New List(Of String)

    Using client As New PopClient(New Uri("pop://user;auth=ntlm@localhost/"))
      client.Profile.UseTlsIfAvailable = False

      Do
        client.Connect("pass")

        ' メールボックスにあるすべてのメッセージを取得
        For Each message As PopMessageInfo In client.GetMessages(True)
          ' 既知のメッセージIDかどうかチェック
          If ids.Contains(message.UniqueId) Then
            ' 既知の場合は何もしない
          Else
            ' 新着の場合は、メッセージ本文のヘッダのみを取得
            For Each line As String In message.ReadLines(0)
              ' ヘッダのうち"Subject:"で始まる行のみを表示
              If (line.StartsWith("Subject:", StringComparison.OrdinalIgnoreCase)) Then
                Console.WriteLine("{0}: {1}", message.UniqueId, line)
              End If
            Next

            ' 既知のメッセージIDとして追加
            ids.Add(message.UniqueId)
          End If
        Next

        ' いったん切断
        client.Disconnect()

        ' 5分後に再接続する
        Thread.Sleep(TimeSpan.FromMinutes(5.0))
      Loop
    End Using
  End Sub
End Class

using System;

using Smdn.Net.Pop3.Client;
using Smdn.Formats.Mime;

class DecodeMime {
  static void Main(string[] args)
  {
    using (var client = new PopClient(new Uri("pop://user;auth=ntlm@localhost/"))) {
      client.Profile.UseTlsIfAvailable = false;

      client.Connect("pass");

      // すべてのメッセージを取得
      foreach (var message in client.GetMessages()) {
        // メッセージの本文を取得し、Mail.Loadメソッドでパース・デコードした結果を得る
        var mail = message.ReadAs<Mail>(Mail.Load);

        // デコードしたメッセージの件名を表示
        Console.WriteLine("====[{0}: {1}]{2}",
                          message.MessageNumber,
                          mail.Subject,
                          new string('=', 32));

        // デコードした本文を表示
        if (mail.MimeType.TypeEqualsIgnoreCase("text"))
          Console.WriteLine(mail.ReadContentAsText());
        else
          Console.WriteLine("非テキストメッセージです");
      }
    }
  }
}

Imports System

Imports Smdn.Net.Pop3.Client
Imports Smdn.Formats.Mime

Class DecodeMime
  Shared Sub Main(ByVal args As String())
    Using client As New PopClient(New Uri("pop://user;auth=ntlm@localhost/"))
      client.Profile.UseTlsIfAvailable = False

      client.Connect("pass")

      ' すべてのメッセージを取得
      For Each message As PopMessageInfo In client.GetMessages()
        ' メッセージの本文を取得し、MimeMessage.Loadメソッドでパース・デコードした結果を得る
        Dim mail As Mail = message.ReadAs(Of Mail)(AddressOf Mail.Load)

        ' デコードしたメッセージの件名を表示
        Console.WriteLine("====[{0}: {1}]{2}", _
                          message.MessageNumber, _
                          mail.Subject, _
                          New String("="c, 32))

        ' デコードした本文を表示
        If mail.MimeType.TypeEqualsIgnoreCase("text") Then
          Console.WriteLine(decodedMessage.ReadContentAsText())
        Else
          Console.WriteLine("非テキストメッセージです")
        End If
      Next
    End Using
  End Sub
End Class