WARNING - FrontEnd Code. Will not work in a web application. Switch to DocumentContext property.
Document Title: RE: How to send a doc and its form using an action button?
Message Content:
Something like this:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.FieldSetText( "SendTo", uidoc.FieldGetText( "Manager" ) )
Call uidoc.Send
End Sub
Julian.Reed@Deloitte.co.uk
Document Title: RE: How to send a doc and its form using a an action button?
Message Content:
Putting this code inside the Sub Click worked for me!
You need to have a SendTo field if you don't have one and, in my example I have an "EMail" field
where the address is retreived from!
It SHOULD work!
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.FieldSetText( "SendTo", uidoc.FieldGetText( "EMail" )
Call uidoc.Send
previous page
|