メールを送信する
C#.NET
VB.NET
VB.NETのコードはC#.NETを元に「C#.NET to VB.NET Translator」によって作成したものです
//送信メールの作成クラスを定義 TKMP.Writer.MailWriter writer = new TKMP.Writer.MailWriter(); //メールの実際の差出人 writer.FromAddress = "from@mail.example.jp"; //メールヘッダの差出人情報 writer.Headers.Add("From" , "差出人名 <from@mail.example.jp>"); //メールの実際の宛先 writer.ToAddressList.Add("to@mail.example.jp"); //メールヘッダの宛先情報 writer.Headers.Add("To" , "宛先人名 <to@mail.example.jp>"); //件名 writer.Headers.Add("Subject" , "送信メールテスト"); //本文 writer.MainPart = new TKMP.Writer.TextPart("テストメールです。"); //メールの送信先サーバー名 string smtpserver = "mail.example.jp"; int port = 25; System.Net.IPAddress address = System.Net.Dns.GetHostByName(smtpserver).AddressList[0]; //SMTPへの接続クラスを作成 TKMP.Net.SmtpClient smtp = new TKMP.Net.SmtpClient(address , port); //サーバーへ接続 if(!smtp.Connect()) { System.Windows.Forms.MessageBox.Show("接続失敗"); return ; } //メール送信 smtp.SendMail(writer); //サーバーから切断 smtp.Close();
'送信メールの作成クラスを定義 Dim writer As New TKMP.Writer.MailWriter 'メールの実際の差出人 writer.FromAddress = "from@mail.example.jp" 'メールヘッダの差出人情報 writer.Headers.Add("From", "差出人名 <from@mail.example.jp>") 'メールの実際の宛先 writer.ToAddressList.Add("to@mail.example.jp") 'メールヘッダの宛先情報 writer.Headers.Add("To", "宛先人名 <to@mail.example.jp>") '件名 writer.Headers.Add("Subject", "送信メールテスト") '本文 writer.MainPart = New TKMP.Writer.TextPart("テストメールです。") 'メールの送信先サーバー名 Dim smtpserver As String = "mail.example.jp" Dim port As Integer = 25 Dim address As System.Net.IPAddress = System.Net.Dns.GetHostByName(smtpserver).AddressList(0) 'SMTPへの接続クラスを作成 Dim smtp As New TKMP.Net.SmtpClient(address, port) 'サーバーへ接続 If Not smtp.Connect() Then System.Windows.Forms.MessageBox.Show("接続失敗") Return End If 'メール送信 smtp.SendMail(writer) 'サーバーから切断 smtp.Close()
次のサンプルプログラムは最も単純なメールの送信手順です。差出人と宛先のアドレスが２回現れているのは、 SMTPサーバーへ渡す情報と、実際にメールに付ける情報が、別の情報として扱っているためです。