"VBAからNortsに連結しリンクメールを送信したい"に対する返答



作成者	カテゴリ	返答の対象	公開
わろ 12/20/2006 02:32 PM		VBAからNortsに連結しリンクメールを送信したい

Re: VBAからNortsに連結しリンクメールを送信したい

こちらではそのままのマクロではコンパイルエラーになったため少し改変したところ動作しました。
何かヒントになるといいのですが^^

環境：Notes6.5(R6.5.4)+Windows2000Professional+Excel2000

EXCELへボタンを追加して、Clickイベントへ以下の処理を記述
Dim ws As Object

Dim session
Dim notesDB
Dim view
Dim Doc
Dim mailDoc
Dim rtitem As Variant

Set session = CreateObject("Lotus.NotesSession") →"Notes"を"Lotus"へ変更
Call session.Initialize →追加

Set notesDB = session.GetDatabase("", "C:\test.nsf")
Set mailDoc = notesDB.CreateDocument()
call mailDoc.ReplaceItemValue("Form","memo") →拡張構文が使えなかったため変更
Set view = notesDB.GetView("testView")
Set Doc = view.GetFirstDocument
Set rtitem = mailDoc.CreateRichTextItem("Body")
If Not (Doc Is Nothing) Then
Call rtitem.AppendDocLink(Doc, "Test")
End If
Call mailDoc.ReplaceItemValue("Subject","依頼メール") →拡張構文が使えなかったため変更
Call mailDoc.Send(False, "ユーザID")　→ユーザIDは時際に存在するIDを設定