#tabpage(C#)

#tabpage(VB)

#code(vb,ImapClient){{

'

' ホスト"imap.example.net"のIMAPSデフォルトポート(993)にSSL/TLSを用いて接続。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式は対応しているものを順に試行。

'

Dim client1 As New ImapClient(New Uri("imaps://user@imap.example.net/"))

client1.Connect("pass")

'

' ホスト"imap.example.net"のポート10143に接続、可能ならSSL/TLSにアップグレード。

' ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。　認証方式はCRAM-MD5を試行。

'

Dim client2 As New ImapClient(New Uri("imap://user;AUTH=CRAM-MD5@imap.example.net:10143/"))

client2.Profile.UseTlsIfAvailable = True

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

'

' ホスト"imap.example.net"のポート10143にSSL/TLSを用いて接続。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5を試行。

'

Dim client3 As New ImapClient("imap.example.net", 10143, True, "user", "DIGEST-MD5")

client3.Connect("pass")

'

' ホスト"imap.example.net"のIMAPデフォルトポート(143)に接続、SSL/TLSは使用しない。

' ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。　認証方式はDIGEST-MD5, CRAM-MD5, IMAP LOGINの順に試行。

'

Dim client4 As New ImapClient("imap.example.net", -1, False, Nothing, "*")

client4.Profile.UseTlsIfAvailable = False

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

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

'

' ホスト"imap.example.net"のIMAPデフォルトポート(143)に接続、可能ならSSL/TLSを使用する。

' ユーザ名に"user"を使用、パスワードはNetworkCredentialから取得。

' 認証方式はCRAM-MD5, PLAIN, IMAP LOGINの順に試行。　ただしSSL/TLSが使用できない場合、平文による認証を許可しない。

'

