Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 278
  • Last Modified:

Reply button

I have a button in a form that sends a memo to manager asking them a yes or no question. I want the mail memo to contain either a yes or no checkbox or radio buttons(doesn't matter) or even a button to answer the question, update the field on that document. I would rather not use a doc link. How can this be done.  The field name on the form is called LAPTOP(dialog box-radio button).        Thanks.
0
schmad01
Asked:
schmad01
  • 6
  • 3
  • 3
1 Solution
 
p_parthaCommented:
Use store form in document, and send the document.
and when you send the document , have the parameter as true

i.e Call doc.Send( True )

Partha
0
 
HemanthaKumarCommented:
You can use several ways to do this... one efficient way is to store the form and send it user as a mail.

1. Enable the form to be stored with the doc
2. Create sendto and replyto (plus server and database path) fields and a button for reply
3. Send to field is used to send the mail to managers
4. The button will incorporate a formula or script which will update or create a document as a reply in the original db


~Hemanth
0
 
schmad01Author Commented:
Remember, I am a script rookie.  Please give more detail.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
p_parthaCommented:
     Dim ws As New notesuiworkspace
      Dim sess As New notessession
      Dim db As notesdatabase
      Set db = sess.currentdatabase
      Dim uidoc As notesuidocument
      Set uidoc = ws.currentdocument
      Call uidoc.save
      Dim doc As notesdocument
      Set doc = uidoc.document
      doc.sendto = "schmad01"
      Call uidoc.document.send(True)
      
0
 
schmad01Author Commented:
I understand now, after trying your suggestions, but the document itself is cumbersome and would be too overwhelming for the end user. Is there no way to just ask the question in the mail memo with a button or something to answer it and have that update the document?
0
 
HemanthaKumarCommented:
Actually you want to post back the reply to the db...And I don't have clue what your db looks like. I would copy the entire form back to the db and so you have original content and response in the db

So the button (with the doc bein mailed ) should contain the script plus the radio button with yes or no option

Dim ws as new NotesUIWorkspace
Dim doc as NotesDocument
Dim db as NotesDatabase
Dim s as New NotesSession
set doc = ws.CurrentDocument.Document
set db = s.GetDatabase( doc.Server(0), doc.DBPath(0) ) ' This fields should be present in the mailed copy of the doc
' Check if the doc is updated with response
if doc.RadioButton(0) <> "" then
 doc.Save true, false
 call doc.CopyToDatabase(db) ' Post the doc back to the db
Else
 Msgbox "Please respond by clicking any of the option in the reply section"
End if


PS: Ignore Replyto field.. as it is not needed unless your db is mail-in db
0
 
schmad01Author Commented:
Gotchya. That'll work!  Thanks, Partha
0
 
schmad01Author Commented:
Thanks Partha, and thanks for your input Heman.
0
 
HemanthaKumarCommented:
If you want to update the doc.. then carry universal id with the mailed doc...

THis mailed doc doesn't have to be the original doc.. a form (say respcollect )with three fields (server, dbpath, docid)

This is how you create mail

set doc = db.CreateDocument ' Set the db to the current database
doc.Form = "respcollect"
doc.SendTo = "Manager"
doc.Server = db.Server
doc.Dbpath = db.FilePath
doc.docid = thisdoc.UniversalID ' Thisdoc should refer to currently open/processed doc
doc.Send true

And above script need slight modification when updating back


Dim ws as new NotesUIWorkspace
Dim doc as NotesDocument
Dim db as NotesDatabase
Dim s as New NotesSession
set doc = ws.CurrentDocument.Document
set db = s.GetDatabase( doc.Server(0), doc.DBPath(0) ) ' This fields should be present in the mailed copy of the doc
' Check if the doc is updated with response
if doc.RadioButton(0) <> "" then
 set origdoc = db.GetDocumentByUNID(doc.DocId(0))
 if not origdoc is nothing
   origdoc.Response = doc.RadioButton
   origdoc.save true, false
 end if
Else
 Msgbox "Please respond by clicking any of the option in the reply section"
End if
0
 
p_parthaCommented:
what worked for you ?

Partha
0
 
schmad01Author Commented:
OOPs, I goofed.  I meant thanks to both of you.  I will award P_Partha points in next question. Sorry, I got so excited, I just wasn't thinking!
0
 
schmad01Author Commented:
Both worked, I just haven't decided which one to use, but now I have good options.
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

  • 6
  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now