作成者	カテゴリ	返答の対象		公開
KKato 06/04/1999 05:15 PM		スクリプトで ”カッコの使い方が不正です”で保存できないのです

どうも、スクリプト内で、全角スペースが入っているのが
問題みたいですね。

以下をコピー＆ペーストしてみて下さい。
（全角スペースを削除してあります）

Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
tel = uidoc.FieldGetText("TEL")
If tel = "" Then
While tel = ""
tel = Inputbox("電話番号を入力してください")
Wend
Call uidoc.FieldSetText("TEL",tel)
End If
End Sub