nsfl10n

Lotus Notes/Domino のブログ。nsf:Notes Storage Facility。l10n:Localization。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告|
  3. トラックバック(-)|
  4. コメント(-)

サーバにある全DBのカタログメールを作成する

Create e-mail catalog of all databases on server

 この簡単な Tip は、あなたのサーバにある全ての DB タイトルとリンクを貼ったシンプルなメールをあなたに送ってくれます。エージェントかボタンにでも実行させてみてください。

Sub Initialize Dim ServerName As String ServerName$ = "SERVER1/ACME" Dim session As New NotesSession Dim newDoc As NotesDocument Dim rtitem As NotesRichTextItem Dim thisDb As NotesDatabase Set thisDb = session.CurrentDatabase Set newDoc = New NotesDocument( thisDb ) Set rtitem = New NotesRichTextItem( newDoc, "Body" ) newDoc.Subject = "Here is a link to all the databases on your server." newDoc.SendTo = "email@domainname" Dim dbdir As New NotesDbDirectory(ServerName$) Set db = dbdir.GetFirstDatabase(DATABASE) While Not(db Is Nothing) Call db.Open( "", "" ) Print "Adding: " & db.title Call rtitem.AppendText("Database: " & db.Title & " Document Link ----> " ) Call rtitem.AppendDocLink( db, db.Title ) Call rtitem.AddNewLine( 1 ) Set db = dbdir.GetNextDatabase Wend Print "Sending email." newDoc.Send( False ) End Sub
This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at nsftools.com.
スポンサーサイト
  1. 2005/06/05(日) 04:10:07|
  2. Designer|
  3. トラックバック:0|
  4. コメント:0
<<ワークスペースカスタマイズ!! | ホーム | Notes の URI で RSS フィードを作成する>>

コメント

コメントの投稿

管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://nsfl10n.blog9.fc2.com/tb.php/20-13772ced
05 | 2017/03 | 06
Sun Mon Tue Wed Thu Fri Sat
- - - 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 -

Search

Featured Entries

Recent Entries

Recent Comments

Recent Trackbacks

Archives

Category

Links

Ads

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。