Aviso de Recebimento

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

 0 Comentário(s) 2 de Junho de 2008