Lotus Notes - Acuse de recibo

 
Vista:

Acuse de recibo

Publicado por Lola (8 intervenciones) el 24/03/2006 14:09:01
Hay manera de leer los correos sin abrirlos? Es por si nos lo mandan con acuse de recibo y no quiero que el remitente sepa que lo he abierto.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Acuse de recibo

Publicado por Federico acevedo (90 intervenciones) el 31/03/2006 19:27:37
hola Lola

si tenes el cliente de Diseño, copia y pega este codigo en el evento QueryOpenDocument de la carpeta Inbox:

Set col = Source.Documents

If col.Count = 0 Then Exit Sub

Set doc = col.GetFirstDocument

If doc.HasItem( "$AutoEditMode" ) Then
Call doc.RemoveItem( "$AutoEditMode" )
Call doc.Save( True , False )
End If

If doc.HasItem( "ReturnReceipt" ) Then
If doc.ReturnReceipt(0) = "1" Then
doc.ReturnReceipt = "0"
Call doc.Save( True, True )
Beep
Msgbox "Este correo tenia aviso de retorno" , 64, "ATENCION"
End If
End If

Espero que te ayude ...

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar