0

vb.net で Silverlight アプリケーションを作成しており、ロータス ノート経由で電子メールを送信する必要があります。これを行うには、ロータス ノーツ クライアント アプリを開き、新しいメール ウィンドウを開き、必要なすべての詳細 (宛先、件名など) を新しいメール ウィンドウに置き換えます。以下のコードを使用していますが、マシン上で Lotus Notes アプリケーションを開くだけで、これ以降は何もしません。エラーはスローされませんが、最初の CreateObject 呼び出しの後のすべてが単に無視されるようです。interops.domino.dll を参照しようとしましたが、Silverlight プロジェクトであるビジュアル スタジオは、dll が Silverlight ランタイム用にコンパイルされていないと述べています。これに関するご支援をいただければ幸いです。

Dim outlook = AutomationFactory.CreateObject("Notes.NotesSession")
Dim notesdb = outlook.GetDatabase("", "")                                                                                                 

notesdb.OpenMail()                                                                                            
Dim doc = notesdb.CreateDocument()

Dim msg = "Hey whats up"

doc.ReplaceItemValue("SendTo", "person@temp.com")                                                                                           
doc.ReplaceItemValue("Subject", "Hello")                                                                                              
Dim rtitem = doc.CreateRichTextItem("Body")                                                                                           
rtitem.AppendText(msg)
4

2 に答える 2

-1

現時点で行うことは、バックエンドで新しいドキュメントを作成し、それに値を入力することだけです。Word文書を開かずに作成するようなものです...

作成したドキュメントを実際に表示するには、さらにコードが必要です。さらに、フォームを割り当てる必要があります。そうしないと、Notes はこの文書を表示する方法を認識できません。

Dim session = AutomationFactory.CreateObject("Notes.NotesSession")
Dim notesdb = outlook.GetDatabase("", "")   
Dim ws = AutomationFactory.CreateObject("Notes.NotesUIWorkspace")
notesdb.OpenMail()
Dim doc = notesdb.CreateDocument()

Dim msg = "Hey whats up"

doc.ReplaceItemValue("Form", "Memo")
doc.ReplaceItemValue("SendTo", "person@temp.com")
doc.ReplaceItemValue("Subject", "Hello")
Dim rtitem = doc.CreateRichTextItem("Body") 
rtitem.AppendText(msg)

ws.EditDocument( True, doc )

Silverlight を使用していないため、残念ながらコードをテストできませんでしたが、正しい方向を指しているはずです。

于 2013-09-10T09:07:10.123 に答える