我写了下面的程序想通过VB自动发送带附件的邮件。 但运行时总显示“实时错误32002， 发生不确定的失败”请问错在哪儿呢？谢谢了！调试时错误指在.send位置
Private Sub Command1_Click()
Form1.MAPISession1.SignOn
          With Form1.MAPIMessages2
                  .MsgIndex = -1
                  .RecipDisplayName = "jicktom11@
                  .MsgSubject = "subject"
                  .AttachmentIndex = 0
                  .AttachmentPathName = "e:\Eng Work Planning -IR.xls"
                  .SessionID = Form1.MAPISession1.SessionID
                  .Send
          End With
          MAPISession.SignOff
          MsgBox "send over", , OK"
End Sub

哪位高手帮忙看看好吗？谢谢了！