任意のヘッダ情報を追加する
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"); //X-MailSenderを追加します writer.Headers.Add("X-MailSender", "TKMP.DLL"); //Reply-Toを追加します writer.Headers.Add("Reply-To", "reply@mail.example.jp"); //件名 writer.Headers.Add("Subject" , "送信メールテスト"); //本文 writer.MainPart = new TKMP.Writer.TextPart("テストメールです。");
'送信メールの作成クラスを定義 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") 'X-MailSenderを追加します writer.Headers.Add("X-MailSender", "TKMP.DLL") 'Reply-Toを追加します writer.Headers.Add("Reply-To", "reply@mail.example.jp") '件名 writer.Headers.Add("Subject", "送信メールテスト") '本文 writer.MainPart = New TKMP.Writer.TextPart("テストメールです。")
メール作成用のTKMP.Writer.MailWriterクラスはインスタンスの作成時に、 From,To,Message-ID,Date,MIME-Versionの各エントリは自動的に作成されます。 これらを新しいデータで置き換えたいときは、Headers.Addで書き換えることが可能です。
次のプログラムではメールヘッダへX-MailSenderとReply-Toを追加しています。