Archive for: ‘September 2009’

Welche Systemanforderungen gelten fr Domino 8.5 und Notes 8.5

18. September 2009, 11:44 Erstellt von Manfred Meise (27 clicks)

Im \“Informationsdschungel der IBM\“ nicht einfach zu finden, sind die formellen Systemanforderungen im Rahmen des Rollouts von Notes und Domino 8.5 Produkten. Hier findet man einen hilfreichen Einstiegspunkt fr alle 8.5 Versionen (Lotus Notes, Lotus …

Welche Systemanforderungen gelten für Domino 8.5 und Notes 8.5

18. September 2009, 09:44 Erstellt von Manfred Meise (15 clicks)

Im „Informationsdschungel der IBM“ nicht einfach zu finden, sind die formellen Systemanforderungen im Rahmen des Rollouts von Notes und Domino 8.5 Produkten.

Hier findet man einen hilfreichen Einstiegspunkt für alle 8.5 Versionen (Lotus Notes, Lotus Domino, Lotus Traveler etc):
http://www-01.ibm.com/support/docview.wss?uid=swg27007909

Welche Systemanforderungen gelten für Domino 8.5 und Notes 8.5

18. September 2009, 09:44 Erstellt von Manfred Meise (16 clicks)

Im „Informationsdschungel der IBM“ nicht einfach zu finden, sind die formellen Systemanforderungen im Rahmen des Rollouts von Notes und Domino 8.5 Produkten.

Hier findet man einen hilfreichen Einstiegspunkt für alle 8.5 Versionen (Lotus Notes, Lotus Domino, Lotus Traveler etc):
http://www-01.ibm.com/support/docview.wss?uid=swg27007909

Welche Systemanforderungen gelten fĂĽr Domino 8.5 und Notes 8.5

18. September 2009, 09:44 Erstellt von Manfred Meise (12 clicks)

Im „Informationsdschungel der IBM“ nicht einfach zu finden, sind die formellen Systemanforderungen im Rahmen des Rollouts von Notes und Domino 8.5 Produkten.

Hier findet man einen hilfreichen Einstiegspunkt fĂĽr alle 8.5 Versionen (Lotus Notes, Lotus Domino, Lotus Traveler etc):
http://www-01.ibm.com/support/docview.wss?uid=swg27007909

Zuflliger "Neue Mail" Infosound

7. September 2009, 08:32 Erstellt von Michael Siegrist (25 clicks)

Beim Erhalt einer neuen Mail wird von IBM Lotus Notes immer wieder der gleiche Infosound verwendet. Die hier beschriebene Code-Erweitung  ndert jedesmal, wenn die Maildatenbank neu geffnet wird, per Zufall auf einen anderen Infosound. Hierzu wird…

Zufälliger „Neue Mail“ Infosound

7. September 2009, 06:32 Erstellt von Michael Siegrist (11 clicks)

Beim Erhalt einer neuen Mail wird von IBM Lotus Notes immer wieder der gleiche Infosound verwendet. Die hier beschriebene Code-Erweitung  ändert jedesmal, wenn die Maildatenbank neu geöffnet wird, per Zufall auf einen anderen Infosound. Hierzu wird ein Verzeichnis mit vorhandenen WAV Dateien verwendet, welches vorher natürlich konfiguriert werden muss, wozu der hier beschriebene Agent unter 3. dient.
Wir legen bei uns die Mailtunes in ein händisch erzeugtes Unterverzeichnis des Lotus Notes Programmverzeichnisses. Das Verzeichnis kann jedoch auch beliebig auf der lokalen Platte liegen.

Nun zum Code :

1. Im Datenbankscript der Maildatenbank/Schablone folgende Sub hinzufügen:

 
Sub CMT
     REM "for setup the local mail tune"
     
     Set Session=New NotesSession
     Dim tAgent As NotesAgent
     Dim availTunes List As String
     Dim i, count As Integer
     Dim filename As String
     Dim ver As Integer
     Dim wavfiledir As String
     Dim tune As String
     Dim inivar  As String
             
     wavfiledir=session.Getenvironmentstring("MailTuneDir")
     If (wavfiledir="") Then
             If session.Getenvironmentstring("MailTuneStatus") = "True" Then
                     Print "No User Specific Tunes Found, starting Config .."
                     Set tAgent= session.currentdatabase.getAgent("SetUpTunes")
                     Call tAgent.Run
             End If
             wavfiledir=session.Getenvironmentstring("MailTuneDir")
     End If
     ver=Mid$(Session.notesversion,9,1)           'This will return a 4 or a 5
     availTunes(0)="Please copy some WAV files into " & wavfiledir   'This handles the "I don't have any .wav files" issue
     If (ver              inivar="NewMailTune"   ' For Release 4 Notes.ini Files
     Else
             inivar="Incoming Mail Sound"   ' For Release 5 and higher
     End If
             
' get correct path format due to client incompatibilites        
     If Right(wavfiledir,1) "\" Then
             wavfiledir = wavfiledir & "\"
     End If
             
     fileName = Dir$(wavfiledir & "*.wav", 0)
     If filename"" Then        
             Do While fileName ""                     'This builds an array of .wavs
                     availTunes(count+1) = fileName
                     fileName = Dir$()
                     count=count+1
             Loop                                                          
             Randomize                                    'Initialize random # generator
             i=Cint(Rnd()*count)
             tune=availTunes(i)                           'pick a tune, any tune
             Call Session.SetEnvironmentVar (inivar, wavfiledir &  tune,True)    
             Print "Changed NewMailTune to: " & tune  'gimme some feedback
     Else
             Print "No Files in MailTune Directory found !"
     End If
     End
' just some error handling if the mailtune dir isnt there
PathNotFound:
     Print "MailTune Dir  which is configured in the Notes.ini not Found on this System ! Try to create a new one !"
     End
     
End Sub

2. Am Ende des Postopen events der Maildatenbank/Schablone einfach nur den Call CMT hinzufügen:

 
Sub Postopen(Source As Notesuidatabase)
     '*********************************************
     'Begin Quota Checking Code
     '*********************************************
     
     Dim quotaCheck As New CheckQuota
     
     If quotaCheck.isEnabled Then
             If Not(quotaCheck.IsQuotaMailFileOwner) Then
                     Call quotaCheck.SetCalMgrINI
             End If
     End If
     
     '*********************************************
     'End Quota Checking Code
     '*********************************************
     Call FollowUpMigration(source)
     ' Custom expiration feature code
     Dim s As New NotesSession
     
     If s.GetEnvironmentString("CustomExpirationEnabled") = "1" Then        
             Call  DBOpenExtendedForCustomExp(source)
     End If
     Call SetupCalendarViewNotices
     '*********************************************

     '        for mailtune changes

     '*********************************************

     Call CMT
       
End Sub

3. Zum Aktivieren/Deaktivieren kann z.B. dieser Agent dienen, wobei dieser als Alias den Namen „SetUpTunes“ haben sollte, da dieser aus der Sub CMT referenziert wird:

 
Sub Initialize
     Dim uiws As New notesuiworkspace
     Dim session As New notessession
     Dim FilePath As String
     Dim Info As Integer
     FilePath =session.GetEnvironmentString("MailTuneDir")
     If (FilePath ="") Then
             FilePath="C:\"
     End If
     
     
     Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Enable MailTunes ?")
     If Info = 1 Then
             session.Setenvironmentvar "MailTuneStatus", "True"
             mailtunedir = uiws.OpenFileDialog( False, "Bitte das Verzeichniss mit den WAV Files auswählen !","WAV Daten|*.wav", FilePath)
             If Isarray(mailtunedir) Then        
                     If ( mailtunedir(0) "") Then
                             FilePath=Strleftback(Cstr(mailtunedir(0)),"\")
                             session.Setenvironmentvar "MailTuneDir", FilePath
                     End If
             End If
     Else
             Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Disable MailTunes ?")
             If Info =1 Then
                     session.Setenvironmentvar "MailTuneStatus", "False"
             End If
     End If
     
End Sub

4. Hier noch ein paar Wav files mailtunes.rar.
Allerdings gibt es im Internet viele Web-Sites, welche sich nur mit solchen WAV files beschäftigen.

Zufälliger „Neue Mail“ Infosound

7. September 2009, 06:32 Erstellt von Michael Siegrist (25 clicks)

Beim Erhalt einer neuen Mail wird von IBM Lotus Notes immer wieder der gleiche Infosound verwendet. Die hier beschriebene Code-Erweitung  Ă¤ndert jedesmal, wenn die Maildatenbank neu geöffnet wird, per Zufall auf einen anderen Infosound. Hierzu wird ein Verzeichnis mit vorhandenen WAV Dateien verwendet, welches vorher natĂĽrlich konfiguriert werden muss, wozu der hier beschriebene Agent unter 3. dient.
Wir legen bei uns die Mailtunes in ein händisch erzeugtes Unterverzeichnis des Lotus Notes Programmverzeichnisses. Das Verzeichnis kann jedoch auch beliebig auf der lokalen Platte liegen.

Nun zum Code :

1. Im Datenbankscript der Maildatenbank/Schablone folgende Sub hinzufĂĽgen:

 
Sub CMT
     REM "for setup the local mail tune"
     
     Set Session=New NotesSession
     Dim tAgent As NotesAgent
     Dim availTunes List As String
     Dim i, count As Integer
     Dim filename As String
     Dim ver As Integer
     Dim wavfiledir As String
     Dim tune As String
     Dim inivar  As String
             
     wavfiledir=session.Getenvironmentstring("MailTuneDir")
     If (wavfiledir="") Then
             If session.Getenvironmentstring("MailTuneStatus") = "True" Then
                     Print "No User Specific Tunes Found, starting Config .."
                     Set tAgent= session.currentdatabase.getAgent("SetUpTunes")
                     Call tAgent.Run
             End If
             wavfiledir=session.Getenvironmentstring("MailTuneDir")
     End If
     ver=Mid$(Session.notesversion,9,1)           'This will return a 4 or a 5
     availTunes(0)="Please copy some WAV files into " & wavfiledir   'This handles the "I don't have any .wav files" issue
     If (ver              inivar="NewMailTune"   ' For Release 4 Notes.ini Files
     Else
             inivar="Incoming Mail Sound"   ' For Release 5 and higher
     End If
             
' get correct path format due to client incompatibilites        
     If Right(wavfiledir,1) "\" Then
             wavfiledir = wavfiledir & "\"
     End If
             
     fileName = Dir$(wavfiledir & "*.wav", 0)
     If filename"" Then        
             Do While fileName ""                     'This builds an array of .wavs
                     availTunes(count+1) = fileName
                     fileName = Dir$()
                     count=count+1
             Loop                                                          
             Randomize                                    'Initialize random # generator
             i=Cint(Rnd()*count)
             tune=availTunes(i)                           'pick a tune, any tune
             Call Session.SetEnvironmentVar (inivar, wavfiledir &  tune,True)    
             Print "Changed NewMailTune to: " & tune  'gimme some feedback
     Else
             Print "No Files in MailTune Directory found !"
     End If
     End
' just some error handling if the mailtune dir isnt there
PathNotFound:
     Print "MailTune Dir  which is configured in the Notes.ini not Found on this System ! Try to create a new one !"
     End
     
End Sub

2. Am Ende des Postopen events der Maildatenbank/Schablone einfach nur den Call CMT hinzufĂĽgen:

 
Sub Postopen(Source As Notesuidatabase)
     '*********************************************
     'Begin Quota Checking Code
     '*********************************************
     
     Dim quotaCheck As New CheckQuota
     
     If quotaCheck.isEnabled Then
             If Not(quotaCheck.IsQuotaMailFileOwner) Then
                     Call quotaCheck.SetCalMgrINI
             End If
     End If
     
     '*********************************************
     'End Quota Checking Code
     '*********************************************
     Call FollowUpMigration(source)
     ' Custom expiration feature code
     Dim s As New NotesSession
     
     If s.GetEnvironmentString("CustomExpirationEnabled") = "1" Then        
             Call  DBOpenExtendedForCustomExp(source)
     End If
     Call SetupCalendarViewNotices
     '*********************************************

     '        for mailtune changes

     '*********************************************

     Call CMT
       
End Sub

3. Zum Aktivieren/Deaktivieren kann z.B. dieser Agent dienen, wobei dieser als Alias den Namen „SetUpTunes“ haben sollte, da dieser aus der Sub CMT referenziert wird:

 
Sub Initialize
     Dim uiws As New notesuiworkspace
     Dim session As New notessession
     Dim FilePath As String
     Dim Info As Integer
     FilePath =session.GetEnvironmentString("MailTuneDir")
     If (FilePath ="") Then
             FilePath="C:\"
     End If
     
     
     Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Enable MailTunes ?")
     If Info = 1 Then
             session.Setenvironmentvar "MailTuneStatus", "True"
             mailtunedir = uiws.OpenFileDialog( False, "Bitte das Verzeichniss mit den WAV Files auswählen !","WAV Daten|*.wav", FilePath)
             If Isarray(mailtunedir) Then        
                     If ( mailtunedir(0) "") Then
                             FilePath=Strleftback(Cstr(mailtunedir(0)),"\")
                             session.Setenvironmentvar "MailTuneDir", FilePath
                     End If
             End If
     Else
             Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Disable MailTunes ?")
             If Info =1 Then
                     session.Setenvironmentvar "MailTuneStatus", "False"
             End If
     End If
     
End Sub

4. Hier noch ein paar Wav files mailtunes.rar.
Allerdings gibt es im Internet viele Web-Sites, welche sich nur mit solchen WAV files beschäftigen.

Zufälliger "Neue Mail" Infosound

7. September 2009, 06:32 Erstellt von Michael Siegrist (35 clicks)

Beim Erhalt einer neuen Mail wird von IBM Lotus Notes immer wieder der gleiche Infosound verwendet. Die hier beschriebene Code-Erweitung  ändert jedesmal, wenn die Maildatenbank neu geöffnet wird, per Zufall auf einen anderen Infosound. Hierzu …

Zufälliger „Neue Mail“ Infosound

7. September 2009, 06:32 Erstellt von Michael Siegrist (15 clicks)

Beim Erhalt einer neuen Mail wird von IBM Lotus Notes immer wieder der gleiche Infosound verwendet. Die hier beschriebene Code-Erweitung  ändert jedesmal, wenn die Maildatenbank neu geöffnet wird, per Zufall auf einen anderen Infosound. Hierzu wird ein Verzeichnis mit vorhandenen WAV Dateien verwendet, welches vorher natürlich konfiguriert werden muss, wozu der hier beschriebene Agent unter 3. dient.
Wir legen bei uns die Mailtunes in ein händisch erzeugtes Unterverzeichnis des Lotus Notes Programmverzeichnisses. Das Verzeichnis kann jedoch auch beliebig auf der lokalen Platte liegen.

Nun zum Code :

1. Im Datenbankscript der Maildatenbank/Schablone folgende Sub hinzufügen:

 
Sub CMT
     REM "for setup the local mail tune"
     
     Set Session=New NotesSession
     Dim tAgent As NotesAgent
     Dim availTunes List As String
     Dim i, count As Integer
     Dim filename As String
     Dim ver As Integer
     Dim wavfiledir As String
     Dim tune As String
     Dim inivar  As String
             
     wavfiledir=session.Getenvironmentstring("MailTuneDir")
     If (wavfiledir="") Then
             If session.Getenvironmentstring("MailTuneStatus") = "True" Then
                     Print "No User Specific Tunes Found, starting Config .."
                     Set tAgent= session.currentdatabase.getAgent("SetUpTunes")
                     Call tAgent.Run
             End If
             wavfiledir=session.Getenvironmentstring("MailTuneDir")
     End If
     ver=Mid$(Session.notesversion,9,1)           'This will return a 4 or a 5
     availTunes(0)="Please copy some WAV files into " & wavfiledir   'This handles the "I don't have any .wav files" issue
     If (ver              inivar="NewMailTune"   ' For Release 4 Notes.ini Files
     Else
             inivar="Incoming Mail Sound"   ' For Release 5 and higher
     End If
             
' get correct path format due to client incompatibilites        
     If Right(wavfiledir,1) "\" Then
             wavfiledir = wavfiledir & "\"
     End If
             
     fileName = Dir$(wavfiledir & "*.wav", 0)
     If filename"" Then        
             Do While fileName ""                     'This builds an array of .wavs
                     availTunes(count+1) = fileName
                     fileName = Dir$()
                     count=count+1
             Loop                                                          
             Randomize                                    'Initialize random # generator
             i=Cint(Rnd()*count)
             tune=availTunes(i)                           'pick a tune, any tune
             Call Session.SetEnvironmentVar (inivar, wavfiledir &  tune,True)    
             Print "Changed NewMailTune to: " & tune  'gimme some feedback
     Else
             Print "No Files in MailTune Directory found !"
     End If
     End
' just some error handling if the mailtune dir isnt there
PathNotFound:
     Print "MailTune Dir  which is configured in the Notes.ini not Found on this System ! Try to create a new one !"
     End
     
End Sub

2. Am Ende des Postopen events der Maildatenbank/Schablone einfach nur den Call CMT hinzufügen:

 
Sub Postopen(Source As Notesuidatabase)
     '*********************************************
     'Begin Quota Checking Code
     '*********************************************
     
     Dim quotaCheck As New CheckQuota
     
     If quotaCheck.isEnabled Then
             If Not(quotaCheck.IsQuotaMailFileOwner) Then
                     Call quotaCheck.SetCalMgrINI
             End If
     End If
     
     '*********************************************
     'End Quota Checking Code
     '*********************************************
     Call FollowUpMigration(source)
     ' Custom expiration feature code
     Dim s As New NotesSession
     
     If s.GetEnvironmentString("CustomExpirationEnabled") = "1" Then        
             Call  DBOpenExtendedForCustomExp(source)
     End If
     Call SetupCalendarViewNotices
     '*********************************************

     '        for mailtune changes

     '*********************************************

     Call CMT
       
End Sub

3. Zum Aktivieren/Deaktivieren kann z.B. dieser Agent dienen, wobei dieser als Alias den Namen „SetUpTunes“ haben sollte, da dieser aus der Sub CMT referenziert wird:

 
Sub Initialize
     Dim uiws As New notesuiworkspace
     Dim session As New notessession
     Dim FilePath As String
     Dim Info As Integer
     FilePath =session.GetEnvironmentString("MailTuneDir")
     If (FilePath ="") Then
             FilePath="C:\"
     End If
     
     
     Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Enable MailTunes ?")
     If Info = 1 Then
             session.Setenvironmentvar "MailTuneStatus", "True"
             mailtunedir = uiws.OpenFileDialog( False, "Bitte das Verzeichniss mit den WAV Files auswählen !","WAV Daten|*.wav", FilePath)
             If Isarray(mailtunedir) Then        
                     If ( mailtunedir(0) "") Then
                             FilePath=Strleftback(Cstr(mailtunedir(0)),"\")
                             session.Setenvironmentvar "MailTuneDir", FilePath
                     End If
             End If
     Else
             Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Disable MailTunes ?")
             If Info =1 Then
                     session.Setenvironmentvar "MailTuneStatus", "False"
             End If
     End If
     
End Sub

4. Hier noch ein paar Wav files mailtunes.rar.
Allerdings gibt es im Internet viele Web-Sites, welche sich nur mit solchen WAV files beschäftigen.

Zufälliger „Neue Mail“ Infosound

7. September 2009, 06:32 Erstellt von Michael Siegrist (12 clicks)

Beim Erhalt einer neuen Mail wird von IBM Lotus Notes immer wieder der gleiche Infosound verwendet. Die hier beschriebene Code-Erweitung  Ă¤ndert jedesmal, wenn die Maildatenbank neu geöffnet wird, per Zufall auf einen anderen Infosound. Hierzu wird ein Verzeichnis mit vorhandenen WAV Dateien verwendet, welches vorher natĂĽrlich konfiguriert werden muss, wozu der hier beschriebene Agent unter 3. dient.
Wir legen bei uns die Mailtunes in ein händisch erzeugtes Unterverzeichnis des Lotus Notes Programmverzeichnisses. Das Verzeichnis kann jedoch auch beliebig auf der lokalen Platte liegen.

Nun zum Code :

1. Im Datenbankscript der Maildatenbank/Schablone folgende Sub hinzufĂĽgen:

 
Sub CMT
     REM "for setup the local mail tune"
     
     Set Session=New NotesSession
     Dim tAgent As NotesAgent
     Dim availTunes List As String
     Dim i, count As Integer
     Dim filename As String
     Dim ver As Integer
     Dim wavfiledir As String
     Dim tune As String
     Dim inivar  As String
             
     wavfiledir=session.Getenvironmentstring("MailTuneDir")
     If (wavfiledir="") Then
             If session.Getenvironmentstring("MailTuneStatus") = "True" Then
                     Print "No User Specific Tunes Found, starting Config .."
                     Set tAgent= session.currentdatabase.getAgent("SetUpTunes")
                     Call tAgent.Run
             End If
             wavfiledir=session.Getenvironmentstring("MailTuneDir")
     End If
     ver=Mid$(Session.notesversion,9,1)           'This will return a 4 or a 5
     availTunes(0)="Please copy some WAV files into " & wavfiledir   'This handles the "I don't have any .wav files" issue
     If (ver              inivar="NewMailTune"   ' For Release 4 Notes.ini Files
     Else
             inivar="Incoming Mail Sound"   ' For Release 5 and higher
     End If
             
' get correct path format due to client incompatibilites        
     If Right(wavfiledir,1) "\" Then
             wavfiledir = wavfiledir & "\"
     End If
             
     fileName = Dir$(wavfiledir & "*.wav", 0)
     If filename"" Then        
             Do While fileName ""                     'This builds an array of .wavs
                     availTunes(count+1) = fileName
                     fileName = Dir$()
                     count=count+1
             Loop                                                          
             Randomize                                    'Initialize random # generator
             i=Cint(Rnd()*count)
             tune=availTunes(i)                           'pick a tune, any tune
             Call Session.SetEnvironmentVar (inivar, wavfiledir &  tune,True)    
             Print "Changed NewMailTune to: " & tune  'gimme some feedback
     Else
             Print "No Files in MailTune Directory found !"
     End If
     End
' just some error handling if the mailtune dir isnt there
PathNotFound:
     Print "MailTune Dir  which is configured in the Notes.ini not Found on this System ! Try to create a new one !"
     End
     
End Sub

2. Am Ende des Postopen events der Maildatenbank/Schablone einfach nur den Call CMT hinzufĂĽgen:

 
Sub Postopen(Source As Notesuidatabase)
     '*********************************************
     'Begin Quota Checking Code
     '*********************************************
     
     Dim quotaCheck As New CheckQuota
     
     If quotaCheck.isEnabled Then
             If Not(quotaCheck.IsQuotaMailFileOwner) Then
                     Call quotaCheck.SetCalMgrINI
             End If
     End If
     
     '*********************************************
     'End Quota Checking Code
     '*********************************************
     Call FollowUpMigration(source)
     ' Custom expiration feature code
     Dim s As New NotesSession
     
     If s.GetEnvironmentString("CustomExpirationEnabled") = "1" Then        
             Call  DBOpenExtendedForCustomExp(source)
     End If
     Call SetupCalendarViewNotices
     '*********************************************

     '        for mailtune changes

     '*********************************************

     Call CMT
       
End Sub

3. Zum Aktivieren/Deaktivieren kann z.B. dieser Agent dienen, wobei dieser als Alias den Namen „SetUpTunes“ haben sollte, da dieser aus der Sub CMT referenziert wird:

 
Sub Initialize
     Dim uiws As New notesuiworkspace
     Dim session As New notessession
     Dim FilePath As String
     Dim Info As Integer
     FilePath =session.GetEnvironmentString("MailTuneDir")
     If (FilePath ="") Then
             FilePath="C:\"
     End If
     
     
     Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Enable MailTunes ?")
     If Info = 1 Then
             session.Setenvironmentvar "MailTuneStatus", "True"
             mailtunedir = uiws.OpenFileDialog( False, "Bitte das Verzeichniss mit den WAV Files auswählen !","WAV Daten|*.wav", FilePath)
             If Isarray(mailtunedir) Then        
                     If ( mailtunedir(0) "") Then
                             FilePath=Strleftback(Cstr(mailtunedir(0)),"\")
                             session.Setenvironmentvar "MailTuneDir", FilePath
                     End If
             End If
     Else
             Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Disable MailTunes ?")
             If Info =1 Then
                     session.Setenvironmentvar "MailTuneStatus", "False"
             End If
     End If
     
End Sub

4. Hier noch ein paar Wav files mailtunes.rar.
Allerdings gibt es im Internet viele Web-Sites, welche sich nur mit solchen WAV files beschäftigen.

Zufälliger „Neue Mail“ Infosound

7. September 2009, 06:32 Erstellt von Michael Siegrist (12 clicks)

Beim Erhalt einer neuen Mail wird von IBM Lotus Notes immer wieder der gleiche Infosound verwendet. Die hier beschriebene Code-Erweitung  ändert jedesmal, wenn die Maildatenbank neu geöffnet wird, per Zufall auf einen anderen Infosound. Hierzu wird ein Verzeichnis mit vorhandenen WAV Dateien verwendet, welches vorher natürlich konfiguriert werden muss, wozu der hier beschriebene Agent unter 3. dient.
Wir legen bei uns die Mailtunes in ein händisch erzeugtes Unterverzeichnis des Lotus Notes Programmverzeichnisses. Das Verzeichnis kann jedoch auch beliebig auf der lokalen Platte liegen.

Nun zum Code :

1. Im Datenbankscript der Maildatenbank/Schablone folgende Sub hinzufügen:

 
Sub CMT
     REM "for setup the local mail tune"
     
     Set Session=New NotesSession
     Dim tAgent As NotesAgent
     Dim availTunes List As String
     Dim i, count As Integer
     Dim filename As String
     Dim ver As Integer
     Dim wavfiledir As String
     Dim tune As String
     Dim inivar  As String
             
     wavfiledir=session.Getenvironmentstring("MailTuneDir")
     If (wavfiledir="") Then
             If session.Getenvironmentstring("MailTuneStatus") = "True" Then
                     Print "No User Specific Tunes Found, starting Config .."
                     Set tAgent= session.currentdatabase.getAgent("SetUpTunes")
                     Call tAgent.Run
             End If
             wavfiledir=session.Getenvironmentstring("MailTuneDir")
     End If
     ver=Mid$(Session.notesversion,9,1)           'This will return a 4 or a 5
     availTunes(0)="Please copy some WAV files into " & wavfiledir   'This handles the "I don't have any .wav files" issue
     If (ver              inivar="NewMailTune"   ' For Release 4 Notes.ini Files
     Else
             inivar="Incoming Mail Sound"   ' For Release 5 and higher
     End If
             
' get correct path format due to client incompatibilites        
     If Right(wavfiledir,1) "\" Then
             wavfiledir = wavfiledir & "\"
     End If
             
     fileName = Dir$(wavfiledir & "*.wav", 0)
     If filename"" Then        
             Do While fileName ""                     'This builds an array of .wavs
                     availTunes(count+1) = fileName
                     fileName = Dir$()
                     count=count+1
             Loop                                                          
             Randomize                                    'Initialize random # generator
             i=Cint(Rnd()*count)
             tune=availTunes(i)                           'pick a tune, any tune
             Call Session.SetEnvironmentVar (inivar, wavfiledir &  tune,True)    
             Print "Changed NewMailTune to: " & tune  'gimme some feedback
     Else
             Print "No Files in MailTune Directory found !"
     End If
     End
' just some error handling if the mailtune dir isnt there
PathNotFound:
     Print "MailTune Dir  which is configured in the Notes.ini not Found on this System ! Try to create a new one !"
     End
     
End Sub

2. Am Ende des Postopen events der Maildatenbank/Schablone einfach nur den Call CMT hinzufügen:

 
Sub Postopen(Source As Notesuidatabase)
     '*********************************************
     'Begin Quota Checking Code
     '*********************************************
     
     Dim quotaCheck As New CheckQuota
     
     If quotaCheck.isEnabled Then
             If Not(quotaCheck.IsQuotaMailFileOwner) Then
                     Call quotaCheck.SetCalMgrINI
             End If
     End If
     
     '*********************************************
     'End Quota Checking Code
     '*********************************************
     Call FollowUpMigration(source)
     ' Custom expiration feature code
     Dim s As New NotesSession
     
     If s.GetEnvironmentString("CustomExpirationEnabled") = "1" Then        
             Call  DBOpenExtendedForCustomExp(source)
     End If
     Call SetupCalendarViewNotices
     '*********************************************

     '        for mailtune changes

     '*********************************************

     Call CMT
       
End Sub

3. Zum Aktivieren/Deaktivieren kann z.B. dieser Agent dienen, wobei dieser als Alias den Namen „SetUpTunes“ haben sollte, da dieser aus der Sub CMT referenziert wird:

 
Sub Initialize
     Dim uiws As New notesuiworkspace
     Dim session As New notessession
     Dim FilePath As String
     Dim Info As Integer
     FilePath =session.GetEnvironmentString("MailTuneDir")
     If (FilePath ="") Then
             FilePath="C:\"
     End If
     
     
     Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Enable MailTunes ?")
     If Info = 1 Then
             session.Setenvironmentvar "MailTuneStatus", "True"
             mailtunedir = uiws.OpenFileDialog( False, "Bitte das Verzeichniss mit den WAV Files auswählen !","WAV Daten|*.wav", FilePath)
             If Isarray(mailtunedir) Then        
                     If ( mailtunedir(0) "") Then
                             FilePath=Strleftback(Cstr(mailtunedir(0)),"\")
                             session.Setenvironmentvar "MailTuneDir", FilePath
                     End If
             End If
     Else
             Info = uiws.Prompt (PROMPT_YESNO,"MailTunes", "Disable MailTunes ?")
             If Info =1 Then
                     session.Setenvironmentvar "MailTuneStatus", "False"
             End If
     End If
     
End Sub

4. Hier noch ein paar Wav files mailtunes.rar.
Allerdings gibt es im Internet viele Web-Sites, welche sich nur mit solchen WAV files beschäftigen.

Anwesenheitsanzeige und Instant Messaging fr Lotus QuickR aktivieren

4. September 2009, 12:49 Erstellt von Manfred Meise (23 clicks)

Wenn man sowohl einen Lotus Sametime Server, als auch einen Lotus QuickR Server betreibt, bietet sich eine Integration dieser beiden an. Hierzu sind im Wesentlichen 3 Schritte erforderlich:         1. Web SSO auf dem Domino Server…

Anwesenheitsanzeige und Instant Messaging fĂĽr Lotus QuickR aktivieren

4. September 2009, 10:49 Erstellt von Manfred Meise (10 clicks)

Wenn man sowohl einen Lotus Sametime Server, als auch einen Lotus QuickR Server betreibt, bietet sich eine Integration dieser beiden an. Hierzu sind im Wesentlichen 3 Schritte erforderlich:      
 
1. Web SSO auf dem Domino Server konfigurieren (Sametime-Server und Quickr-Server mĂĽssen daran teilnehmen). ACHTUNG: Keine Internetsite-Dokumente hierfĂĽr verwenden

  • PrĂĽfung aller beteiligten Server auf Zugehörigkeit zur gleichen Internetdomäne
    Image:Anwesenheitsanzeige und Instant Messaging fĂĽr Lotus QuickR aktivieren
  • Erstellen eines Web SSO Dokumentes aus der Maskenaktion des Serverdokumentes:
    Image:Anwesenheitsanzeige und Instant Messaging fĂĽr Lotus QuickR aktivieren
  • Erstellen eines Web SSO Dokumentes aus der Maskenaktion des Serverdokumentes:
    Image:Anwesenheitsanzeige und Instant Messaging fĂĽr Lotus QuickR aktivieren
    mit identischem DNS Domänennamen wie die beteiligten Server und Auflistung der Servernamen der teilnehmenden Server. ACHTUNG: Token muss „LtpaToken“ heiĂźen!
  • Dokument speichern und in allen beteiligten Servern referenzieren:
    Image:Anwesenheitsanzeige und Instant Messaging fĂĽr Lotus QuickR aktivieren


2. Dateien (aus Sametime SDK und QuickR installation auf Sametime Server kopieren

Dateiname Kopieren aus Kopieren nach
STComm.jar Sametime SDK
client\stjava\bin\
\Domino\html\QuickPlace\peopleonline

CommRes.jar Sametime SDK
client\stjava\bin\
\Domino\html\QuickPlace\peopleonline

PeopleOnline31.jar Lotus Quickr Server
LotusQuickr\

\Domino\html\QuickPlace\peopleonline

Diese Files haben wir hier gesammelt: Lotus QuickR 8.2 und Sametime 8.0.2 Integration.zip

3. Den zu verwendenden Lotus Sametime Server in Lotus Quickr konfigurieren

  • als Site Administrator anmelden
  • Link „Siteadministration“
  • Link „weitere Optionen“ wählen
  • URL zum Sametime Server konfigurieren
    Image:Anwesenheitsanzeige und Instant Messaging fĂĽr Lotus QuickR aktivieren

4. Testen

  • als Benutzer anmelden
  • Anwesenheitsanzeige sollte aktiv sein (ggf. etwas warten)
    Image:Anwesenheitsanzeige und Instant Messaging fĂĽr Lotus QuickR aktivieren
  • Chat Link sollte verfĂĽgbar sein, wenn Sie Bereiche öffnen
    Image:Anwesenheitsanzeige und Instant Messaging fĂĽr Lotus QuickR aktivieren
    und das chatten ermöglichen

Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren

4. September 2009, 10:49 Erstellt von Manfred Meise (14 clicks)

Wenn man sowohl einen Lotus Sametime Server, als auch einen Lotus QuickR Server betreibt, bietet sich eine Integration dieser beiden an. Hierzu sind im Wesentlichen 3 Schritte erforderlich:      
 
1. Web SSO auf dem Domino Server konfigurieren (Sametime-Server und Quickr-Server müssen daran teilnehmen). ACHTUNG: Keine Internetsite-Dokumente hierfür verwenden

  • Prüfung aller beteiligten Server auf Zugehörigkeit zur gleichen Internetdomäne
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
  • Erstellen eines Web SSO Dokumentes aus der Maskenaktion des Serverdokumentes:
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
  • Erstellen eines Web SSO Dokumentes aus der Maskenaktion des Serverdokumentes:
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
    mit identischem DNS Domänennamen wie die beteiligten Server und Auflistung der Servernamen der teilnehmenden Server. ACHTUNG: Token muss „LtpaToken“ heißen!
  • Dokument speichern und in allen beteiligten Servern referenzieren:
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren


2. Dateien (aus Sametime SDK und QuickR installation auf Sametime Server kopieren

Dateiname Kopieren aus Kopieren nach
STComm.jar Sametime SDK
client\stjava\bin\
\Domino\html\QuickPlace\peopleonline

CommRes.jar Sametime SDK
client\stjava\bin\
\Domino\html\QuickPlace\peopleonline

PeopleOnline31.jar Lotus Quickr Server
LotusQuickr\

\Domino\html\QuickPlace\peopleonline

Diese Files haben wir hier gesammelt: Lotus QuickR 8.2 und Sametime 8.0.2 Integration.zip

3. Den zu verwendenden Lotus Sametime Server in Lotus Quickr konfigurieren

  • als Site Administrator anmelden
  • Link „Siteadministration“
  • Link „weitere Optionen“ wählen
  • URL zum Sametime Server konfigurieren
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren

4. Testen

  • als Benutzer anmelden
  • Anwesenheitsanzeige sollte aktiv sein (ggf. etwas warten)
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
  • Chat Link sollte verfügbar sein, wenn Sie Bereiche öffnen
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
    und das chatten ermöglichen

Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren

4. September 2009, 10:49 Erstellt von Manfred Meise (15 clicks)

Wenn man sowohl einen Lotus Sametime Server, als auch einen Lotus QuickR Server betreibt, bietet sich eine Integration dieser beiden an. Hierzu sind im Wesentlichen 3 Schritte erforderlich:      
 
1. Web SSO auf dem Domino Server konfigurieren (Sametime-Server und Quickr-Server müssen daran teilnehmen). ACHTUNG: Keine Internetsite-Dokumente hierfür verwenden

  • Prüfung aller beteiligten Server auf Zugehörigkeit zur gleichen Internetdomäne
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
  • Erstellen eines Web SSO Dokumentes aus der Maskenaktion des Serverdokumentes:
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
  • Erstellen eines Web SSO Dokumentes aus der Maskenaktion des Serverdokumentes:
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
    mit identischem DNS Domänennamen wie die beteiligten Server und Auflistung der Servernamen der teilnehmenden Server. ACHTUNG: Token muss „LtpaToken“ heißen!
  • Dokument speichern und in allen beteiligten Servern referenzieren:
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren


2. Dateien (aus Sametime SDK und QuickR installation auf Sametime Server kopieren

Dateiname Kopieren aus Kopieren nach
STComm.jar Sametime SDK
client\stjava\bin\
\Domino\html\QuickPlace\peopleonline

CommRes.jar Sametime SDK
client\stjava\bin\
\Domino\html\QuickPlace\peopleonline

PeopleOnline31.jar Lotus Quickr Server
LotusQuickr\

\Domino\html\QuickPlace\peopleonline

Diese Files haben wir hier gesammelt: Lotus QuickR 8.2 und Sametime 8.0.2 Integration.zip

3. Den zu verwendenden Lotus Sametime Server in Lotus Quickr konfigurieren

  • als Site Administrator anmelden
  • Link „Siteadministration“
  • Link „weitere Optionen“ wählen
  • URL zum Sametime Server konfigurieren
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren

4. Testen

  • als Benutzer anmelden
  • Anwesenheitsanzeige sollte aktiv sein (ggf. etwas warten)
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
  • Chat Link sollte verfügbar sein, wenn Sie Bereiche öffnen
    Image:Anwesenheitsanzeige und Instant Messaging für Lotus QuickR aktivieren
    und das chatten ermöglichen

What's hot