home / Web Tips Library / ASP / メールを送信する

メールを送信する

　ASPからのメール送信は、BASP21 の SendMail メソッドを使用すれば非常に簡単に実現できます。 BASP21 は ASPの VBScript やVisual Basic、EXCEL VBA WSH(Windows Scripting Host)などから使える汎用のコンポーネントです。本でも使い方が紹介されているほど広く使用されています。

　メール送信のために BASP21 を使用していますので、使用には BASP21 をインストールしていただく事が必要になります。　無料配布されていますので、インストールされていない方は http://www.hi-ho.ne.jp/babaq/basp21.html から入手してインストールしてみてください。

<%@ LANGUAGE = VBSCRIPT %>

<%

Dim strServer    'SMTPサーバ
Dim strTo     '宛先
Dim strFrom     '送信元
Dim strSub     'メール標題
Dim strBody     'メール本文
Dim strFile     '添付ファイル

Dim result     '戻り値

strServer = "SMTPサーバ"
strTo = "knave@excite.co.jp"
strFrom = "knave@excite.co.jp"
strSub = "件名"
strBody = "本文です。" & vbCrLf & "本文終了"

strFile = "D:\text.txt"

Set bobj = Server.CreateObject("basp21")

result = bobj.SendMail(strServer,strTo,strFrom, strSub,strBody,strFile)

If result <> "" Then
Response.Write("メール送信エラー：" & result)
Response.End
End If

Response.Write("メール送信完了")

%>

　上記では１つのアドレスに対してのメール送信ですが、複数の宛先にメールを送信したり、CC でメールを送信することも可能です。詳細な設定については以下を参照下さい。また、ファイルを添付する必要がなければ strFile に "" を代入します。逆に複数のファイルを添付したい場合は、TAB で区切って複数指定する事が可能です。

□ 宛先が　to1とto2　、CC に　to3の例
strTo = "to1" & vbtab & "to2" & vbtab & "cc" & vbtab & "to2"

□ 宛先が　to1とto2　、CC に　to3 to4 の例
strTo = "to1" & vbtab & "to2" & vbtab & "cc" & vbtab & "to3" & vbtab & "to4"

□ 宛先が　to1　、BCC に　to2の例
strTo = "to1" & vbtab & "bcc" & vbtab & "to2"

□ 宛先が　to1　、CC に　to2、BCCに to3の例
strTo = "to1" & vbtab & vbtab & "cc" & vbtab & "to2" & vbtab & "bcc" & vbtab & "to3"

[ back ]