不能发送邮件（内付源代码），请帮忙查错？

Question

定义数组错了。
你本是定义的：
Dim Recipients(1) As MapiRecip
而使用却是：
 With Recipients(0)
    .RecipClass = 1  'To
    .Name = "Marry"
  End With
定义为：
Dim Recipients(0) As MapiRecip
这是一处错误。好象还有，不过没看到。 

Answer 1

这个无所谓，Dim Recipients(1) As MapiRecip 之后 Recipients(1) 和 Recipients(0) 的类型就一样了。 

Answer 2

要知道该控件必须工作在系统当前配置的邮件系统中,其实MAPI控件只完成邮件处理的最上层工作真正的底层工作都留给了系统的邮件系统因此首先必须正确配置系统的Internet  Mail.

Answer 3

我用MAPI控件是可以发EMAIL的，现在改用了API就不行，而且这个错误代码在MSDN中找不到。