当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2008年10月24日金曜日

フィールドの内容をクリップボードにコピー

Notes/Domino8環境へのバージョンアップに手間取ったので、今日も手抜き。

フィールドの内容をクリップボードにコピーするサンプル。
まぁ、クリップボードを使うから、UIでの利用だな。と覚えておけばよいでしょう。
ということで、NotesUIDocumentクラスのメソッドなのです。

------------------------------------------------------------------------------------------
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Set uidoc = workspace.CurrentDocument

Call uidoc.GoToField( "Subject" )
Call uidoc.SelectAll
Call uidoc.Copy
End Sub


Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: