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

class Sample {
  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var message = new MailMessage("from@example.net", "to@example.net");

      message.Subject = "こんにちは!";

      message.Body = "これはテストメールです。";
      message.BodyEncoding = Encoding.UTF8; // 文字コードにUTF-8を使用する

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail
Imports System.Text

Class Sample
  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim message As New MailMessage("from@example.net", "to@example.net")

      message.Subject = "こんにちは!"

      message.Body = "これはテストメールです。"
      message.BodyEncoding = Encoding.UTF8 ' 文字コードにUTF-8を使用する

      client.Send(message)
    End Using
  End Sub
End Class

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

class Sample {
  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var message = new MailMessage("from@example.net", "to@example.net");

      message.Subject = "こんにちは!";
      message.SubjectEncoding = Encoding.UTF8; // 文字コードにUTF-8を使用する

      message.Body = "This is a test mail.";

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail
Imports System.Text

Class Sample
  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim message As New MailMessage("from@example.net", "to@example.net")

      message.Subject = "こんにちは!"
      message.SubjectEncoding = Encoding.UTF8 ' 文字コードにUTF-8を使用する

      message.Body = "This is a test mail."

      client.Send(message)
    End Using
  End Sub
End Class

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

class Sample {
  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      // メールアドレスと表示名
      var addressFrom = new MailAddress("from@example.net", "差出人");
      var addressTo = new MailAddress("to@example.net", "宛先");

      // MailAddressを使ってインスタンスを作成
      var message = new MailMessage(addressFrom, addressTo);

      // MailAddressはCCなどにも使用することができる
      message.CC.Add(new MailAddress("cc@example.net", "カーボンコピー"));

      message.Subject = "Hello!";

      message.Body = "This is a test mail.";

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail
Imports System.Text

Class Sample
  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      ' メールアドレスと表示名
      Dim addressFrom As New MailAddress("from@example.net", "差出人")
      Dim addressTo As New MailAddress("to@example.net", "宛先")

      ' MailAddressを使ってインスタンスを作成
      Dim message As New MailMessage(addressFrom, addressTo)

      ' MailAddressはCCなどにも使用することができる
      message.CC.Add(New MailAddress("cc@example.net", "カーボンコピー"))

      message.Subject = "Hello!"

      message.Body = "This is a test mail."

      client.Send(message)
    End Using
  End Sub
End Class

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

class Sample {
  private static string BEncode(string str, Encoding encoding)
  {
    return string.Format("=?{0}?B?{1}?=", encoding.HeaderName, Convert.ToBase64String(encoding.GetBytes(str)));
  }

  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var iso2022jp = Encoding.GetEncoding("iso-2022-jp");

      // 表示名にBエンコードした文字列を指定する
      var addressFrom = new MailAddress("from@example.net", BEncode("差出人", iso2022jp));
      var addressTo = new MailAddress("to@example.net", BEncode("宛先", iso2022jp));

      var message = new MailMessage(addressFrom, addressTo);

      message.CC.Add(new MailAddress("cc@example.net", BEncode("カーボンコピー", Encoding.UTF8)));

      message.Subject = "Hello!";

      message.Body = "This is a test mail.";

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail
Imports System.Text

Class Sample
  Private Shared Function BEncode(ByVal str As String, ByVal encoding As Encoding) As String
    Return String.Format("=?{0}?B?{1}?=", encoding.HeaderName, Convert.ToBase64String(encoding.GetBytes(str)))
  End Function

  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim iso2022jp As Encoding = Encoding.GetEncoding("iso-2022-jp")

      ' 表示名にBエンコードした文字列を指定する
      Dim addressFrom As New MailAddress("from@example.net", BEncode("差出人", iso2022jp))
      Dim addressTo As New MailAddress("to@example.net", BEncode("宛先", iso2022jp))

      Dim message As New MailMessage(addressFrom, addressTo)

      message.CC.Add(New MailAddress("cc@example.net", BEncode("カーボンコピー", Encoding.UTF8)))

      message.Subject = "Hello!"

      message.Body = "This is a test mail."

      client.Send(message)
    End Using
  End Sub
End Class

using System;
using System.Net.Mail;

class Sample {
  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var message = new MailMessage("from@example.net", "to@example.net");

      message.Subject = "Hello!";

      message.IsBodyHtml = true;

      message.Body = @"<html>
<head>
  <title>Hello!</title>
</head>
<body>
  <p>This is a <span style=""color: red;"">test</span> mail.</p>
</body>
</html>";

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail

Class Sample
  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim message As New MailMessage("from@example.net", "to@example.net")

      message.Subject = "Hello!"

      message.IsBodyHtml = True

      message.Body = "<html>
<head>
  <title>Hello!</title>
</head>
<body>
  <p>This is a <span style=""color: red;"">test</span> mail.</p>
</body>
</html>"

