このプログラムは、COM版BlatJを使って「きゃらメールインターネットサービス」に 文字列を送信します。
COMBLATJは、「COM版BlatJ」から ダウンロードするか、Windows NT World 1998/4(IDG)の付録から入手できます。

Set Blat = Server.CreateObject("Blat.Send.1") Blat.IsError = False Blat.To = PHS電話番号 & パーソナルグループドメイン名 Blat.Cc = 管理者メールアドレス Blat.From = 送信元メールアドレス Blat.Server = メールサーバホスト名 Blat.Subject = "[きゃらメール]　To:" & Blat.To strBody = "MSG=" & 送信文字列 & vbCrLf strBody = strBody & "RESNO=" & コールバック番号 & vbCrLf Blat.Body = strBody Blat.Send If Blat.IsError Then strError = strError & Blat.ErrorMessage & "<br>" & vbCrLf End If

メールの送信先は、「060-000-0000@cmkansai.nttpnet.ne.jp」のようにd話番号とグループ別ドメイン名を 指定します。
きゃらメールインターネットサービスでは、このメール形式以外の方法もあります。
ここで使っている方法は電話番号が間違っているなど、きゃらメールのセンターでエラーが発生した場合、 エラーが帰ってきませんが、もう一つのメール形式ではエラーがFrom宛てに送信されます。
ここでは、WWWで使うことと、電話番号を隠したかったのであえて簡単なほうを採用しています。

このページのサンプルプログラムを用意しました。

ダウンロード: charmail.lzh(1998/3/2 20:36 2,173byte)

解凍するとcharmail.aspができます。
COMBLATJを組み込んだあと、charmail.aspをIISの実行権のある仮想ディレクトリ(/scriptsなど)に コピーします。
次に、charmail.aspファイルをエディタで開いて、ファイルの先頭部分にある「変数初期化」部分に 電話番号リスト、メールサーバホスト名などを指定します。
そのままだとAわたし宛てにメールのコピーが送られてしまうので注意してくださいね。
なお、MailAdmin にメールアドレスを指定しておくと、利用記録をとることができます。

このページは、すべてASPで作成しています。
これにより、電話番号リスト(Dictionary変数 dicTel)に登録している宛先の電話番号は、 利用者からは見ることができません。
きゃらメールは送ってもらってもいいけど、電話番号は教えたくない場合には便利です。
※といっても、あまりイタズラメールを送られてもこまりますが。

今回は、わたしがNTT PHSのユーザーであったので、きゃらメールを 使いましたが、最近携帯電話でも同様なサービスがはじまっている ようです。
また、きゃらメールも最新PHSを使うのであれば漢字もおくれます。
このあたりの動向は「簡易文字メッセージ・サービス」(日経コミュニケーション 1998/3/2)に特集がありますので、参考にされてはいかがでしょうか。
リンク:J-PHONE SkyWalker
ドコモ