Internet password security settings @ Lotus Domino 8.5.2 (Video)

This is how you can add an internet password security settings.

An other way to do the same:

 

Force a user to change Internet password on next login:

Force more users to change their Internet password on next login:

Server-side mail export - EML

The issue was: creating a server-side solution for exporting emails to EML file from different mailboxes.

The application has a settings view, where the key user can set up different mail boxes for exporting.
This is cluster ready application.

Settings

Here comes the important part of the code.

function exportEML As Boolean
        On Error GoTo ErrHdl
        Dim fileNum As Integer
        Dim mime As NotesMIMEEntity
        Dim stream As NotesStream
        Dim evalstr As String
        Dim tmp As Variant
        Dim expFileName As String
        Dim mimeType As String
        Dim mimeBoundAryStart As string
        Dim mimeBoundAryEnd As string
        ss.Convertmime = False
       
        fileNum% = FreeFile()
        Set mime = maildoc.GetMIMEentity
        If mime Is Nothing Then
            Call maildoc.ConvertToMIME(3)
            Set mime = maildoc.GetMIMEentity
        End If
        If Not mime Is Nothing Then
            Set stream = ss.Createstream()
            expFileName$ = wDir & "\" & maildoc.Universalid & ".eml"            ...
            If Dir$(expFileName$) <> "" Then
                Kill expFileName$            ...
            End If
            Call stream.Open(expFileName$, mime.Charset)
             ...
            mimeType = mime.Contenttype
            mimeBoundAryStart = mime.Boundarystart
            mimeBoundAryEnd = mime.Boundaryend
            Call mime.GetEntityAsText(stream)
            Set mime = mime.GetNextEntity
            While Not mime Is Nothing
                Call stream.Writetext("", 3)
                Call stream.Writetext(mime.BoundAryStart)
                Call mime.DecodeContent()
                Call mime.Encodecontent( 1727 )
                Call mime.GetentityAsText(stream)
                Call stream.Writetext(mime.BoundAryEnd)
                Set mime = mime.GetNextEntity
            Wend
            Call stream.WriteText(mimeBoundAryEnd)
            Call stream.Close()
            ...
            exportEML = True
        Else
            ...
            exportEML = False
        End If
       
ErrHdl:
        If Err Then
            Print "  Error @ " & db.Filename & " (" & db.Title & ") - " & ag.Name & " - 'function exportEml' (" & Err & ") " & Error & " - line: " & Erl
            exportEML = false
            Exit Function
        End If
    End Function

Is Lotus Expensive?

There are some Lotus Domino server hosting provider.
The entry price is 100 USD/month, for this price you get a Massaging server.
Enterprise server is from 200 USD/month and Utility Server is from 450 USD/month.

Picture resizing

My costumer asked me for a web-based picture resizing solution. It won't be a big issue... but nothing is so simply that looks at first sight. They have a hosted Domino server. In this case they have no ability to run agents with restricted rights. This was the challenge.

The solution: First I created a new application where the web users are submitting their new pictures. This application has a scheduled replication on a computer which is located at the office and always in use. The Lotus Notes has a preference under the Basic Notes Client Configuration for enabling scheduled local agents. I checked it in (thanks for LogMeIn). The "resizer" agent runs on the local machine.

Enabling the sched. local agents

Nowadays this environment works very well. Yes, the perfect solution is when the "resizer" agent running on a server (not for the user interact of-course), but they still paying 79 USD/month for the Domino Server (within a big iron). They are satisfied.