<div class = "ls_contents"> 現在使用中の Notes クライアントのバージョン等を確認することはできますか? </div> <div class = "ls_contents"> あまり使い道はないかと思うのですが、遠く離れた場所で不具合が発生した際に Notes のバージョンを確認する時に便利かもしれません。 <br /><br /> 下記スクリプトは、アクションを実行した人の Notes のバージョンが宛先で設定した人宛にメール送信されます。 </div> <!------------ ここから「スクリプト例」です。 ------------> <table class = "Example"> <tr> <td class = "Exam01_lt">&nbsp;</td> <td class = "Exam01_t">&nbsp;</td> <td class = "Exam01_rt">&nbsp;</td> </tr> <tr> <td class = "Exam01_l">&nbsp;</td> <td style = "background-color: #5E6A80;"> <div class = "HowtoUse">使用例</div> </td> <td class = "Exam01_r">&nbsp;</td> </tr> <tr> <td class = "Exam01_l">&nbsp;</td> <td style = "background-color: #5E6A80;"> <pre class = "ls_exam"> Dim s As New NotesSession Dim sVer As String Dim sUsr As New NotesName(s.UserName) sVer = s.NotesVersion Print sVer & " " & sUsr.ABBREVIATED Dim db As NotesDatabase Dim doc As NotesDocument Set db = s.CurrentDatabase Set doc = New NotesDocument(db) doc.Form = "Memo" doc.From = s.UserName doc.SendTo = "宛先を設定してください。" doc.Subject = sVer doc.Body = "" Call doc.Send(False) Msgbox "バージョン情報を転送しました",64,"メールを送信しました" </pre> </td> <td class = "Exam01_r">&nbsp;</td> </tr> <tr> <td class = "Exam01_l">&nbsp;</td> <td class = "Exam01_c">&nbsp;</td> <td class = "Exam01_r2">&nbsp;</td> </tr> <tr> <td> <div class = "Exam01_lb">&nbsp;</div> </td> <td class = "Exam01_b"></td> <td> <div class = "Exam01_rb">&nbsp;</div> </td> </tr> </table> <br />