摘要: 1 Sub Initialize 2 Msgbox "h3c18001:SendTaskMail Start" 3 On Error Goto errormsg 4 Dim fldlst As New LCFieldList 5 Dim doc As NotesDo... 阅读全文
posted @ 2015-03-16 16:21 guojian2080 阅读(379) 评论(0) 推荐(0) 编辑
摘要: 1 Sub Initialize 2 On Error Goto errormsg 3 Msgbox "RUh3c18001_011:SendMailOfReview Start" 4 Dim sql As String 5 Dim doc As Note... 阅读全文
posted @ 2015-03-16 16:17 guojian2080 阅读(512) 评论(0) 推荐(0) 编辑