in the QuickForward sub in OpenNTFLibraryUI its functionality is more like a resend to new recipient, I would like it to be a real forward.
In addition, I would like to remember previous comments for each user.
I put together some code, but, Im not sure I like it completely.
What do yall think? Be kind, Its a quick stab at it.
%REM
Set newdoc = doc.CopyToDatabase(db)<br/>
Call newdoc.RemoveItem("Encrypt") <br/>
Call newdoc.RemoveItem("ReturnReceipt") <br/>
Call newdoc.RemoveItem("Action") <br/>
Call newdoc.RemoveItem("DeliveredDate") <br/>
Call newdoc.RemoveItem("DefaultMailSaveOptions") <br/>
Call newdoc.RemoveItem("Categories") <br/>
Call newdoc.RemoveItem("CopyTo") <br/>
Call newdoc.RemoveItem("from") <br/>
Call newdoc.RemoveItem("inetfrom") <br/>
Call newdoc.RemoveItem("inetcopyto") <br/>
Call newdoc.RemoveItem("PostedDate") <br/>
Call newdoc.RemoveItem("Sign") <br/>
%END REM
<br/>
'*** NEW STUFF BEGIN
Dim QuickComments As Variant<br/>
Dim QuickNames As Variant<br/>
Dim QuickItemNum As Long<br/>
Dim DefaultComments As Variant<br/>
If prefDoc Is Nothing Then<br/>
Set prefDoc = db.GetProfileDocument("CalendarProfile") <br/>
End If<br/>
QuickComments = prefDoc.QuickComments<br/>
QuickNames = prefDoc.QuickNames<br/>
<br/>
If Isnull(Arraygetindex(QuickNames,TargetAddr)) Then<br/>
If Len(QuickNames(0)) = 0 Then<br/>
QuickItemNum = 0<br/>
QuickNames(QuickItemNum) = TargetAddr<br/>
QuickComments(QuickItemNum) = ""<br/>
Else<br/>
QuickItemNum = Ubound(QuickNames) +1<br/>
Redim Preserve QuickNames(QuickItemNum) As String<br/>
Redim Preserve QuickComments(QuickItemNum) As String<br/>
QuickNames(QuickItemNum) = TargetAddr<br/>
QuickComments(QuickItemNum) = ""<br/>
End If<br/>
Else<br/>
QuickItemNum = Arraygetindex(QuickNames,TargetAddr)<br/>
End If<br/>
<br/>
<br/>
<br/>
Set newdoc = New NotesDocument(db)<br/>
Dim BodyRTF As New NotesRichTextItem(NewDoc,"Body")<br/>
Dim Comments As String<br/>
If QuickComments(QuickItemNum) = "" Then<br/>
Comments = Inputbox ( "Add additional Comments" & Chr(10) & "or <space> to add nothing" , "Comments" , " " )<br/>
Else<br/>
Comments = Inputbox ( "Add additional Comments or -None- to add nothing" , "Comments" , QuickComments(QuickItemNum) )<br/>
End If<br/>
If Len(comments) = 0 Then<br/>
Messagebox "Operation cancelled"<br/>
End<br/>
Elseif Len(Trim(comments)) > 0 Then<br/>
Call BodyRTF.AppendText(Comments) <br/>
Call bodyRTF.AddNewline(1)<br/>
End If<br/>
QuickComments(QuickItemNum) =Comments<br/>
prefDoc.QuickComments = QuickComments<br/>
prefDoc.QuickNames = QuickNames<br/>
Call prefDoc.Save(1,1)<br/>
Call doc.RenderToRTItem(BodyRTF) <br/>
newdoc.Subject = "Fw: " & doc.Subject(0)<br/>
<br/>
newdoc.Form = "Memo"<br/>
'*** NEW STUFF End