Set Domino.NotesDatabase and Domino.NotesSession variables...how?

[Klopper]

Hi

I wish to automate the detachment of email attachments from ny Notes (Version 5.08) to a given path.
I am using Access 97 VBA to access the Domino COM on NT.
The code below errors ("Object variable or with variable not set&quot at the indicated line.

Any ideas anyone?
Many thanks
Klopper


Public COMSess As Domino.NotesSession
Public COMDB As Domino.NotesDatabase


Public Sub NotesSaveAttachs(sPathToSave As String)
Dim View As New Domino.NotesView
Dim nDoc As Domino.NotesDocument


Set View = COMDB.GetView("($Inbox)&quot 'ERRORS HERE

Set nDoc = View.GetFirstDocument
Dim itm As Variant
While Not (nDoc Is Nothing)
If nDoc.HasEmbedded Then
Set itm = nDoc.GetFirstItem("Body&quot
If itm.Type = RICHTEXT Then
Dim attch As Variant
For Each attch In itm.EmbeddedObjects
If (attch.Type = EMBED_ATTACHMENT) Then
attch.ExtractFile sPathToSave & attch.Name
End If
Next

End If
' Following code commented is used to delete mails after
' attachments were saved to disk.
'Set nDoc2Remove = nDoc
End If
Set nDoc = View.GetNextDocument(nDoc)
' Following code commented is used to delete mails after
' attachments were saved to disk.
'If Not (nDoc2Remove Is Nothing) Then
' nDoc2Remove.Remove (True)
' Set nDoc2Remove = Nothing
'End If

Wend

End Sub

Public Sub OpenSess()

' Creates new Notes session object and prompt user to
' enter servername, password and database mail.
' Prompt for password can be override if you pass password value
' as parameter of initialize method.
' This could be stored on registry/ini file to ask the
' user only the first time.
' I used inputbox for easy, you could add a form to get all
' values.
Set COMSess = New Domino.NotesSession

COMSess.Initialize InputBox$("Please enter Database password.", "Enter Password&quot
Set COMDB = COMSess.GetDatabase(InputBox$("Please enter Domino server name here.", "Server name", "DOMINO_SERVER&quot, _
InputBox$("Please enter Domino database name here.", "Enter database name", "\mail\7\mydb.nsf&quot, _
False)
With COMDB
If Not .IsOpen Then
MsgBox "Unable to open Notes session.", vbCritical, "Init Error"
Set COMDB = Nothing
Set COMSess = Nothing
Exit Sub
Else
Dim f As String
f = BrwFolder
If f <> &quot;&quot; Then
NotesSaveAttachs f
Else
MsgBox &quot;No directory was selected. Aborting&quot;, vbCritical, &quot;Error&quot;
End If
End If
End With
End Sub
Public Function BrwFolder() As String

Dim bi As BROWSEINFO
Dim pidl As Long
Dim path As String
Dim pos As Integer

'Fill the BROWSEINFO structure with the
'needed data. To accomodate comments, the
'With/End With sytax has not been used, though
'it should be your 'final' version.

'hwnd of the window that receives messages
'from the call. Can be your application
'or the handle from GetDesktopWindow().
bi.hOwner = 0 'Me.hWnd

'Pointer to the item identifier list specifying
'the location of the &quot;root&quot; folder to browse from.
'If NULL, the desktop folder is used.
bi.pidlRoot = 0&

'message to be displayed in the Browse dialog
bi.lpszTitle = &quot;Select your Folder&quot;

'the type of folder to return.
bi.ulFlags = BIF_RETURNONLYFSDIRS

'show the browse for folders dialog
pidl = SHBrowseForFolder(bi)

'the dialog has closed, so parse & display the
'user's returned folder selection contained in pidl
path = Space$(MAX_PATH)

If SHGetPathFromIDList(ByVal pidl, ByVal path) Then
pos = InStr(path, Chr$(0))
BrwFolder = Left$(path, pos - 1) & &quot;\&quot;
End If

Call CoTaskMemFree(pidl)

End Function



Sub NotesCloseSession()
' if version is 4.x there is another approach.
Set COMDB = Nothing
Set COMSess = Nothing
End Sub

 

[pmonett]

I believe you missed a declaration :

Public COMSess As Domino.NotesSession
Public COMDB As Domino.NotesDatabase


Public Sub NotesSaveAttachs(sPathToSave As String)
Dim View As New Domino.NotesView
Dim nDoc As Domino.NotesDocument

Set COMDB = COMSess.currentdatabase'add this line
Set View = COMDB.GetView(&quot;($Inbox)&quot 'ERRORS HERE

I think that error should go away then. Of course, you might wish placing the line at a higher level, to have it available in your other procedures.

PM

 

[Klopper]

True, thanks.

I have also discovered that my Domino reference object was missing and the ActiveX component was not registered.

A case of RTFM...
This was very useful:

http://www-10.lotus.com/ldd/notesua...852569d9005bd01d?OpenDocument&Highlight=0,COM