如果用excel中的VBA实现Email的收发，可以用MAPI控件吗？从哪找到MAPI呢？

Question

如题。

Answer 1

引用Microsoft MAPI Controls 6.0
Private Sub cmdSend_Click()
    ' 开始 MAPI Session
    MAPISession1.SignOn
        
    ' 当 MAPI Session 建立后,
    ' Session 所产生的 Handle 会存于 SessionID 属性中
    If MAPISession1.SessionID <> 0 Then
    
        '建立 MAPIMessages 与 MAPISession 间的有效关联
        MAPIMessages1.SessionID = MAPISession1.SessionID
        
        ' 建立新的 E-Mail Message
        MAPIMessages1.Compose
        
        ' 收件人(Recipient's Name)
        MAPIMessages1.RecipDisplayName = txtName.Text
        
        ' 收件人的 E-Mail Address
        MAPIMessages1.RecipAddress = txtAddress.Text
        
        ' 是否要检查收件人有无存在于全域 (Global)或个人 (Personal) 通讯录里
        MAPIMessages1.AddressResolveUI = True
        
        ' 检查收件人有无存在于全域 (Global) 或个人 (Personal) 通讯录里
        MAPIMessages1.ResolveName
        
        ' E-Mail 的主题
        MAPIMessages1.MsgSubject = txtSubject.Text
        
        ' E-Mail 的正文
        MAPIMessages1.MsgNoteText = txtNote.Text
        
        ' 传送 E-Mail 且不显示"邮件对话框" (直接传送)
        MAPIMessages1.Send False
    End If
    
    ' 结束 MAPI Session
    MAPISession1.SignOff
End SubPrivate Sub cmdExit_Click()
    End
End Sub

Answer 2

我看得有些帖子说可以在控件工具箱里找到MAPI控件，为什么VBA找不到呢？还是根本不用，只要像你说得那样声明就可以用了？