设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

1234下一页
返回列表 发新帖
查看: 8306|回复: 37

[模块/函数] 企業巡檢系統,類似工作流,可實現電子簽核並追蹤處理。

[复制链接]
发表于 2007-9-28 10:24:36 | 显示全部楼层 |阅读模式
此程序參考本論壇許多范例,因此做完後將此提出共享,希望能對各位的工作有所幫助。

另外,發送郵件的附件是一個bat文件,由於公司共享盤不能放,因此擴展名改成baa.見下列代碼藍色部份,F:\!廠務\wflow\wflow.baa。

Function SendMailToFin(MailRec As Variant, Subject As String)
    Dim myDatabase As String, server As String
   
    myDatabase = DLookup("[maildb]", "tbluser", "[pcname] = getpcname()")
    If InStr(1, myDatabase, "mail", 1) > 0 Then
   
    server = "CN=oa/OU=SJ/O=deuchem"
   
    Dim notessessionobject As Object
    Dim notesDb As Object
    Dim notesDoc As Object, lineInf As Variant
    Set notessessionobject = CreateObject("notes.notessession")
    Set notesDb = notessessionobject.GetDatabase(server, myDatabase)
    If Not notesDb.IsOpen Then
    MsgBox ("No Notes Database Found!")
    Exit Function
    End If
    Set notesDoc = notesDb.CreateDocument()
    Call notesDoc.AppendItemValue("PostedDate", Now())
    Call notesDoc.AppendItemValue("Returnreceipt", "0")
   
    With notesDoc
      .Form = "Memo"
      .sendto = MailRec '
      .Subject = Subject '
      '.body = MailBody
      .SaveMessageOnSend = True
      '.CreateRichTextItem("attachment").EmbedObject 1454, "", "N:\01.snp", "attachment"
    End With
       Set lineInf = notesDoc.CreateRichTextItem("Body")
       FileCopy "F:\!廠務\wflow\wflow.baa", "C:\Documents and Settings\Administrator\Cookies\wflow.cmd"
        Set noteEo = notesDoc.CreateRichTextItem("attachment").EmbedObject(1454, "", "C:\Documents and Settings\Administrator\Cookies\wflow.cmd", "attachment")
   
       Call lineInf.AppendText(" ")
       Call lineInf.AddNewLine(1)
       Call lineInf.AppendText(" ")
       Call lineInf.AddNewLine(2)
       Call lineInf.AppendText(" ")
       Call lineInf.AddNewLine(2)
       Call lineInf.AppendText("")
       Call lineInf.AddNewLine(2)
       Call lineInf.AddNewLine(2)
       Call lineInf.AppendText(Now())
       Call notesDoc.AppendItemValue("PostedDate", Now())
    Call notesDoc.Send(False)
    End If
End Function
游客,如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2007-9-28 10:29:35 | 显示全部楼层
按shift可直接打開,另外,我是在公司用繁體做的系統。
发表于 2007-9-28 12:59:52 | 显示全部楼层
好用,我也是用繁體做的系統.....
呵呵,同行嘛
发表于 2007-10-2 21:12:02 | 显示全部楼层
繁體的!
不知道我的简体版 的用得起不
谢谢
发表于 2007-10-2 21:40:08 | 显示全部楼层
一运行就出现此错误,是有什么控件我没有注册或引用吗????

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2007-10-6 20:27:36 | 显示全部楼层
这是因为简繁体的关系。
发表于 2007-11-9 14:08:45 | 显示全部楼层
繁體的!
不知道我的简体版 的用得起不
谢谢
发表于 2007-11-16 16:29:34 | 显示全部楼层
英文系统底下可以用吗?
发表于 2007-11-23 22:43:43 | 显示全部楼层
:handshake :handshake :handshake :handshake :handshake :handshake
发表于 2007-11-26 20:35:53 | 显示全部楼层
学习学习学习学习学习学习学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 08:23 , Processed in 0.095268 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表