メール送信

  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

%>
  














   SQLの窓    create:2004/11/02  update:2015/09/23   管理者用(要ログイン)





フリーフォントツール

SQLの窓ツール

SQLの窓フリーソフト

写真素材

一般ツールリンク

SQLの窓

フリーソフト