1

以下のコード スニペットは、最初にメールが準備され、次にすべてのドキュメントに doclink が追加され、最後にメールが送信されるというものです。

オブジェクト変数が doc.SentTo = addresses.abbreviated に設定されていません

Dim s As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim i As Integer
Dim view As NotesView

Set s = New NotesSession
Set db = s.CurrentDatabase
Set view = db.GetView("View")
Set doc = New NotesDocument(db)
Dim addresses As NotesName
i=0
'- prepare mail
doc.SendTo = addresses.abbreviated
doc.Form = "Memo"
Set rtitem = New NotesRichTextItem(doc, "Body")
Call rtitem.AppendText("Balance")

Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
    Set addresses = New NotesName(doc.Manager(0)) 
    If addresses.abbreviated = "" Then
    i = i + 1
Else 
    '- Append descriptive text, link and new line
    Call rtitem.appendtext(doc.Subject(0) & "  " )
    Call rtitem.appenddoclink(doc, "Link")
    Call rtitem.addnewline(1)
    i = i + 1
End If
Set doc = view.GetNextDocument(doc)
Wend
'- send mail
Call doc.Send (True)

助けていただければ幸いです。

4

1 に答える 1

2

ここには 2 つの問題があります。1 つは、アドレスがまだオブジェクトに設定されていないことです。もう 1 つは、送信する電子メールと一連のドキュメントを反復処理するために doc 変数を使用したことです。

次の行を変更します。

Set doc = New NotesDocument(db)
Dim addresses As NotesName

これに、または同様のものに：

Set mailDoc = New NotesDocument(db)
Dim addresses As New NotesName("email recipient user name")

mailDoc.SendTo = addresses.abbreviated
mailDoc.Form = "Memo"
Set rtitem = New NotesRichTextItem(mailDoc, "Body")

また、下部の doc 変数を mailDoc に変更します:)

于 2015-05-27T11:42:34.653 に答える