I’ve got the following code which I now need to modify so that I’m not sending the dialog box form but the contents of the dialog box.
My lotusscript is poor so any help will be appreciated.
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim docCurrent As NotesDocument
Set docCurrent = source.document
docCurrent.Form = "dlgTest"
Call ws.DialogBox( "dlgTest", True, True, True, False, False, False, "This is a test")
Call docCurrent.save(False, True )
Call docCurrent.Send( True )
End Sub
Subject: Send memo instead…
Maybe I’m not communicating effectively. Right now the code is working and when the main document is saved all fields are populated properly.
We’ve given the user this dialog box to provide information in an editible format. Primarily they will be given the original body information in the body field. If they want to append or add text to this they will be able to do that. This extended body field works in lieu of a comments field enabling the user to provide additional information.
I can currently send the information in the dialog box with no problem other than it’s unattractive in read mode.
Now we need to send the information to the user in the form of a memo rather than the ugly dialog box.
Sorry this is so confusing. File Save I’ve read thru your provided thread and you’ve already helped me get the data to the main form. Your info previously provided was very helpful.
Thanks
Angie
Subject: RE: Send memo instead…
Angie,
If you go back to the code I posted, you will notice that it goes beyond getting data back from a dialogbox.
It specifically includes code to create a memo using the data in the document and sending it as a memo.
Subject: How do I convert dialog box data to memo…
Angie,
you caught me in my blunt frame of mind, so sorry.
I and ithers have given you many different proven solutions. What is your resistance that forces you to keep reposting the same question over and over again?
Go back to this thread:
http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/bdf0c4a603f518b785256e59006d7477?OpenDocument
Subject: No, mailing dialog box works but…
Sorry, but actually my problem is different than before. I have the dialog box mailing successfully right now.
The problem is that my lead developer who created the dialog box to use for formatting the e-mail wants the data the user enters into the dialog box forwarded. We will not be using the actual dialog box form like we were before. Now I need to convert the field values from the dialog box to a memo.
If I simply change the form name it mails a blank e-mail. I’m attempting to use this code but I have a type mismatch. Any ideas?
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim IssueNum As Variant
Set db = session.CurrentDatabase
Dim docCurrent As NotesDocument
Set docCurrent = source.document
docCurrent.Form = "Memo"
Call ws.DialogBox( "dlgTest", True, True, True, False, False, False, "This is a test")
Call docCurrent.save(False, True )
docCurrent.Subject = "Re: " + docCurrent.FieldGetText( "IssueNum" ) + " this task has been assigned to you."
docCurrent.Body = _
"Please send me some more information on this topic."
Call docCurrent.Send( False, docCurrent.FieldGetText( "SendTo_1" ) )
End Sub
Subject: Where does the type mismatch occur?
doing what you have done, you have totally screwed up your document. Go back to the thread above and look at the code I posted and what I posted about getting fields back from the dialog box.
Subject: Dialog box is mailing, now we don’t want that form.
Sorry, but actually my problem is different than before. I have the dialog box mailing successfully right now.
The problem is that my lead developer who created the dialog box to use for formatting the e-mail wants the data the user enters into the dialog box forwarded. We will not be using the actual dialog box form like we were before. Now I need to convert the field values from the dialog box to a memo.
If I simply change the form name it mails a blank e-mail. I’m attempting to use this code but I have a type mismatch. Any ideas?
Subject: Try:
docCurrent.Form = "dlgTest" Call ws.DialogBox( "dlgTest", True, True, True, False, False, False, "This is a test")
docCurrent.Form = "Memo"
Call docCurrent.save(False, True )
Call docCurrent.Send( True )