Displaying a VBA-generated Notes Message for User Completion

From your question I read that you use "Back-end classes" to generate and send mails. Using back-end classes allows you to perform operations silently. In the contrast, now you want to do some work yourself and let the user give it a finish.

Buddy, to do that you will have to make a fundamental change to your existing code. You will need to change your code so that it uses "front-end classes". THere isn't a lot of difference bw the two apporoaches, sans, object initalization changes. Majority of your code will remain the same only begining will change and a few additional lines may be.

If you put your code here, we may be able to help you on your specifc problem. Otherwise, generally speaking, use the Front-end classes to do so. Sample code Qwalette has already given.

HTH

~ Ranjeet Rain

You may also like to see this code: http://www.angelfire.com/realm/vb-shared/send_mail_with_notes.zip

Hi Guys

The first few lines of my code looks like this:

Dim n_session as new NotesSession
'other dims here
Call n_Session.Initialize("")
Set UserWorkspace = createobject("Notes.NotesUIWorkspace")
MailFile = n_Session.GetEnvironmentString("MailFile", True)
'Mail server is "" as always local
Set NotesUIDoc = UserWorkspace.ComposeDocument ("", Mailfile, "Memo")
'other code to populate here

If the maildb is already open then everything works fine (even if I'm on the logout screen when the password prompt appears correctly before the code is run) so I'm happy about the code populating the message. If Notes is closed then I get the following sequence:

1) Lotus Notes prompt for password but not the usual Notes prompt - "A password is required to access ID file .." then the first 10 or so characters of a truncated path
2) After entering the password another Lotus Notes box appears "The ID File is in use elsewhere and cannot be modified"
3) The usual Notes password prompt
4)  A VBA error "Unable to find Document Window" where the debug indicates that the ComposeDocument line has failed.

I suspect a problem with the location of the ID file. I can run other similar VBA macros on this machine without problems with the password, but all of these generate and send the memos in background after prompting for the Notes password using the box mentioned in 1) above.

The location of the mailfile is correctly identified by the environment string.

Any ideas?

By the way Qwaletee - your sample code said that "message.gotofield "Body" ' can't just set body field text" but I used fieldSetText "Body" successfully to add my pre-set text. Am I missing something?

Cheers

Tony




Set message = notes.composeDocument ( mailServer , mailFile , "Memo" )

You may try kickstarting Lotus Notes using shell. YOu may also read and examine the location of the .ID file from Notes.INI file.

As RanjeetRain pointed out, see code on that site. There are several routines there to help you.

Richie, you seems to have started Domino early on. Why? Have you not been regular with it?

Sorry, i didn't understand (my poor english, i'm affraid)

Return to Q:
In VBA (and regular VB and vbScript), you cannot access front end classes as you wish (you can in Lotusscript).
So, showing user interface from VB is, at least as i know, impossible.
You could open Notes Window but it would be empty (No welcome, no bookmark, workspace, nothing)
Why do you need to do so?
You could create your own "notes-user interface" and map every user action with COM.

You could show a regular VBA form (excel and word have those) populating the required field and with a Send and Cancel buttons that manage COM code to do the Notes stuff.
Code from that site could be easily traslated to VBA (i know that since it is my site ;)

Sorry for the delay guys - I've been waiting for the new laptop build to try this out.

Qwalatee, using your code I seem to get a (blank) message generated in Notes but then get the following error generated in VB "Automation error. The server threw an exception" from the line
Set message = notes.composeDocument ( mailServer , mailFile , "Memo" ).
Both mailserver and mailfile seem to be populated correctly except that I'm using the local mail database but the server info picked up is for the LAN.

Any ideas?