（私家珍藏）IBM的Lotus Notes web网页重定向

Sub Initialize

Dim session As New NotesSession

Dim CurrentDb As NotesDatabase

Dim Addressbook As NotesDatabase

Dim doc As NotesDocument

Dim view As NotesView

Dim j As Integer

Set CurrentDb = session.CurrentDatabase

Set Addressbook = session.GetDatabase(CurrentDb.server,"names.nsf")

Set view = Addressbook.GetView( "People" )

un = Evaluate("@Name([Abbreviate];@UserName)")

If Instr(1,un(0)," ") <> 0 Then

s1 = Mid(un(0), 1, Instr(1,un(0)," "))

s2 = Right(un(0), Len(un(0)) - Instr(1,un(0)," "))

s3 = s1 + " and " + s2

Else

s3 = un(0)

End If

j = view.FTSearch( s3, 1)

If j <> 0 Then

Set doc = view.GetFirstDocument

MailNsf = doc.MailFile

If MailNsf(0) = "" Then

Print "没有找到您的邮件文件！"

Else

If Right(MailNsf(0),4) <> ".nsf" Then

mailURL = MailNsf(0) + ".nsf"

Else

mailURL = MailNsf(0)

End If

mailURL = Trim(mailURL)

Print "[http://oa.nullsite.com:8009" + "/" + mailURL + "]"

End If

Else

Print "没有找到您的邮件文件！"

End If

End Sub