TMapi lReceipt no funciona ?
Publicado: Jue Oct 21, 2010 1:08 am
Buenas estoy necesitando enviar mail con confirmación de lectura y seteo la
propiedad lReceipt en TRUE de la clase TMapi y no obtengo el efecto deseado.
Si alguien puede aportar algo se los agradecería
Private oMapi
oMapi := TMapi():New()
WITH OBJECT oMapi
:Create()
If :Logon()
:cFromName := "Boris Chesini"
:cFromAddress := "borischesini@masterisi.com.ar"
:cSubject := "Asunto del Mensaje"
:cMessage := "Cuerpo del Mensaje"
:lreceipt := .t.
:lAskRecipients := .T.
If :Send()
MsgAlert( "enviado" )
Else
MsgAlert( "fallo en el envio" )
Endif
:Logoff()
Endif
END
propiedad lReceipt en TRUE de la clase TMapi y no obtengo el efecto deseado.
Si alguien puede aportar algo se los agradecería
Private oMapi
oMapi := TMapi():New()
WITH OBJECT oMapi
:Create()
If :Logon()
:cFromName := "Boris Chesini"
:cFromAddress := "borischesini@masterisi.com.ar"
:cSubject := "Asunto del Mensaje"
:cMessage := "Cuerpo del Mensaje"
:lreceipt := .t.
:lAskRecipients := .T.
If :Send()
MsgAlert( "enviado" )
Else
MsgAlert( "fallo en el envio" )
Endif
:Logoff()
Endif
END