I am trying to create a VB6 application that cycles through my Lotus Notes email/documents and prints each one. I have successfully been able to have the application obtain data from each document and create a Word document, but have been unable to get the document to print directly from Lotus Notes. I would prefer to have it print directly from Lotus notes due to the formating of the document not being consist with my current means of exporting to Word. Here is what I am currently doing:
Sub ExportDoc()
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim numcnt As Long
Dim MailCnt As Long
Dim ViewName As String
'Init Mail Counter
Maincnt = 0
session.Initialize
Set workspace = CreateObject("Notes.NotesUIWorkspace")
Set db = session.GetDatabase("", "C:\a_mail.nsf")
Call workspace.OpenDatabase("", "C:\a_mail.nsf")
For Each View In db.Views
ViewName = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(View.Name, “?”, “"), "", "”), “/”, “"), “:”, "”), “*”, “"), “@”, "”), “<”, “"), “>”, "”)
If (Left(ViewName, 1) <> "(") Then
numcnt = View.EntryCount
If (numcnt > 0) Then
MailCnt = 1
Set doc = View.GetFirstDocument
While Not (doc Is Nothing) And (MailCnt < 10)
Set uiDoc = workspace.EDITDOCUMENT(False, doc) '<-Incorrect argument type: object expected
uiDoc.Print (1)
Call uiDoc.Close(True)
Set doc = View.GetNextDocument(doc)
MailCnt = MailCnt + 1
Wend
Set doc = Nothing
wdo.QUIT
Set wdo = Nothing
End If
End If
Next
Set View = Nothing
Set db = Nothing
End Sub