HTMLメールの作成 |
- 日時： 2010/07/08 19:49
- 名前： トチロー
- TKMPでデコメールを作りたく、その一歩としてテキスト＋HTMLのメールを
作ろうとしたのですがどうしてもHTMLPartを作成することができません
過去ログを見てVB2005で開発しているので
Part part = new TKMP.Writer.MultiPart(
new TextPart("テキスト本文"),
new HtmlPart("HTML本文<br>HTML本文"));
の部分を
Dim part2 As New TKMP.Writer.MultiPart(New TKMP.Writer.TextPart("テキスト本文"),
New TKMP.Writer.HtmlPart("HTML本文<br>HTML本文"))
のように記述してもHTMLパートがエラーとなってしまい記述できません
Dim part2 As New TKMP.Writer.MultiPart(New TKMP.Writer.TextPart("テキスト本文"),
New TKMP.Writer.TextPart("HTML本文<br>HTML本文"))
part2.Headers.Add("Content-Type", part.Headers("Content-Type").Replace("mixed", "alternative"))
のように送信すると
This is a multi-part message in MIME format.
------=_NextPart_d755ff437b19a4743b08
Content-Type: text/plain;
charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
テキスト本文
------=_NextPart_d755ff437b19a4743b08
Content-Type: text/plain;
charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
HTML本文<br>HTML本文
------=_NextPart_d755ff437b19a4743b08--
のように表示されてしまいます
|
|
 Re: HTMLメールの作成 ( No.1 ) |
- 日時： 2010/07/08 23:10
- 名前： Toki◆pRU.c9X.EOI
- HTML部分のヘッダ情報を
Content-Type: text/plain;
から
Content-Type: text/html;
になるように修正してみてはどうでしょうか？
|
| Re: HTMLメールの作成 ( No.2 ) |
- 日時： 2010/07/09 10:02
- 名前： トチロー
ヘッダの置換に関して若干誤解しているところがあり
以下のようにしたところPCではHTML部分が表示できました
やっと本題の携帯電話に進めます。（特にAUが厳しそう・・・・）
Dim tp As New TKMP.Writer.TextPart("テキスト本文")
Dim hp As New TKMP.Writer.TextPart("<BR>こんにちは<BR> <font color=""red""> あああ</font>")
Dim part2 As New TKMP.Writer.MultiPart(tp, hp)
hp.Headers.Add("Content-Type", hp.Headers("Content-Type").Replace("plain", "html"))
part2.Headers.Add("Content-Type", part2.Headers("Content-Type").Replace("mixed", "alternative"))
''送信メール作成クラスに本文としてマルチパートを登録
mail.MainPart = part2
|
|
|