メルマガに画像を掲載する

某部署が用意したメルマガの原稿を見ると…

なんということか画像をたくさん使っているではないか。前回のメルマガにも画像があったが、単なる補足説明のためのイメージ写真であったため、メールには添付せずに画像置き場へのリンクにしておいた。しかし、今回は図を使って説明しているため、本文中に画像が無ければ意味が通じない文章になってしまう。

困ったものだ。図が無くても意味が通じる内容にしてくれたらいいのに…

HTML形式のメールなどやりたくないのだが(受ける側の立場になると)、できるかどうかだけは事前に調べてやく必要がある。さっそく、いつも使っている「BASP21」を調べてみたところ、どうやら有料の“Pro版”にはその機能があるらしいのだが、無料版ではムリ。

なんか方法は無いものかとネット検索してみると「CDOSYS」というものを使えばいいらしい。

あっちこっちサンプルを求めてウロウロしてみるとズバリそのものが見つかった。
「CDO for Windows 2000 でのメールの送信」
http://www.haramizu.com/tabid/135/Default.aspx

このページのサンプルをちょこっと改造してみたところ、あっさり成功。
画像をメールに添付させないため、メールそのものは“軽い”。

<%
Dim objCDO, objCDOConfig, objFields
Dim strMessage
Dim sndMessage

sndMessage = “<font size=” & chr(34) & “3” & chr(34) & “>HTMLメールのテストです。</font><br>”
sndMessage = sndMessage & “<img src=” & chr(34) & “http://www.hogehoge.com/etc/hoge1.jpg” & chr(34) & “><br>”
sndMessage = sndMessage & “<font size=” & chr(34) & “3” & chr(34) & “>このように画像も送ることができます。</font><br>”

Set objCDO = Server.CreateObject(“CDO.Message”)
Set objCDOConfig = Server.CreateObject(“CDO.Configuration”)
Set objFields = objCDOConfig.Fields

With objFields
  .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “mail.hogehoge.com”
  .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
  .Item(“http://schemas.microsoft.com/cdo/configuration/SendUsing”) = 2
  .Update
End With

With objCDO
    .Configuration = objCDOConfig
    .To = “hogehoge@hogehoge.com”
    .From = “hogehoge@hogehoge.com”
    .Subject = “HTMLメールのテストです”
    .Htmlbody = sndMessage
    .Send
End With

if Err.Number <> 0 then
    strMessage = Err.Description
else
    strMessage = “送信が完了しました”
end if

Response.write strMessage

%>

いちおうできることは分かったが、やっぱりHTML形式のメールはイヤだなぁ。
某部署の担当者に依頼して、原稿を書いた人を説得してもらおうかな。




関連エントリー