I am trying to create a button that draws info like: name, date of when action should be completed, etc from one db and create a ‘To Do’ item that will pop up on the person responsible for that task. I am in the initial stages, but am unsure how to proceed with the creation of a new to do item. Here is what I have so far:
Sub Click(Source As Button)
Dim s As New notessession
Dim todaydate As New notesdatetime("Today")
Dim ws As New notesuiworkspace
Dim db As notesdatabase
Dim todaysdate As String
Dim actionperson As String
Dim actionitem As String
Dim actiondeadline As String
Dim personinit1 As String
Dim personinit2 As String
Dim persondb As String
Set db = s.currentdatabase
Set uidoc = ws.currentdocument
'Predefined values: (replace with field values from uidoc)
todaysdate = todaydate.localtime
actionperson = uidoc.fieldgettext("ProjectNextActionAssignment_1")
actionitem = uidoc.fieldgettext("ProjectNextAction_1")
actiondeadline = uidoc.fieldgettext("ProjectNextActionDeadline_1")
personinit1 = Strleft(actionperson, " ")
personinit2 = Strrightback(Strleft(actionperson, "/"), " ")
persondb = "Server/Watermeadow/" + personinit1 + personinit2 + ".nsf"
End Sub
Any ideas would be greatly appreciated.