いつも参考にさせていただいています。 早速ですが以下の様にExcelのマクロ(VBA)からNortsに繋げる記述を行いリンクメールを配信させたいのですが、AppendDocLinkで実行時エラーになってしまいます。経験の有る方ご教示下さい。 ---------------------------------------------- Sub test() Dim ws As Object Dim session Dim notesDB Dim view Dim Doc Dim mailDoc Dim rtitem As Variant Set session = CreateObject("Notes.NotesSession") Set notesDB = session.GetDatabase("", "C:\test.nsf") Set Doc = notesDB.CreateDocument() Set mailDoc = notesDB.CreateDocument() mailDoc.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(mailDoc, "Test") End If mailDoc.Subject = "依頼メール" Call mailDoc.Send(False, "hanako") ----------------------------- 実行時エラー オートメーションエラー サーバによって例外がかえされました というエラーになってしまいます。 AppendDocLinkを除くと上手くいきます。