Dim client5 As New ImapClient(New Uri("imap://user@imap.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"にIMAPで接続。　パスワードは"pass"を使用。

'

Dim client6 As New ImapClient(New Uri("imaps://user@imap.gmail.com/"))

client6.Connect("pass")

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,証明書の検証を行う例){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.Client

Imports Smdn.Net.Imap4.Protocol.Client

Public Class ValidateServerCerts

  Public Shared Sub Main(ByVal args As String())

    ' 証明書の検証を行うコールバックメソッドを指定

    ImapConnection.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    Using client As New ImapClient(New Uri("imaps://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

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,記述例){{

Imports System

Imports System.Net

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.WebClients

  :

  :

' imapおよびimapsスキームの登録

ImapWebRequestCreator.RegisterPrefix()

' ImapWebRequestインスタンスの作成

Dim request As WebRequest = WebRequest.Create("imap://user@imap.example.net/")

  :

  :

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,記述例){{

' imapおよびimapsスキームの登録

ImapWebRequestCreator.RegisterPrefix()

'

' ホスト"imap.example.net"のIMAPSデフォルトポート(993)にSSL/TLSを用いて接続。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式は対応しているものを順に試行。

'

Dim request1 As WebRequest = WebRequest.Create(New Uri("imaps://user@imap.example.net/"))

request1.Credentials = New NetworkCredential("user", "pass")

'

' ホスト"imap.example.net"のポート10143に接続、可能ならSSL/TLSにアップグレード。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はCRAM-MD5を試行。

'

Dim request2 As ImapWebRequest = DirectCast(WebRequest.Create(New Uri("imap://user;AUTH=CRAM-MD5@imap.example.net:10143/")), ImapWebRequest)

request2.UseTlsIfAvailable = True

request2.Credentials = New NetworkCredential("user", "pass")

'

' ホスト"imap.example.net"のポート10143にSSL/TLSを用いて接続。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5を試行。

'

Dim request3 As ImapWebRequest = DirectCast(WebRequest.Create(New Uri("imaps://user;AUTH=DIGEST-MD5@imap.example.net:10143/")), ImapWebRequest)

request3.Credentials = New NetworkCredential("user", "pass")

'

' ホスト"imap.example.net"のIMAPデフォルトポート(143)に接続、SSL/TLSは使用しない。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5, CRAM-MD5, PLAINの順に試行。

'

Dim request4 As ImapWebRequest = DirectCast(WebRequest.Create(New Uri("imap://;AUTH=*@imap.example.net/")), ImapWebRequest)

request4.UseTlsIfAvailable = False

request4.UsingSaslMechanisms = New String() {"DIGEST-MD5", "CRAM-MD5", "PLAIN"}

request4.Credentials = New NetworkCredential("user", "pass")

'

' ホスト"imap.example.net"のIMAPデフォルトポート(143)に接続、可能ならSSL/TLSを使用する。

' ユーザ名に"user"、パスワードに"pass"を使用。

' 認証方式はCRAM-MD5, PLAIN, IMAP LOGINの順に試行。　ただしSSL/TLSが使用できない場合、平文による認証を許可しない。

'

Dim request5 As ImapWebRequest = DirectCast(WebRequest.Create(New Uri("imap://user@imap.example.net/")), ImapWebRequest)

request5.UseTlsIfAvailable = True

request5.UsingSaslMechanisms = New String() {"CRAM-MD5", "PLAIN"}

request5.AllowInsecureLogin = False

request5.Credentials = New NetworkCredential("user", "pass")

'

' GMailのアカウント"user"にIMAPで接続。　パスワードは"pass"を使用。

'

Dim request6 As ImapWebRequest = DirectCast(WebRequest.Create(New Uri("imaps://user@imap.gmail.com/")), ImapWebRequest)

request6.Credentials = New NetworkCredential("user", "pass")

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,証明書の検証を行う例){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.WebClients

Public Class ValidateServerCerts

  Public Shared Sub main(ByVal args As String())

    ImapWebRequestCreator.RegisterPrefix()

    ' 証明書の検証を行うコールバックメソッドを指定

    ImapSessionManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    Using client As New WebClient()

      client.Credentials = New NetworkCredential("user", "pass")

      client.DownloadFile("imaps://user@localhost/INBOX/;UID=1", "sample.eml")

    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

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.Client

Class Sample

  Public Shared Sub Main(ByVal args As String())

    Using client As New ImapClient(New Uri("imap://user;AUTH=DIGEST-MD5@localhost/"))

      client.Connect("pass")

      ' INBOXを開く

      Using inbox As ImapOpenedMailboxInfo = client.OpenInbox()

        ' UIDが1のメッセージを取得

        Dim message As ImapMessageInfo = inbox.GetMessageByUid(1)

        ' ファイルsample.emlに保存

        message.Save("sample.eml")

      End Using

    End Using

  End Sub

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.IO

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.Client

Class Sample

  Public Shared Sub Main(ByVal args As String())

    Using client As New ImapClient("localhost", 143, "user", "DIGEST-MD5")

      client.Connect("pass")

      ' INBOXを取得

      Dim inbox As ImapMailboxInfo = client.GetInbox()

      ' ファイルsample.emlを開く

      Using messageStream As Stream = File.OpenRead("sample.eml")

        ' Streamの内容をINBOXにアップロード

        inbox.AppendMessage(messageStream)

      End Using

    End Using

  End Sub

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.Client

Imports Smdn.Net.Imap4.Protocol.Client

Class Sample

  Public Shared Sub Main(ByVal args As String())

    ImapConnection.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    ' Gmailのアカウントに接続

    Using client As New ImapClient(New Uri("imaps://user@imap.gmail.com/"))

      client.Connect("pass")

      ' INBOXを開く

      Using inbox As ImapOpenedMailboxInfo = client.OpenInbox()

        ' タイトルに[Mono-dev]を含むメールの一覧を取得する

        For Each message As ImapMessageInfo In inbox.GetMessages(ImapSearchCriteria.Subject("[Mono-dev]"))

          ' 取得したメッセージのUIDと件名を表示

          Console.WriteLine("UID {0}: {1}", message.Uid, message.EnvelopeSubject)

        Next

      End Using

    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

    ' 証明書の検証は省略 (エラーを無視してすべて受け入れる)

    Return True

  End Function

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports Smdn.Net.Imap4.WebClients

Class Sample

  Public Shared Sub Main(ByVal args As String())

    ImapWebRequestCreator.RegisterPrefix()

    Using client As New WebClient()

      client.Credentials = New NetworkCredential("user", "pass")

      ' INBOXにあるUIDが1のメッセージをダウンロードしてファイルsample.emlに保存

      client.DownloadFile("imap://user;AUTH=DIGEST-MD5@localhost/INBOX/;UID=1", "sample.eml")

    End Using

  End Sub

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.IO

Imports System.Net

Imports Smdn.Net.Imap4.WebClients

Class Sample

  Public Shared Sub Main(ByVal args As String())

    ImapWebRequestCreator.RegisterPrefix()

    Using client As New WebClient()

      client.Credentials = New NetworkCredential("user", "pass")

      ' ファイルsample.emlの内容をINBOXにアップロード

      client.UploadData("imap://user;AUTH=DIGEST-MD5@localhost/INBOX", ImapWebRequestMethods.Append, File.ReadAllBytes("sample.eml"))

    End Using

  End Sub

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.WebClients

Class Sample

  Public Shared Sub Main(ByVal args As String())

    ImapWebRequestCreator.RegisterPrefix()

    ImapSessionManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    ' GmailアカウントのINBOXから、件名に[Mono-dev]を含むメールの一覧を取得する

    Dim request As WebRequest = WebRequest.Create("imaps://user@imap.gmail.com/INBOX?SUBJECT ""[Mono-dev]""")

    request.Credentials = New NetworkCredential("user", "pass")

    Using response As ImapWebResponse = DirectCast(request.GetResponse(), ImapWebResponse)

      For Each message As IImapMessageAttribute In response.MessageAttributes

        ' 取得したメッセージのURLを表示

        Console.WriteLine(message.Url)

      Next

    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

    ' 証明書の検証は省略 (エラーを無視してすべて受け入れる)

    Return True

  End Function

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.WebClients

  :

Dim request As ImapWebRequest = DirectCast(WebRequest.Create("imap://user@localhost/INBOX?ALL"), ImapWebRequest)

request.Credentials = New NetworkCredential("user", "pass")

request.Method = ImapWebRequestMethods.Copy

request.AllowCreateMailbox = True

request.DestinationUri = New Uri("imap://user@localhost/INBOX.backup")

Using response As WebResponse = request.GetResponse()

  :

  :

End Using

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.Protocol

Imports Smdn.Net.Imap4.WebClients

  :

Dim request As ImapWebRequest = DirectCast(WebRequest.Create("imap://user@localhost/INBOX.old"), ImapWebRequest)

request.Credentials = New NetworkCredential("user", "pass")

request.Method = ImapWebRequestMethods.Delete

request.ExpectedErrorResponseCodes = New ImapResponseCode() {ImapResponseCode.NonExistent}

Using response As WebResponse = request.GetResponse()

  :

  :

End Using

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.Protocol

Imports Smdn.Net.Imap4.WebClients

  :

Dim request As ImapWebRequest = DirectCast(WebRequest.Create("imap://user@localhost/INBOX.new"), ImapWebRequest)

request.Credentials = New NetworkCredential("user", "pass")

request.Method = ImapWebRequestMethods.Create

request.ExpectedErrorResponseCodes = New ImapResponseCode() {ImapResponseCode.AlreadyExists}

Using response As WebResponse = request.GetResponse()

  :

  :

End Using

}}

#tabpage-end

#tabpage(C#)

using System.Text;

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports System.Text

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.WebClients

  :

Dim builder As New ImapUriBuilder("imap://user@localhost/INBOX")

builder.SearchCriteria = (ImapSearchCriteria.From("差出人") And ImapSearchCriteria.SentBefore(New DateTime(2010, 2, 6))) _

                         Or _

                         (ImapSearchCriteria.Unseen And Not ImapSearchCriteria.Subject("未承諾広告"))

builder.Charset = Encoding.GetEncoding(932)

Dim request As ImapWebRequest = DirectCast(WebRequest.Create(builder.Uri), ImapWebRequest)

request.Credentials = New NetworkCredential("user", "pass")

Using response As WebResponse = request.GetResponse()

  :

  :

End Using

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports Smdn.Net.Imap4

Imports Smdn.Net.Imap4.WebClients

  :

Dim request As ImapWebRequest = DirectCast(WebRequest.Create("imap://user@localhost/INBOX?from spammer.example.com"), ImapWebRequest)

request.Credentials = New NetworkCredential("user", "pass")

request.Method = ImapWebRequestMethods.Store

request.StoreDataItem = ImapStoreDataItem.ReplaceFlags(New String() {"Junk"}, ImapMessageFlag.Seen)

Using response As WebResponse = request.GetResponse()

  :

  :

End Using

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports Smdn.Net.Imap4.WebClients

Class GimapFetchExample

  Public Shared Sub Main()

    ImapWebRequestCreator.RegisterPrefix()

    ImapSessionManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    Using client As New WebClient()

      client.Credentials = New NetworkCredential("username", "password")

      client.DownloadFile("imaps://username@imap.gmail.com/INBOX/;UID=1", "message.eml")

    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

    Return True

  End Function

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports Smdn.Formats.Mime

Public Class ReadMail

  Public Shared Sub Main(ByVal args As String())

    Dim message As MimeMessage = MimeMessage.Load("sample.eml")

    Dump(message, 0)

  End Sub

  Private Shared Sub Dump(ByVal message As MimeMessage, ByVal nest As Integer)

    Dim indent As String = New String(" "c, nest * 4)

    DumpHeaders(message, indent)

    Console.Write(indent)

    If message.MimeType.TypeEquals("text") Then

      Console.WriteLine(message.ReadContentAsText())

    Else

      Console.WriteLine(message.MimeType)

    End If

    For Each part As MimeMessage In message.SubParts

      Console.WriteLine()

      Dump(part, nest + 1)

    Next

  End Sub

  Private Shared Sub DumpHeaders(ByVal message As MimeMessage, ByVal indent As String)

    For Each header As MimeHeader In message.Headers

      Console.WriteLine("{0}{1}: {2}", indent, header.Name, header.Value)

    Next

  End Sub

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,PopClient){{

'

' ホスト"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", "+APOP"}

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")

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,証明書の検証を行う例){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports Smdn.Net.Pop3

Imports Smdn.Net.Pop3.Client

Imports Smdn.Net.Pop3.Protocol.Client

Public Class ValidateServerCerts

  Public Shared Sub Main(ByVal args As String())

    ' 証明書の検証を行うコールバックメソッドを指定

    PopConnection.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

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,記述例){{

Imports System

Imports System.Net

Imports Smdn.Net.Pop3

Imports Smdn.Net.Pop3.WebClients

  :

  :

' popおよびpopsスキームの登録

PopWebRequestCreator.RegisterPrefix()

' PopWebRequestインスタンスの作成

Dim request As WebRequest = WebRequest.Create("pop://user@pop.example.net/")

  :

  :

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,記述例){{

' popおよびpopsスキームの登録

PopWebRequestCreator.RegisterPrefix()

'

' ホスト"pop.example.net"のPOPSデフォルトポート(995)にSSL/TLSを用いて接続。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式は対応しているものを順に試行。

'

Dim request1 As WebRequest = WebRequest.Create(New Uri("pops://user@pop.example.net/"))

request1.Credentials = New NetworkCredential("user", "pass")

'

' ホスト"pop.example.net"のポート10110に接続、可能ならSSL/TLSにアップグレード。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はAPOPを試行。

'

Dim request2 As PopWebRequest = DirectCast(WebRequest.Create(New Uri("pop://user;AUTH=+APOP@pop.example.net:10110/")), PopWebRequest)

request2.UseTlsIfAvailable = True

request2.Credentials = New NetworkCredential("user", "pass")

'

' ホスト"pop.example.net"のポート10110にSSL/TLSを用いて接続。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5を試行。

'

Dim request3 As PopWebRequest = DirectCast(WebRequest.Create(New Uri("pops://user;AUTH=DIGEST-MD5@pop.example.net:10110/")), PopWebRequest)

request3.Credentials = New NetworkCredential("user", "pass")

'

' ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、SSL/TLSは使用しない。

' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5, CRAM-MD5, APOP, USER/PASSの順に試行。

'

Dim request4 As PopWebRequest = DirectCast(WebRequest.Create(New Uri("pop://;AUTH=*@pop.example.net/")), PopWebRequest)

request4.UseTlsIfAvailable = False

request4.UsingSaslMechanisms = New String() {"DIGEST-MD5", "CRAM-MD5", "+APOP"}

request4.Credentials = New NetworkCredential("user", "pass")

'

' ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、可能ならSSL/TLSを使用する。

' ユーザ名に"user"、パスワードに"pass"を使用。

' 認証方式はCRAM-MD5, PLAIN, APOP, USER/PASSの順に試行。　ただしSSL/TLSが使用できない場合、平文による認証を許可しない。

'

Dim request5 As PopWebRequest = DirectCast(WebRequest.Create(New Uri("pop://user@pop.example.net/")), PopWebRequest)

request5.UseTlsIfAvailable = True

request5.UsingSaslMechanisms = New String() {"CRAM-MD5", "PLAIN"}

request5.AllowInsecureLogin = False

request5.Credentials = New NetworkCredential("user", "pass")

'

' GMailのアカウント"user"にPOPで接続。　パスワードは"pass"を使用。

'

Dim request6 As WebRequest = WebRequest.Create(New Uri("pops://user@pop.gmail.com/"))

request6.Credentials = New NetworkCredential("user", "pass")

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb,証明書の検証を行う例){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports Smdn.Net.Pop3

Imports Smdn.Net.Pop3.WebClients

Public Class ValidateServerCerts

  Public Shared Sub Main(ByVal args As String())

    PopWebRequestCreator.RegisterPrefix()

    ' 証明書の検証を行うコールバックメソッドを指定

    PopSessionManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    Using client As New WebClient

      client.Credentials = New NetworkCredential("user", "pass")

      client.DownloadFile("pops://user@localhost/;MSG=1", "sample.eml")

    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

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports Smdn.Net.Pop3

Imports Smdn.Net.Pop3.Client

Class SaveToFile

  Public Shared Sub Main(ByVal args As String())

    Using client As New PopClient(New Uri("pop://user;AUTH=DIGEST-MD5@localhost/"))

      client.Connect("pass")

      ' メールボックスにある1件目のメッセージをダウンロード

      Dim message As PopMessageInfo = client.GetFirstMessage()

      ' ファイルsample.emlに保存

      message.Save("sample.eml")

    End Using

  End Sub

End Class

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports System.Text

Imports Smdn.Net.Pop3

Imports Smdn.Net.Pop3.Client

Imports Smdn.Net.Pop3.Protocol.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

  Public Shared Sub Main(ByVal args As String())

    PopConnection.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

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Net

Imports System.Net.Security

Imports System.Security.Cryptography.X509Certificates

Imports System.Text

Imports Smdn.Net.Pop3

Imports Smdn.Net.Pop3.Client

Imports Smdn.Net.Pop3.Protocol.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

  Public Shared Sub Main(ByVal args As String())

    PopConnection.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

}}

上記のコードは、次のコードと等価です。

#code(vb){{

        :

      client.DeleteAfterRetrieve = False

      ' メールボックスにあるすべてのメッセージとIDを取得

      For Each message As PopMessageInfo In client.GetMessages(True)

        ' IDをファイル名として保存 (IDがファイル名として妥当かどうかのチェックは省略)

        message.Save(message.UniqueId + ".eml")

        ' 保存できたら削除マークを付ける

        message.MarkAsDeleted()

      Next

        :

        :

}}

#tabpage-end

#tabpage(C#)

#tabpage(VB)

#code(vb){{

Imports System

Imports System.Collections.Generic

Imports System.Threading

Imports Smdn.Net.Pop3

Imports Smdn.Net.Pop3.Client

Class CheckRecent

  Public 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")

        If Not client.ServerCapabilities.Has(PopCapability.Uidl) Then

          ' サーバがUIDLをサポートしていない

          Throw New ApplicationException("UIDL incapable")

        End If

        ' メールボックスにあるすべてのメッセージを取得

        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