Automatically insert data from a rich text field of a profile document in the body field of new memos

I want to automatically insert data from a rich text field in the body field of all outgoing mail messages when a new memo is created. The data is stored in a rich text field of a profile document (same database). Is there any possibility to accomplish this without modifying the memo form design element?

Can anybody tell me how the “Automatically append a signature to the bottom of my outgoing mail messages” function of Tools → Preferences → Mail/Signature works?

In my opinion it should be possible to accomplish my “task” in almost the same manner as the automatically insertion of signatures but I still have not found the underlying code.

Thanks in advance, kind regards,

Stefan

Subject: Automatically insert data from a rich text field of a profile document in the body field of new memos

You will have to modify the mail-template, if it has to occur automatically. But a “semi-automatic” solution could be to implement it as a toolbar icon, with code similar to this pseudocode:

dim …

set maildoc = db.CreateDocument

maildoc.form = “Memo”

Set item = profiledoc.getfirstitem (“Body”)

Call item.CopyItemToDocument(maildoc, “Body”)

maildoc.SaveOptions = “0”

Call uidoc.close

Set item = maildoc.GetFirstItem(“SaveOptions”)

Call item.Remove

Call workspace.EditDocument(True,maildoc)

Set uidoc = workspace.CurrentDocument

Subject: RE: Automatically insert data from a rich text field of a profile document in the body field of new memos

Thanks a lot for your fast response; but I have already inserted an action button with lotus script code to manually insert the rich text data.

I keep on trying to insert the rich text data automatically.

Thanks again and have a nice weekend!