BASP21ライブラリを使用したメール送信

ちなみにVB.NETです。

ログ送信を関数化する。
こんな感じか。
オブジェクトの生成は済んでいるものとして、

view plainprint?

1. Function sendlog(ByVal strDateString As String, ByVal paramMsg As String) As String  
2. Dim svname As String = メールサーバ  
3. Dim mailfrom As String = 送信元メールアドレス  
4. Dim logFileName As String = logDir & "\" & strDateString & ".log"  
5.   
6. Dim msg As String = bobj.SendMail(svname, _  
7. 管理者用メールアドレス, _  
8. mailfrom, _  
9. 題名, _  
10. paramMsg, _  
11. logFileName)  
12. Return msg  
13. End Function  

Function sendlog(ByVal strDateString As String, ByVal paramMsg As String) As String
Dim svname As String = メールサーバ
Dim mailfrom As String = 送信元メールアドレス
Dim logFileName As String = logDir & "\" & strDateString & ".log"

Dim msg As String = bobj.SendMail(svname, _
管理者用メールアドレス, _
mailfrom, _
題名, _
paramMsg, _
logFileName)
Return msg
End Function

あとはオーバーロードでラップして引数を減らしてやればいいか。
しかし、log4NET使って特定エラーレベルのエラーが発生したら管理者にメールのほうが仕様的にはいいような気がするけど。

関連記事:

BASP21

• BASP21の戻りのフォーマットは
• BASP21の組み込み作業
• BASP21をダウンロード