module1.bas

基于vb和lotus捆绑的oa办公自动化之电话费登记系统

Attribute VB_Name = "Module1"
Public Session As New Domino.NotesSession
Public PublicNotesDb As New Domino.NotesDatabase
Sub Main()
    '''连接到Domino数据库
    Set Session = CreateObject("Lotus.NotesSession")
    Call Session.Initialize("88888888") '需要修改
    Set PublicNotesDb = Session.GetDatabase("", "f:\通讯管理315.nsf")

    If PublicNotesDb Is Nothing Then
       MsgBox ("不能打开Notes库，请查看系统设置！")
       Exit Sub
    End If
    frmMain.Show 0
End Sub