ログ送信を関数化する。
こんな感じか。
オブジェクトの生成は済んでいるものとして、
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使って特定エラーレベルのエラーが発生したら管理者にメールのほうが仕様的にはいいような気がするけど。
0 件のコメント:
コメントを投稿