问题描述
DimsessionAsnotessessionDimdb2AsNotesDatabaseDimdbAsnotesdatabaseDimpdocAsnotesdocumentDimcollectionAsNotesDocumentCollectionDimnoteAsnotesdocumentDimuserAsStringDimdbdocAsNotesDocumentDimcdocAsNotesDocumentDimtempstr1AsStringDimidsAsStringDimversion1AsstringDimidtempAsStringSubInitializeSetsession=NewnotessessionSetdb=session.currentdatabaseSetcdoc=session.DocumentContextCallgetinfo()EndSubSubgetinfo()m=Ubound(cdoc.currentRestrict)-Lbound(cdoc.currentRestrict)Fori=0Tomidtemp=cdoc.currentRestrict(i)Ifdbdoc.statuslist(0)<>"TBC"thendbdoc.statuslist="TBC"dbdoc.version=dbdoc.version(0)+0.1dbdoc.confirmby=cdoc.cname(0)dbdoc.confirmdate=cdoc.date(0)dbdoc.status=CStr(CInt(dbdoc.status(0))+1)version1=CStr(dbdoc.version(0))DimmaildocAsNotesDocumentDimrtitemAsNotesRichTextItemSetmaildoc=NewNotesDocument(db)Setrtitem=NewNotesRichTextItem(maildoc,"body")maildoc.form="Memo"maildoc.sendto="user2"maildoc.copyto="user1"subject1=CStr(cdoc.cname(0))+""+"create/modifyarequestat"+""+Cstr(Now)+""+"forsupplier:"+""+CStr(dbdoc.customer(0))+""+"Version:"+""+CStr(dbdoc.version(0))'subject1=CStr(cdoc.cname(0))+""+"create/modifyarequestat"+""+Cstr(Now)+""+"forsupplier:"maildoc.subject=subject1IfNotmaildocIsNothingThenCallmaildoc.Send(True)EndIfNextEndSubSubsendmail(sendtoerAsVariant,subjectAsString,SmessageAsString)DimsessionAsNewNotesSessionDimdbAsNotesDatabaseSetdb=session.CurrentDatabaseDimdocAsNotesDocumentSetdoc=session.DocumentContextSetmaildoc=NewNotesDocument(db)Setrtitem=NewNotesRichTextItem(maildoc,"body")maildoc.form="Memo"maildoc.sendto=cdoc.cname(0)maildoc.copyto=cdoc.cname(0)maildoc.subject=subjectCallmaildoc.Send(False)EndSub
解决方案
解决方案二：
asdfasdfasdfasdf
解决方案三：
该回复于2010-09-17 10:21:16被版主删除
解决方案四：
呵呵，你的帖子连一个汉字都没有啊，描述下你的问题啊，或者告诉我们错误在第几行啊？
解决方案五：
debug啊
解决方案六：
把ID打出来看看
解决方案七：
多半是根本没有这个UNID的文档
解决方案八：
服了，现在的人连问题都懒得描述了
解决方案九：
这段代码贴得不完整吧