• ポート番号を指定してSMTPでメールを送信する
  • SmtpClientクラスを使う方法
  • MailMessage.Fieldsプロパティを使う方法
  • CDOを使う方法
  • それ以外の方法

• この記事への評価、コメント

ポート番号を指定してSMTPでメールを送信する

ここでは、ポート番号を指定してSMTPでメールを送信する方法を紹介します。

SmtpClientクラスを使う方法

SmtpClientクラスでは、Portプロパティを設定するだけですので、説明の必要もないでしょう。

なおPortプロパティのデフォルト値は25ですが、アプリケーション構成ファイルによってデフォルト値が変更されている可能性もあります。詳しくは、こちらをご覧ください。

'MailMessageの作成
Dim msg As New System.Net.Mail.MailMessage( _
    "from@xxx.xxx", "to@xxx.xxx", "題名", "本文")

Dim sc As New System.Net.Mail.SmtpClient()
'SMTPサーバーを指定する
sc.Host = "localhost"
'ポート番号を指定する（既定値は25）
sc.Port = 25
'SMTPサーバーに送信する設定にする（既定はNetwork）
sc.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
'メッセージを送信する
sc.Send(msg)

'後始末
msg.Dispose()
'後始末（.NET Framework 4.0以降）
sc.Dispose()

//MailMessageの作成
System.Net.Mail.MailMessage msg = new System.Net.Mail.MailMessage(
    "from@xxx.xxx", "to@xxx.xxx", "題名", "本文");

System.Net.Mail.SmtpClient sc = new System.Net.Mail.SmtpClient();
//SMTPサーバーを指定する
sc.Host = "localhost";
//ポート番号を指定する（既定値は25）
sc.Port = 25;
//SMTPサーバーに送信する設定にする（既定はNetwork）
sc.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network;
//メッセージを送信する
sc.Send(msg);

//後始末
msg.Dispose();
//後始末（.NET Framework 4.0以降）
sc.Dispose();

• 参考：
• SmtpClient.Timeout プロパティ

MailMessage.Fieldsプロパティを使う方法

System.Web.Mail.SmtpMailクラスでメールを送信する場合、通常はポート番号として25が使用されます。SmtpMailクラスでポート番号を変更するのは、少し厄介です。

.NET Framework 1.1からは、MailMessageクラスにFieldsプロパティが加わり、これを使うことにより、CDOのフィールドにアクセスできるようになりました。これを使ってCDOのsmtpserverportフィールドを変更すれば、System.Web.Mail.SmtpMailクラスでもポート番号を指定してメールを送信することができます。

Dim mail As New System.Web.Mail.MailMessage
'From
mail.From = "xxx@xxx.xxx"
'To
mail.To = "xxx@xxx.xxx"
'Subject
mail.Subject = "テスト"
'本文
mail.Body = "これはテストです。"

