メール送信

model.inc

ASP でのメール処理は、外部実装となります。具体的には、COM を作成して Server.CreateObject で
そのオブジェクトにアクセスするのですが、Basp21 という優れたフリーソフトがあるのでそれを使用するの
が賢い選択でしょう。

( リファレンスはこちら )

Basp21 には、有償のプロバージョンもあるので、フリーソフトを敬遠する顧客ではそちらを使用すれば
良いとおもいます。

<%
' **********************************************************
' メール送信
' **********************************************************
Function SendMail( )

	Dim Basp

	Set Basp = Server.CreateObject( "Basp21" )

	ErrMessage = Basp.SendMail( _
		SMTPServer, _
		MyData( "In1To" ), _
		MyData( "In1From" ), _
		MyData( "In1Subject" ), _
		MyData( "In1Body" ), _
		"" _
	)

	Set Basp = Nothing

End Function

' **********************************************************
' VIEW の編集
' **********************************************************
Function EditDataHead( )


End Function

%>