我写了一段代码，用于文档的邮件发送，但代码并没有发送，服务器也没有报错，但通过邮箱又是可以发送的，请大家帮我看看是代码的问题还是有什么地方设置的问题，代码如下：
Dim ss As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim doc1 As notesdocument
Dim cfgdb As notesdatabase
Dim cfgdoc As notesdocument
Dim cfgv As notesview
Set db = ss.CurrentDatabase
Set doc = ss.DocumentContext
Set cfgdb = ss.GetDatabase(db.Server,"BSOA\CONFIG.NSF")

If cfgdb.IsOpen Then
Set cfgv = cfgdb.GetView("VInterface")
Set cfgdoc = cfgv.GetDocumentByKey(doc.TDownSendList(0),True)
If Not cfgdoc Is Nothing Then
Msgbox(cfgdoc.TMail(0))
doc.SendTo = cfgdoc.TMail(0)
Call doc.Save(True,True)
Call doc.Send(False)
doc.SendTo = cfgdoc.TPersonMail(0)
Call doc.Save(True,True)
Call doc.Send(False)

End If
End If