Enum ERRORLEVEL
OK = 0
ERR
DB
CSV
FTP
End Enum
(snip)
Dim ReturnCode as ERRORLEVEL = ERRORLEVEL.OK
mailMessage.Subject = "実行結果=" + ReturnCode.ToString + _
"(" + CType(ReturnCode, ERRORLEVEL).ToString + ")"
これで、mailMessage.Subjectが実行結果=0(OK) となる。
何かに使えそう。