关于VB 的 MAPIMessage.send 方法的问题

Question

我用VB 的MAPIMessage , MAPISession 控件来发送邮件，但是在使用到函数MAPIMessge.send 方法是，会自动弹出一个问我是否发送邮件的对话框，为什么会这样呢？我检查过代码，没有写过这部分的代码，我的程序不需要这个对话框，因为如果不按“发送”的话，程序其实是一直停留在那里，什么都不做。请各位指点一下。

Answer 1

Const vbMessageSend = 3Private Sub Send_Click()
'发送邮件子程序
If VBMail.MAPIMess.AttachmentCount > 0 Then
    txtNoteText.Text = String$(VBMail.MAPIMess.AttachmentCount, "*") + txtNoteText.Text
End If
'根据书写的消息设置MAPIMessages控件的属性
VBMail.MAPIMess.MsgSubject = txtSubject.Text
VBMail.MAPIMess.MsgNoteText = txtNoteText.Text
VBMail.MAPIMess.MsgReceiptRequested = ReturnRequest
Call CopyNamestoMsgBuffer(Me, True)
On Error Resume Next
'发送邮件
VBMail.MAPIMess.Action = vbMessageSend
If Err Then
    MsgBox "An error  occurred during a send:" + Str$(Err)
Else
    '
    Unload Me
End If
End Sub

Answer 2

我该如何的得到这个VBMAIL呢？