Aviso de Recebimento

Share

Uma demanda que surgiu de um amigo meu, e depois de outro e outro, foi fazer com que o Notes avise que alguém
requisitou o “Aviso de Recebimento” ao abrir uma mensagem do Notes. Achei o código em um fórum e ai vai a
receita:

Abrir a caixa postal no designer
Abrir o formulário Memo
Substituir o código no envento QueryOpen pelo código abaixo

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
     If source.InPreviewPane Then Exit Sub
     
     ‘codigo para retirar o return receipt
     Dim doc As NotesDocument
     Dim res%
     If Not(Source.IsNewDoc) Then
             Set doc=Source.Document
             If (doc.ReturnReceipt(0)=”1″) And (Cstr(doc.DeliveredDate(0))<>“”) Then
                     res=Msgbox(“The sender has requested notification that you have seen this message.” _
                     +Chr(13)+”Do you wish to send the notification?”,35,”Return Receipt”)
                     If res=IDCANCEL Then
                             Continue=False
                             Exit Sub
                     End If
                     If res=IDNO Then
                             doc.ReturnReceipt=”0″
                             doc.Save False,False
                     End If
             End If
     End If
     ‘fim do código
     ‘*********************************************
     ‘Begin Quota Checking Code
     ‘*********************************************
     Dim check_quota As Integer
     check_quota = False
     
     If source.IsNewDoc Then
             check_quota=True
     Elseif source.document.HasItem(“IsMailStationery”) Then
             If source.document.GetItemValue(“IsMailStationery”)(0) = 1 Then
                     check_quota=True
             End If
     End If
     
     If check_quota Then
             Dim quotaCheck As New CheckQuota
             
             If quotaCheck.isEnabled Then
                     Call quotaCheck.init
                     
                     If quotaCheck.dbQuota<> 0 Then
                             If quotaCheck.dbSize >= quotaCheck.dbQuota Then
                                     Call quotaCheck.DoMessageBox(MB_QUOTAOVER,MB_OK, MB_QUOTAOVER)
                                     Continue = False
                             Elseif quotaCheck.dbSize >= quotaCheck.dbWarning Then
                                     If quotaCheck.dbWarning <> 0 Then
                                             Call quotaCheck.DoMessageBox(MB_QUOTAWARNING,MB_OK, MB_QUOTAWARNING)
                                     End If
                             End If
                     End If
             End If
     End If
     ‘*********************************************
     ‘End Quota Checking Code
     ‘*********************************************
     
     Set cMemoObject = New UIMemoDocument        
     Call cMemoObject.Init(Source,Isnewdoc)
End Sub