投稿

8月, 2010の投稿を表示しています

メールの回収

イメージ
皆さん、IBM Lotus Notes Movieを見ましたか?
ちょっと微妙なムービーですが、Lotus Notesでできることを端的に教えてくれるという点では、面白いですよ。

さてさて、では今日もクリックしましょう。



今日は、Lotus Notes Movieの第1話で取り上げられているメールの回収について書いてみたい。
と言っても、設定もそんなに難しくないし、今更な感じも否めないが、そこは付き合って欲しい。

まずは、メール回収の設定から。
1.ドミノディレクトリにサーバ設定文書を作成する(すでに作成してある場合は、作成済みの文書を開く)。
2.[ルータ/SMTP]タブの[送信済みメールの回収]タブを開く。
3.「送信済みメールの回収」の項目を"有効"にする(デフォルトが有効になっているので、変更しなくても良いだろう)。

※ルータタスクを再起動の必要はなさそうです。
たった、これだけです。簡単ですね。



では、次にクライアント側の方を見ていきましょう。
ポイントとしては、
・「送信済み」「すべての文書」ビューからのみ実行可能 ・メールの回収は、1度に1通しか行う事ができない ということです。
つまり、「送信済みのメール文書を開いても実行出来ない」のです。
メールの中身を見て、「あ!これは間違えて送った奴だから取り消さないと!」と言うときでも一度ビューに戻る必要があるのです。ちょっと面倒ですね。

この[送信済みメールの回収]をクリックすると、下図のようなダイアログが表示されます。

今回は、全員からメールを回収してみますので、全員にチェックを付けます。
また、2つあるオプションも両方チェックを入れてみます。

なお、色々なパターンを検証するために、受信者の状態は次のようにしてあります。

受信者名
文書の状態 Test Ichirou未読Test Jirouゴミ箱行き後、未読として戻すTest Saburou既読Test Yoshimiメール削除Test Gorou既読後、未読に戻すTest Mutsukoゴミ箱行きTest Nanamiゴミ箱行き後、既読として戻す
上記の設定画面で、[OK]をクリックすると、メールの回収が行われたことを示すダイアログが表示されます。(下図)















この時、サーバ画面では、下図のように表示されています。


全員のメールがrecallされた…

テクてくLotus 技術夜会に参加してきました Part2

イメージ
気がついたら8月も終わりです。なんでしょう・・・

まずは、ボタンをポチッと



さて、先週の金曜日、渋谷マークシティにある日本IBM殿にて、「テクてくLotus 技術夜会 ザ・アドミン編」が開催されました。
当然?、筆者も参加してきました。管理者ガイドはすでに購入済みですので、管理者ガイド目当てではありません。もらいましたけど(2冊もいらないよなぁ。どうしよ。でも、あげないですよ)。

今回は前回のザ・デベロッパー編に比べると少なかったようですが、それでも60名弱の方が集まったようです。

管理者向けの夜会ということで、Lotus Dominoサーバの基礎知識について講演がありました。
参加者の皆さんは真剣に話を聞いていました。

この時の資料は、テクてくLotus技術者夜会:ザ・アドミン編_10-08-27からダウンロードできますので、参加できなかったという方も一度目を通しておくと良いでしょう。



なお、この夜会で、今年のLotus Day(って言って良いのかな?)の開催日程が発表されました。
名称は「Lotus Knows EXPO 2010」で、10/21(東京)、10/26(大阪)での開催とのことです。
詳しくはLotus Knows EXPO 2010を参照してください。


【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】
単純なDBのカスタマイズから他アプリケーションとの連携までご要望にお応えします

ビューで選択した文書の内容を本文に貼り付ける

イメージ
なんと前回の投稿から1ヶ月以上経過していた・・・
吃驚仰天。

書かなかった理由は色々ありますが、あえて触れません。

とにかく、本文を読む前にこちらのボタンをクリックしましょう。



さてさて・・・
ドミノ懇談室にビューから選択(複数可)した文書リンクを、新規メール本文に貼付けたいという投稿があったので、ちょっと検証してみた。

複数の文書ということなので、@コマンドではおそらくできないであろう。
ということでLotus Scriptで書くことにしてみた。

1.複数文書を取得して、
2.新規文書の本文に
3.取得した文書のリンクとフィールド内容を添付する
ということが要件なので、
↓こんなサンプルかな?
Sub Click(Source As Button) On Error Goto ErrProc Dim session As New NotesSession Dim db As NotesDatabase Dim docs As NotesDocumentCollection Dim doc As NotesDocument Dim mdoc As NotesDocument Dim mbody As NotesRichTextItem 'DBと文書の取得 Set db = session.CurrentDatabase Set docs = db.UnprocessedDocuments '新規文書の作成 Set mdoc = db.CreateDocument mdoc.Form = "MainTopic" mdoc.Subject = "選択した文書のリンクとフィールド内容を貼り付ける" Set mbody = New NotesRichTextItem( mdoc, "Body" ) '取得した文書のデータを貼り付ける Set doc = docs.GetFirstDocument Do While Not ( doc Is Nothing ) Call mbody.AppendDocLink( doc, "" ) Call mbody.AddTab( 1 ) Call mbody.App…