      client.Send(message)
    End Using
  End Sub
End Class

using System;
using System.Net.Mail;
using System.Net.Mime;
using System.Text;

class Sample {
  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var message = new MailMessage("from@example.net", "to@example.net");

      message.Subject = "Hello!";
      message.Body = "This is a test mail.";

      // ファイル"thumbnail.jpg"から添付ファイルを作成する
      var attach1 = new Attachment("thumbnail.jpg", MediaTypeNames.Image.Jpeg);

      // 添付ファイルの名称(メールクライアント上で表示される名称)を設定する
      // (オリジナルのファイル名をそのまま使用する場合は設定しなくてもよい)
      attach1.Name = "サムネイル.jpg";
      attach1.NameEncoding = Encoding.UTF8;

      attach1.ContentDisposition.Inline = true; // 添付した画像をインライン表示する

      // ファイル"image.jpg"から添付ファイルを作成する
      var attach2 = new Attachment("image.jpg", MediaTypeNames.Image.Jpeg);

      attach2.Name = "写真.jpg";
      attach2.NameEncoding = Encoding.UTF8;

      // ファイル"files.zip"から添付ファイルを作成する
      var attach3 = new Attachment("files.zip", MediaTypeNames.Application.Zip);

      // 作成した添付ファイルをメールに追加する
      message.Attachments.Add(attach1);
      message.Attachments.Add(attach2);
      message.Attachments.Add(attach3);

      // 作成したメールを送信する
      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Text

Class Sample
  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim message As New MailMessage("from@example.net", "to@example.net")

      message.Subject = "Hello!"
      message.Body = "This is a test mail."

      ' ファイル"thumbnail.jpg"から添付ファイルを作成する
      Dim attach1 As New Attachment("thumbnail.jpg", MediaTypeNames.Image.Jpeg)

      ' 添付ファイルの名称(メールクライアント上で表示される名称)を設定する
      ' (オリジナルのファイル名をそのまま使用する場合は設定しなくてもよい)
      attach1.Name = "サムネイル.jpg"
      attach1.NameEncoding = Encoding.UTF8

      attach1.ContentDisposition.Inline = True ' 添付した画像をインライン表示する

      ' ファイル"image.jpg"から添付ファイルを作成する
      Dim attach2 As New Attachment("image.jpg", MediaTypeNames.Image.Jpeg)

      attach2.Name = "写真.jpg"
      attach2.NameEncoding = Encoding.UTF8

      ' ファイル"files.zip"から添付ファイルを作成する
      Dim attach3 As New Attachment("files.zip", MediaTypeNames.Application.Zip)

      ' 作成した添付ファイルをメールに追加する
      message.Attachments.Add(attach1)
      message.Attachments.Add(attach2)
      message.Attachments.Add(attach3)

      ' 作成したメールを送信する
      client.Send(message)
    End Using
  End Sub
End Class

using System;
using System.Net.Mail;

class Sample {
  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var message = new MailMessage("from@example.net", "to@example.net");

      message.Body = "This is a test mail.";

      // 件名に360文字の'x'を指定して送信する
      message.Subject = new string('x', 360);

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail

Class Sample
  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim message As New MailMessage("from@example.net", "to@example.net")

      message.Body = "This is a test mail."

      ' 件名に360文字の'x'を指定して送信する
      message.Subject = New String("x"c, 360)

      client.Send(message)
    End Using
  End Sub
End Class

using System;
using System.Net.Mail;

class Sample {
  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var message = new MailMessage("from@example.net", "to@example.net");

      message.Body = "This is a test mail.";

      message.Subject =
        "xxxxxxxxxx " +
        "xxxxxxxxxx " +
        "xxxxxxxxxx " +
        "xxxxxxxxxx " +
        "xxxxxxxxxx " +
        "xxxxxxxxxx " +
        "xxxxxxxxxx " +
        "xxxxxxxxxx " +
        "xxxxxxxxxx " +
        "xxxxxxxxxx";

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail

Class Sample
  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim message As New MailMessage("from@example.net", "to@example.net")

      message.Body = "This is a test mail."

      message.Subject = _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx " + _
        "xxxxxxxxxx"

      client.Send(message)
    End Using
  End Sub
End Class

using System;
using System.Net.Mail;

class Sample {
  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var message = new MailMessage("from@example.net", "to@example.net");

      message.Body = "This is a test mail.";

      // .NET Frameworkでは件名に改行文字やタブを含めようとするとArgumentExceptionがスローされる
      // Monoでは折り返されたヘッダが送信される
      message.Subject = "aaa\r\n\tbbb\r\n\tccc";
      message.Subject = "aaa\r\n bbb\r\n ccc";
      message.Subject = "aaa\n bbb\n ccc";

      // .NET Frameworkでは値が反映されず、Subjectヘッダが設定されない
      // Monoでは折り返されたヘッダが送信される
      message.Headers["Subject"] = "aaa\r\n\tbbb\r\n\tccc";
      message.Headers["Subject"] = "aaa\r\n bbb\r\n ccc";
      message.Headers["Subject"] = "aaa\n bbb\n ccc";

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail

Class Sample
  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim message As New MailMessage("from@example.net", "to@example.net")

