MySphere Posts

Saiu hoje a mais recente versão do Notes 8.0.2. O foco principal desta versão é a performance.
Para maiores detalhes click aqui
Sobre as melhorias de performance click aqui

Já faz algum tempo que estou com uma máquina Ubuntu em casa pronta para o teste do Notes 8 em Linux. Um cliente então solicitou que um teste fosse feito em uma máquina com o Ubuntu 8, foi o que eu precisava para testar a instalação. Os passos são os seguintes para uma instalação sem problemas:

Abra um terminal no Ubuntu e execute os seguintes comandos

$ sudo apt-get install libstdc++5 (no meu caso estava conectado na internet)

adicione a linha export AWT_TOOLKIT=MToolkit no arquivo /etc/profile

$ sudo ln -sf bash /bin/sh

copie a imagem do Notes 8 para o seu diretório home (ex: /home/kenio/)
crie um diretório e navegue para ele

$ mkdir notes8install
$ cd notes8install
$ tar xvf ../notes81Linux.tar
$ sudo ./setup.sh

Siga as instruções do wizard de instalação do Notes e após terminar a instalação

sudo chmod 777 -R /etc/lotus

Para chamar o Notes e terminar a configuração /opt/ibm/lotus/notes/notes

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