Notesユーザーが人事異動なので、MailBoxのサーバが変わった場合に、
新着メールのお知らせのPopUpが出ない時があります。
ロケーションのサーバの変更は正しく行っているのですが、直りません。
色々と調べると、 notes.ini の環境変数に問題があるというのが、
教えてGoo から分かりました。
しかし、notes.ini を手作業で修正するのをユーザーにやらすわけには
行かないので、Notes DBを作り、その中で Lotus Script でやりたいと
思っています。
= 処理概要==
Notesの「notes.ini」内の環境変数の中で
NewMailSeqNum=4180
NewMailSeqNum49256FB3:0010EA61=4180
という変数がありますが、この2つの変数の値の変更を Lotus Script で 0 に
設定する。
Call session.SetEnvironmentVar("NewMailSeqNum","0",True)
「NewMailSeqNum」に関しては、上記でいいのですが、
もうひとつ「NewMailSeqNum」の後ろに英数字がある環境変数の変更なのですが、
端末やNotesのユーザーによって?後ろの英数字が違います。
この場合どのように変更したらいいか教えてください。
また、後ろの値を求めるのが難しいのでしたら、「NewMailSeqNum」を notes.ini から
Script で削除する方法を教えてください。
以上、宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
Lotus Script はもう 5年以上も触ってないのですが、ヘルプを読み返してみると「Environments」みたいに環境変数のコレクションを取得することができないんですね。
これが出来るんだったらコレクションの中身をループして名前の先頭 13文字が "NewMailSeqNum" の変数を取得できるのに・・・なんて考えてました。
そこで、VBScript によって Notes.ini を別のファイルに転記する方法を考えてみました。
転記する際に "NewMailSeqNum" で始まる行はスキップします。
適宜手直しして使ってみてください。
ただし自己責任でね。
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' FileSystemObject を使い、
' Notes.ini の中身を一時ファイルに転記しつつ、
' "NewMailSeqNum" セクションと
' "newMailSeqNum" + レプリカID セクションをスキップする。
' オリジナル Notes.ini のファイル名を yyyymmddhhnnss + ".ini" に変更
' 一時ファイルのファイル名を "Notes.ini" に変更
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Const targetPath = "C:\Lotus\Notes\"
Const orgFileName = "Notes.ini"
' 一時ファイルのファイル名を決定
Dim tmpFileName
tmpFileName = fso.GetTempName
Dim orgIni ' Notes.ini を TextStream で開く
Set orgIni = fso.OpenTextFile(targetPath & orgFileName, 1, False)
Dim newIni ' 一時ファイルを TextStream で開く
Set newIni = fso.OpenTextFile(targetPath & tmpFileName, 2, True)
Dim lineString ' ファイルから読み込む 1行文字列のバッファ
Do Until orgIni.AtEndOfStream
lineString = orgIni.ReadLine
' "NewMailSeqNum" 以外のセクションを転記する
If Left(lineString, 13) <> "NewMailSeqNum" Then
newIni.WriteLine(lineString)
End If
Loop
orgIni.Close
newIni.Close
' オリジナルの Notes.ini を退避させるために、現在日時を取得
dim currentTime
currentTime = Now()
' オリジナル Notes.ini のファイル名を変更
fso.GetFile(targetPath & orgFileName).Name = _
Right("0000" & Year(currentTime), 4) & _
Right("00" & Month(currentTime), 2) & _
Right("00" & Day(currentTime), 2) & _
Right("00" & Hour(currentTime), 2) & _
Right("00" & Minute(currentTime), 2) & _
Right("00" & Second(currentTime), 2) & _
".ini"
' 一時ファイルのファイル名を "Notes.ini" に変更する
fso.GetFile(targetPath & tmpFileName).Name = orgFileName
お忙しいところありがとうございます。
VBScriptでファイルを作成し、NotesDBの文書に
添付ファイルとして貼り付けて、そこからダブル
クリックで実行するようにやったところ旨くいきました。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで設定時刻の入力がわかりません 2 2022/03/29 02:24
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- C言語・C++・C# プログラミングの問題です。至急教えてください。 /***から***/の部分をプログラミングにしてほし 1 2022/10/13 11:48
- Excel(エクセル) Application.Volatile利用(excel2003) 1 2023/02/06 10:11
- デスクトップパソコン 40年間の悩み キーボードにおいて初期値として漢字ローマ字変換に設定する方法 8 2023/05/08 14:50
- Visual Basic(VBA) M365環境での動作エラー、及び対応相談 1 2023/01/27 04:18
- HTML・CSS WEBサイトの構築。表示データとWEBデザインを分離する考え方を専門用語・業界用語では何と言うか? 8 2022/09/27 09:16
- ルーター・ネットワーク機器 transix回線で契約、外部からIPv6でNASにアクセスしたい 1 2023/01/26 15:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
データベースファイル(.db)を開...
-
同じSQL文で極端に検索が遅くな...
-
htmlフォームから受け取ったフ...
-
SQLServer2005のネットワークド...
-
バッチでAccessのmdbファイルを...
-
PL/SQLで@ファイル名が反応しま...
-
PL/SQLをWindowsのBATファイル...
-
あるDBから別のDBのテーブルをs...
-
sql*loader 数値のロード
-
mysqlにおけるホストのパーセン...
-
mySQLのデータベースにhtmlのコ...
-
SQLServerのselect文でデータ数...
-
どの程度のデータベースなら、c...
-
弥生販売のデータベースをネッ...
-
数字で「そ」と「り」
-
create databaseがうまくいきま...
-
複数データベースへの問い合わせ
-
htmlタグを含んだ文字のデータ...
-
メンテナンスプランについて
-
レジストリが変更できない(Win...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データベースファイル(.db)を開...
-
同じSQL文で極端に検索が遅くな...
-
DBファイルの中身を直接見れな...
-
Access2010でアクセス制限をしたい
-
DB2の文字化け
-
badファイルの内容を知る方法
-
ODBCを使用する場合のファイルD...
-
PHPから中国語ファイルを読み込...
-
htmlフォームから受け取ったフ...
-
batでsqlplusによる前月データ...
-
accdbファイルの最適化
-
データベースのデータ入力にか...
-
ダンプファイルから特定のテー...
-
mysql.sockを消してしまった
-
SQLServer2005 セカンダリファ...
-
HD容量が足りなくなった場合...
-
お世話かけますが、エラー内容...
-
SQLserver2005⇒2012へ移行
-
こんにちは。Access上でExcelデ...
-
SQLiteとファイルキャッシュで...
おすすめ情報