ファイルを開くダイアログボックス

※NotesUIWorkspace クラスのOpenfiledialog メソッドを使用
Dim ws As New NotesUIWorkspace FileList=ws.Openfiledialog(True, "ファイル選択","すべてのファイル(*.*)|*.*|テキスト ファイル(*.txt;*.csv)|*.txt;*.csv|","C:\Windows\System32")

Openfiledialog(multipleSelection , [title$] , [filters$] , [initialDirectory$] , [initialFile$] )

フィールド1[multipleSelection]：	複数選択可にするか	画像
フィールド2[title$]：	ダイアログのタイトル部分
フィールド3[filters$]：	ダイアログで表示するファイルの種類 "ファイルの種類で表示される文字列|表示する拡張子" 複数の拡張子を表示する場合は、";(セミコロン)"で区切る。
フィールド4[initialDirectory$]：	デフォルトで表示するフォルダ
フィールド5[initialFile$]：	デフォルトで表示するファイル名

※選択したファイル名はFileList(0)で確認できます。複数選択した場合は、配列部分の数字を変えます。(変数名をFileListとした場合)
※キャンセルを押した時は空なので、【If Isempty(FileList) Then 〜】で処理をします。(変数名をFileListとした場合)

参考資料→
��http://www.ezsite.jp/help/help8_designer.nsf/f4b82fbb75e942a6852566ac0037f284/517b67ce6a3b2758492573210036441a!OpenDocument

ファイルを読み込む

Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim doc As New NotesDocument(db) FileNum = Freefile() '使用できるファイル番号を取得する Open "ファイル名(フルパス)" For Input As FileNum 'ファイルを読み込みモードで開く Do Until Eof(FileNum) 'ファイルの最後までループする Line Input #FileNum , strValue 'ファイルの各行をstrValuに取得する Msgbox strValue 'メッセージボックスで表示 Loop

Freefile関数について：
��http://www.ezsite.jp/help/help8_designer.nsf/f4b82fbb75e942a6852566ac0037f284/a3285a57af0ff6a9492573210035d324!OpenDocument

メールを送信する

Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim doc As New NotesDocument(db) doc.SendTo="troublesome@xxx.com" '宛先の指定 doc.Subject="件名です" '件名の指定 'Call doc.Send(True) '送信 'Call doc.Save(True, False, True) 'ドラフトに保存

• send(True|False)は、送信済みアイテムとして[送信]フォルダに保存するかしないかの指定。どちらも送信はされます。
• Save(True, False, True)
  第1引数：上書き保存か新規保存か。(今回は新規文書を作成しているので、どちらにしても新規保存です)
  第2引数：競合となった場合、競合文書で保存するか、中止するか。

send関数について：
��http://www.ezsite.jp/help/help65_designer.nsf/f4b82fbb75e942a6852566ac0037f284/d7444741e17a27e549256dc9001345ee!OpenDocument
save関数について：
��http://www.bcom.co.jp/help/help8_designer.nsf/f4b82fbb75e942a6852566ac0037f284/8bb4cd108186a3e9492573210035fd2b!OpenDocument

iniファイルの値を取得・設定する

Dim session As New NotesSession Msgbox session.GetEnvironmentString("プロパティ名", True) 'iniファイルのプロパティを参照

GetEnvironmentStringの第二引数は True：$なし False：$あり

Dim session As New NotesSession Call session.SetEnvironmentVar( "プロパティ名", "値" , True) 'iniファイルのプロパティを設定

SetEnvironmentVarの第三引数は True：$なし False：$あり
��ユーザーの環境変数($付き)
��システムの環境変数($無し)

プロパティの説明はこちらでもしています。

ビューからフィールドの値を取得してcsvに書き出す

Sub Click(Source As Button) On Error Goto errorexit 'O001エラー対策 Dim session As New NotesSession Dim db As NotesDatabase Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim view As NotesView Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim max_cnt As Integer '文書数(ループ回数で使用) Dim STMfilename As Variant 'ファイル名 Dim docno As Integer 'ループで使用 Dim filenum As Integer Dim out As String Set uidoc = ws.CurrentDocument Set doc = uidoc.Document SName = "サーバー名" DBName="データベース名.nsf" '/*ファイル開く*/ FileNum% = Freefile() TempDir$ = session.GetEnvironmentString( "FileDlgDirectory" ) filenames = ws.SaveFileDialog( False,"名前をつけて保存","*.csv",TempDir$, "デフォルトファイル名.csv") If Isempty(filenames) Then Msgbox "キャンセルします",16,"キャンセル" Exit Sub End If '/*ヘッダーを先に出力*/ Open filenames(0) For Output As FileNum% out = "ヘッダータイトル" Print #filenum,out '書き出し '/*データベース開く*/ Set directory = New NotesDbDirectory(SName) Set db = New NotesDatabase(SName,DBName) Set view = db.GetView( "ビュー名" ) '/*データ件数を取得*/ ViewCount=view.AllEntries.Count docno = 1 '/*フィールド値を取得*/ Do Set doc = view.GetNthDocument(docno) フィールド1=Cstr(出力フィールド(0)) out = フィールド1 Goto Through errorexit: Msgbox "エラーメッセージ" Close filenum Exit Sub Through: Print #filenum,out '書き出し docno=docno+1 Loop Until docno = ViewCount 'ファイル閉じる Close filenum Msgbox "終了" End Sub