MAPI Delivery Request

How can I request a delivery receipt acknowledgement using MAPI

I am using MSMAPI32.OCX to send the mail

This is the code I'm using...
LPARAMETERS cEmail, cSubject, cBody, cNote

ThisForm.oMailSession.SignOn()


WITH ThisForm.oMailSend

.SessionID = ThisForm.oMailSession.SessionID

.MsgIndex = -1

.Compose


.MsgReceiptRequested = .t. && ALSO WANT A DELIVERY RECEIPT REQUEST


.MsgSubject = IIF(EMPTY(cSubject)," ",STRTRAN(cSubject,"$$$",CHR(13)))

.AddressResolveUI = .f.

.AddressModifiable = .t.

.RecipDisplayName = IIF(EMPTY(cEmail)," ",STRTRAN(cEmail,"$$$",CHR(13)))

.MsgNoteText = IIF(EMPTY(cBody), " ",STRTRAN(cBody,"$$$",CHR(13)))

IF !EMPTY(cNote)

IF EMPTY(cBody)

.MsgNoteText = ThisForm.Extract_Note(cNote)

ELSE

.MsgNoteText = .MsgNoteText + ThisForm.Extract_Note(cNote)

ENDIF

ENDIF

.MsgNoteText = RTRIM(.MsgNoteText) + SPACE( MEMLINES(FILETOSTR(cList)) +
1)

x = .Send(.t.)

ENDWITH

ThisForm.oMailSession.SignOff()


.