      message.Body = "This is a test mail."

      ' .NET Frameworkでは件名に改行文字やタブを含めようとするとArgumentExceptionがスローされる
      ' Monoでは折り返されたヘッダが送信される
      message.Subject = "aaa" + vbCrLf + vbTab + "bbb" + vbCrLf + vbTab + "ccc"
      message.Subject = "aaa" + vbCrLf + " " + "bbb" + vbCrLf + " " + "ccc"
      message.Subject = "aaa" + vbLf + " " + "bbb" + vbLf + " " + "ccc"

      ' .NET Frameworkでは値が反映されず、Subjectヘッダが設定されない
      ' Monoでは折り返されたヘッダが送信される
      message.Headers("Subject") = "aaa" + vbCrLf + vbTab + "bbb" + vbCrLf + vbTab + "ccc"
      message.Headers("Subject") = "aaa" + vbCrLf + " " + "bbb" + vbCrLf + " " + "ccc"
      message.Headers("Subject") = "aaa" + vbLf + " " + "bbb" + vbLf + " " + "ccc"

      client.Send(message)
    End Using
  End Sub
End Class

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

class Sample {
  private static string BEncode(string str, Encoding encoding)
  {
    return string.Format("=?{0}?B?{1}?=", encoding.HeaderName, Convert.ToBase64String(encoding.GetBytes(str)));
  }

  static void Main()
  {
    using (var client = new SmtpClient("smtp.example.net", 25)) {
      var message = new MailMessage("from@example.net", "to@example.net");

      message.Body = "This is a test mail.";

      // Bエンコードして件名に改行を含む文字列を設定する
      message.Subject = BEncode("こんにちは!\r\nこんにちは!", Encoding.GetEncoding("iso-2022-jp"));

      client.Send(message);
    }
  }
}

Imports System
Imports System.Net.Mail
Imports System.Text

Class Sample
  Private Shared Function BEncode(ByVal str As String, ByVal encoding As Encoding) As String
    Return String.Format("=?{0}?B?{1}?=", encoding.HeaderName, Convert.ToBase64String(encoding.GetBytes(str)))
  End Function

  Shared Sub Main()
    Using client As New SmtpClient("smtp.example.net", 25)
      Dim message As New MailMessage("from@example.net", "to@example.net")

      message.Body = "This is a test mail."

      ' Bエンコードして件名に改行を含む文字列を設定する
      message.Subject = BEncode("こんにちは!" + vbCrLf + "こんにちは!", Encoding.GetEncoding("iso-2022-jp"))

      client.Send(message)
    End Using
  End Sub
End Class

using System;
using System.Net;
using System.Net.Mail;

class Sample {
  static void Main()
  {
    // サーバー証明書の検証を省略し、エラーがあっても証明書を受け付ける
    // (接続先が信頼できる場合を除き、適切な検証を行うべき)
    ServicePointManager.ServerCertificateValidationCallback += delegate { return true; };

    using (var client = new SmtpClient("smtp.example.net", 587)) {
      // SSL接続を有効にする
      client.EnableSsl = true;

      // SMTPサーバーの認証に使用するユーザー名とパスワードを指定
      client.Credentials = new NetworkCredential("from", "pass");

      client.Send("from@example.net", // From
                  "to@example.net", // To
                  "Hello!", // Subject
                  "This is a test mail.");
    }
  }
}

Imports System
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates

Class Sample
  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()
    ServicePointManager.ServerCertificateValidationCallback = AddressOf ValidateRemoteCertificate

    Using client As New SmtpClient("smtp.example.net", 587)
      ' SSL接続を有効にする
      client.EnableSsl = True

      ' SMTPサーバーの認証に使用するユーザー名とパスワードを指定
      client.Credentials = New NetworkCredential("from", "pass")

      client.Send("from@example.net", _
                  "to@example.net", _
                  "Hello!", _
                  "This is a test mail.")
    End Using
  End Sub
End Class

using System;
using System.Net.Mail;

class Sample {
  static void Main()
  {
    // 構成ファイルに記述されている設定を使用してSmtpClientを作成する
    using (var client = new SmtpClient()) {
      // メールを送信する
      client.Send("user@gmail.com", // From
                  "to@example.net", // To
                  "Hello!", // Subject
                  "This is a test mail.");
    }
  }
}

Imports System
Imports System.Net.Mail

Class Sample
  Shared Sub Main()
    ' 構成ファイルに記述されている設定を使用してSmtpClientを作成する
    Using client As New SmtpClient()
      ' メールを送信する
      client.Send("user@gmail.com", _
                  "to@example.net", _
                  "Hello!", _
                  "This is a test mail.")
    End Using
  End Sub
End Class