This is part of my code:
Dim db As Object, doc As Object, rtobject As Object, workspace As Object
Dim rtitem As Object
Dim ws As Object
Dim user As String, server As String, mailfile As String
Set Session = CreateObject("notes.notessession")
user = Session.UserName
server =...