TCdoMail propiedad lReceipt

[Jose Lopez]

Buenas tardes a todos.
Estoy usando desde hace mucho la clase TCdoMail. Y ahora me encuentro con la necesidad de usar la propiedad lReceipt pero parece que no esta implementada. Alguna sugerencia.
Gracias.
Pepe.

[Jose Lopez]

Ignacio se podría implementar en la clase TCdoMail esto:

WITH OBJECT ::oObj
//*- Notificación de lectura
If ::lReceipt
:Fields("urn:schemas:mailheader:disposition-notification-to"):Value := ::cFrom
:Fields("urn:schemas:mailheader:return-receipt-to"):Value := ::cFrom
:Fields:Update()
EndIf
END

Muchas gracias

[ignacio]

Buenos días,

Le sugiero que sobrecargue la clase T y haga usted mismo los cambios.

Un saludo

Código: Seleccionar todo

CLASS TCDOMail FROM XCDOMail
   PROPERTY lReceipt INIT .F.
   METHOD Send() 
ENDCLASS

METHOD Send()  CLASS XCDOMail
 WITH OBJECT ::oObj
  If ::lReceipt
    :Fields("urn:schemas:mailheader:disposition-notification-to"):Value := ::cFrom
    :Fields("urn:schemas:mailheader:return-receipt-to"):Value := ::cFrom
    :Fields:Update()
  EndIf
  END WITH
 RETURN ::Super:Send()

[Jose Lopez]

Genial Ignacio muchas gracias por su ayuda.
Pepe.