Página 1 de 1
TCdoMail propiedad lReceipt
Publicado: Jue Sep 26, 2024 5:34 pm
por 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.
Re: TCdoMail propiedad lReceipt
Publicado: Jue Sep 26, 2024 7:09 pm
por 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
Re: TCdoMail propiedad lReceipt
Publicado: Vie Sep 27, 2024 10:05 am
por 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()
Re: TCdoMail propiedad lReceipt
Publicado: Vie Sep 27, 2024 11:43 am
por Jose Lopez
Genial Ignacio muchas gracias por su ayuda.
Pepe.