I haven't really played around with the RR functions of Notes. So this may not work, but let me know. Try this:

loDoc.ReplaceItemValue("ReturnReceipt",1)

OR

loDoc.ReplaceItemValue("ReturnReceipt","1")

If nothing else, it will be a starting point.

HTH

Richard





>Hi guys [and gals]
>
>I'm looking for a way to add a delivery option to the email I'm composing for Lotus Notes. I'd need to set the 'return receipt' option.
>
>here's partial code i'm using :
>
>

>oNotesSession = CREATEOBJECT("Lotus.NotesSession")
>oNotesSession.Initialize(ALLTRIM("")) && Will give an OLE Exception Error if an error occurs
>lsMailServer = oNotesSession.GetEnvironmentString("MailServer", .T.)
>lsMailDB = oNotesSession.GetEnvironmentString("MailFile", .T.)
>loDB = oNotesSession.GetDatabase(lsMailServer, lsMailDB)
>loDoc = loDB.CreateDocument()
>lcSubject = 'Subject goes here'
>loDoc.ReplaceItemValue("Subject", lcSubject)
>DIMENSION laSendTo[1]
>laSendTo[1] = ALLTRIM("email@isp.com")
>loDoc.ReplaceItemValue("SendTo", @laSendTo)
>loRTF = loDoc.CreateRichTextItem("Body")
>richStyle = oNotesSession.CreateRichTextStyle
>WITH richStyle
>   .Bold = .F.
>   .NotesFont = 4
>   .FONTSIZE = 10
>ENDWITH
>lcBody = [Email Body]
>WITH loRTF
>   .AppendStyle(richStyle)
>   .AddNewLine(2, .T.)
>   .AppendText(lcBody)
>   .AddNewLine(2, .T.)
>   .EmbedObject(1454, "", lcFile2Attach)
>ENDWITH
>loDoc.SaveMessageOnSend = .T. && Saves a copy to sent folder
>loDoc.SEND(.F.) && Sends the message
>

>
>Any help would be appreciated
>
>TIA,
>
>Yanick