Assuming that by "home server" you mean the user's mail server, something like this should work:
Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim mailServer As String
mailServer = ses.GetEnvironmentString
("MailServer", True)
If mailServer = "" Then
Msgbox "Please change to a location
where you have access to
a server mail file.", 0, "title"
Exit Sub
End If
Dim appDB As New
NotesDatabase("", "")
If appDB.OpenByReplicaID
(mailServer, "00001111222233334444
5555666677778888") Then
Call ws.OpenDatabase(mailserver,
appDB.FilePath)
End If
|
