Lotus Script - DB 양식에 쓰기

Sub WriteNewDocument(sendto As Variant, subject As String, appdoc As NotesDocument)

On Error GoTo errHandle

Dim targetdb As NotesDatabase

Dim newDoc As NotesDocument

Dim item As NotesItem

Set targetdb = ss.Getdatabase(Server Name, Db Name)

If Not targetdb.IsOpen Then

Call targetdb.Open("","")

End If

Set newDoc = targetdb.Createdocument

newDoc.Form = "PBoard"

newDoc.Subject = subject

newDoc.Categories = "공지사항"

newDoc.회의록저장소 = "공용게시판"

newDoc.sendto = sendto

Set item = appdoc.getfirstitem("contents")

Call newDoc.Copyitem(item, "Body")

Dim memo As NotesDocument

Dim rtitem As NotesRichTextItem

Set memo = New NotesDocument(targetdb)

memo.Form = "Memo"

Set rtitem = New NotesRichTextItem(memo, "Body")

Call rtitem.appendtext("[" + newDoc.회의록저장소(0) + "] " + newDoc.Subject(0) + " 공지사항입니다. ==> ")

Call rtitem.appenddoclink(newDoc, "공용게시판 공지사항")

memo.sendto = sendto

memo.subject = subject

Call newDoc.Save(True,False)

Call memo.send ( False )

skip:

Exit Sub

errHandle:

Print "agent메일발송계획 error"

Resume skip

End Sub