Hello, I wrote a code on web to instead of “Inputbox” on the Notes, but the button doesn’t work, and I don’t know how to send value of the Subject from Javascript to Note Subject for sending email.
Sub SendEmailForStatus(doc As NotesDocument)
Dim tmp As NotesDocument
Dim view1 As NotesView
Dim nd As NotesDocument
Dim rtf As NotesRichTextItem
Dim ret As Variant
Dim txt As String
Dim mailbody As NotesItem
Dim mailsubject As NotesItem
Dim doc1 As NotesDocument
Dim db As NotesDatabase
Dim key As String
Set tmp =doc. ParentDatabase.CreateDocument
key=doc.Requestor(0)
Set db=doc.ParentDatabase
Set view1 = db.GetView("PeopleLookUp" )
Set doc1= view1.GetDocumentByKey (key )
StatusOld=doc.StatusOld(0)
statusNew=doc.status(0)
If (StatusOld="1" And statusNew="3" ) Or (StatusOld="1" And statusNew="4" ) Or (StatusOld="2" And statusNew="3" ) Or (StatusOld="2" And statusNew="4" ) Then
tmp.Form = "Memo"
Set rtitem = New NotesRichTextItem( tmp, "Body" )
Call rtitem.AppendDocLink(doc, "link")
'doc.subject="Notice for changes--from Phil: " & Source.Document .summary(0)
Print "<HEAD>"
Print "<SCRIPT LANGUAGE="JavaScript">"
Print "function clickFunction()"
Print "{"
Print "Var Tem=this.form.Subj.value"
Print "}"
Print "</script>"
Print "</HEAD>"
Print "<BODY>"
Print "<FORM NAME=My Form>"
Print "<BR>"
Print "<INPUT TYPE="BUTTON" NAME="myButton" VALUE="Press This" onClick="clickFunction">"
Print "</FORM>"
Print "</BODY>"
Vartmp=Tem
tmp.subject=Vartmp
'recipients =Doc.emNAme(0)
'recipients="ABC@casott.on.ca"
recipients=doc1.InternetAddress(0)
'doc.body=source.Document.UniversalID
'doc.SendTo =Source.Document.Requestor(0)
tmp.body=doc.UniversalID
'Call doc.Send( True)
Call tmp.Send( True, recipients )
End If
End Sub
Any one can help Please.
Many thanks!!!
Linda