代理运行错误???

love52099

我写了一个邮件到达后运行的代理,但是在测试运行时,总是提示下图的错误,不知道为什么呀?
我已经知道是"Set doc=uidoc.Document"的错误,但不 知道为什么错误呀?
我的代码如下:
Sub Initialize
        On Error Goto trap
       
        Dim ses As New NotesSession
        Dim db As NotesDatabase
        Dim ws As New NotesUIWorkspace
        Dim uidoc As NotesUIDocument
        Dim doc As NotesDocument
       
        Dim strSendPerson As String
        Dim strSendDate As String
        Dim strSendToPerson As String
        Dim strTitle As String
       
        Set db=ses.CurrentDatabase
       
        Messagebox db.Title
       
        Set uidoc=ws.CurrentDocument       
        Set doc=uidoc.Document
       
        'strTitle=doc.subject
       
        'Messagebox doc.subject, , doc.subject
       
        Exit Sub
trap:
        Error Err,"Error" & "/subname:" & Erl & Error
End Sub

love52099

Sub Initialize
        On Error Goto trap
       
        Dim ses As New NotesSession
        Dim db As NotesDatabase
        Dim ws As New NotesUIWorkspace
        Dim uidoc As NotesUIDocument
        Dim doc As NotesDocument
       
        Dim strSendPerson As String
        Dim strSendDate As String
        Dim strSendToPerson As String
        Dim strTitle As String
       
        Set db=ses.CurrentDatabase
       
        Messagebox db.Title
       
        Set uidoc=ws.CurrentDocument
        Set doc=uidoc.Document
       
        'strTitle=doc.subject
       
        'Messagebox doc.subject, , doc.subject
       
        Exit Sub
trap:
        Error Err,"Error" & "/subname:" & Erl & Error
End Sub
以上代码