为何收不到？请格我看一下代码

[qzdsq]

Sub Initialize

%REM
发送公文给mail.nsf！
%END REM
Dim ns As New NotesSession
Dim idea As String
Dim item As NotesItem
Dim name1 As NotesName
Dim dbpath As String
Dim URLstr As String
Dim Subject As String
Dim Hint As String
Dim sendstr As String
Set doc=ns.DocumentContext
Set db=ns.CurrentDatabase
Set name1=New NotesName(doc.DocAuthor(0))
doc.status="发送"

doc.DocAuthor=""
Set docReader=doc.getfirstItem(docReader)
Call doc.CreatemailTitle()
If(doc.Secrecy(0)="1")Then
doc.DocReader=" docAuthor"
End If
Call doc.save(False,False)


End Sub