ich hoffe du kannst was damit anfanggen:I am trying to copy the contents of a RTF from one doc to another. it worked fine for the ***************************************************+
aber beachte:never mind the problem was that the source RTF was computed, once I made it editable it worked fine
*******************************************
here is a segment of the code that I am using:
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Set uidoc = ws.CurrentDocument
Set db = s.CurrentDatabase
Set doc = uidoc.Document
Set itemA = doc.GetFirstItem( "Body" )
'****Create Fax doc
Set fDoc = db.CreateDocument
fDoc.Form = "iFax"
fDoc.Status = "New"
fDoc.Category = "Medical Review"
fDoc.AreaCode = doc.AreaCode(0)
fDoc.FaxNumber = doc.FaxNumber(0)
fDoc.State = doc.State(0)
fDoc.Subject = doc.Subject(0)
fDoc.LeadSourceNumber = doc.LeadNumber(0)
fDoc.DateRecieved = doc.DateRecieved(0)
fDoc.TimeRecieved = doc.TimeRecieved(0)
'Patient Info
fDoc.MFNAME = doc.MFNAME(0)
fDoc.MLNAME = doc.MLNAME(0)
fDoc.MADD1 = doc.MADD1(0)
fDoc.MADD2 = doc.MADD2(0)
fDoc.MCITY = doc.MCITY(0)
fDoc.MSTATE = doc.MSTATE(0)
fDoc.MZIP = doc.MZIP(0)
fDoc.MPHONE = doc.MPHONE(0)
'Dr Info
fDoc.I4CONM = doc.I4CONM(0)
fDoc.I4INNM = doc.I4INNM(0)
fDoc.I4ADD1 = doc.I4ADD1(0)
fDoc.I4ADD2 = doc.I4ADD2(0)
fDoc.I4CITY = doc.I4CITY(0)
fDoc.I4ST = doc.I4ST(0)
fDoc.I4ZIP = doc.I4ZIP(0)
fDoc.I4PHN = doc.I4PHN(0)
fDoc.I4FAX = doc.I4FAX(0)
Call itemA.CopyItemToDocument( fDoc, "ifBody" )
Call fDoc.MakeResponse( pDoc )
Call fDoc.Save(True,False)
All of Dims are in the Declarations section