'ポート番号を指定する
mail.Fields.Item( _
    "http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
    = 25

'SMTPサーバーを指定
System.Web.Mail.SmtpMail.SmtpServer = "xxx.xxx.xxx"
'メールを送信
System.Web.Mail.SmtpMail.Send(mail)

System.Web.Mail.MailMessage mail = new System.Web.Mail.MailMessage();
//From
mail.From = "xxx@xxx.xxx";
//To
mail.To = "xxx@xxx.xxx";
//Subject
mail.Subject = "テスト";
//本文
mail.Body = "これはテストです。";

//ポート番号を指定する
mail.Fields[
    "http://schemas.microsoft.com/cdo/configuration/smtpserverport"]
    = 25;

System.Web.Mail.SmtpMail.SmtpServer = "xxx.xxx.xxx";

//メールを送信
System.Web.Mail.SmtpMail.Send(mail);

• 参考：
• The Code Project - SMTP Authentication using System.Web.Mail (CDOSYS)
• http://schemas.microsoft.com/cdo/configuration/ Namespace

CDOを使う方法

.NET Framework 1.0を使用している場合は、残念ながらこのようにMailMessageクラスのFieldsプロパティを使うことが出来ません。しかし、.NET Framework 1.0でもCDOを使用することは可能です。次にCDOを使ってメールを送信するサンプルを紹介しましょう。遅延バインディングを行っているため、ちょっと複雑になっています。

Dim t As Type = Type.GetTypeFromProgID("CDO.Message")
Dim cdo As Object = Activator.CreateInstance(t)

t.InvokeMember("From", _
    System.Reflection.BindingFlags.SetProperty, _
    Nothing, cdo, New Object() {"xxx@xxx.xxx"})
t.InvokeMember("To", _
    System.Reflection.BindingFlags.SetProperty, _
    Nothing, cdo, New Object() {"xxx@xxx.xxx"})
t.InvokeMember("Subject", _
    System.Reflection.BindingFlags.SetProperty, _
    Nothing, cdo, New Object() {"テスト"})
t.InvokeMember("Textbody", _
    System.Reflection.BindingFlags.SetProperty, _
    Nothing, cdo, New Object() {"これはテストです!!"})

Dim conf As Object = t.InvokeMember("Configuration", _
    System.Reflection.BindingFlags.GetProperty, _
    Nothing, cdo, Nothing)
Dim fields As Object = t.InvokeMember("Fields", _
    System.Reflection.BindingFlags.GetProperty, _
    Nothing, conf, Nothing)
t.InvokeMember("Item", _
    System.Reflection.BindingFlags.SetProperty, _
    Nothing, fields, New Object() { _
    "http://schemas.microsoft.com/cdo/configuration/sendusing", _
    2})
'SMTPサーバーを指定する
t.InvokeMember("Item", _
    System.Reflection.BindingFlags.SetProperty, _
    Nothing, fields, New Object() { _
    "http://schemas.microsoft.com/cdo/configuration/smtpserver", _
    "xxx.xxx.xxx"})
'ポート番号を指定する
t.InvokeMember("Item", _
    System.Reflection.BindingFlags.SetProperty, _
    Nothing, fields, New Object() { _
    "http://schemas.microsoft.com/cdo/configuration/smtpserverport", _
    25})

t.InvokeMember("Update", _
    System.Reflection.BindingFlags.InvokeMethod, _
    Nothing, fields, New Object() {})

'送信する
t.InvokeMember("Send", _
    System.Reflection.BindingFlags.InvokeMethod, _
    Nothing, cdo, New Object() {})

Type t = Type.GetTypeFromProgID("CDO.Message");
object cdo = Activator.CreateInstance(t);
t.InvokeMember("From",
    System.Reflection.BindingFlags.SetProperty,
    null, cdo, new object[] {"xxx@xxx.xxx"});
t.InvokeMember("To",
    System.Reflection.BindingFlags.SetProperty,
    null, cdo, new object[] {"xxx@xxx.xxx"});
t.InvokeMember("Subject",
    System.Reflection.BindingFlags.SetProperty,
    null, cdo, new object[] {"テスト"});
t.InvokeMember("Textbody",
    System.Reflection.BindingFlags.SetProperty,
    null, cdo, new object[] {"これはテストです!!"});

object conf = t.InvokeMember("Configuration",
    System.Reflection.BindingFlags.GetProperty,
    null, cdo, null);
object fields = t.InvokeMember("Fields",
    System.Reflection.BindingFlags.GetProperty,
    null, conf, null);
t.InvokeMember("Item",
    System.Reflection.BindingFlags.SetProperty,
    null, fields,
    new object[] {
        "http://schemas.microsoft.com/cdo/configuration/sendusing",
        2});
//SMTPサーバーを指定する
t.InvokeMember("Item",
    System.Reflection.BindingFlags.SetProperty,
    null, fields,
    new object[] {
        "http://schemas.microsoft.com/cdo/configuration/smtpserver",
        "xxx.xxx.xxx"});
//ポート番号を指定する
t.InvokeMember("Item",
    System.Reflection.BindingFlags.SetProperty,
    null, fields,
    new object[] {
        "http://schemas.microsoft.com/cdo/configuration/smtpserverport",
         25});

t.InvokeMember("Update",
    System.Reflection.BindingFlags.InvokeMethod,
    null, fields,
    new object[] {});

//送信する
t.InvokeMember("Send",
    System.Reflection.BindingFlags.InvokeMethod,
    null, cdo,
    new object[] {});

それ以外の方法

CDOを使えない、あるいは使いたくないという場合は、自分でコードを書くか、誰かが作ったコンポーネントやクラスを使わせてもらうかということになるでしょう。例えば、Tatsuo Babaさんの「BASP21 DLL」を使わせていただくのも有効な方法の一つです。

自分でコードを書くということになると、ソケットを使用することになります。ソケットを使ってSMTPでメールを送信するサンプルは、「SMTP認証でメールを送信する」で示しますので、そちらをご覧ください。

• 履歴：
• 2007/1/22 「.NET Framework 2.0以降で、SmtpClientクラスを使う方法」を追加。
• 2013/6/24 SmtpClient.Disposeを呼び出すようにしたなど。

（この記事は、「.NETプログラミング研究 第52号」で紹介したものを基にしています。）