再问（初学者问题）？

[fghfgh]

这是我下载的一个程序，但是编译不成功，出现如下问题：
提示Compile error:Can't find project or library
请问MAPI.Folder，MAPI是什么？怎样安装？该库在哪里？在程序的其他地方也有该类，例如：MAPI.Message，MAPI.Session，MAPI.Attachments，MAPI.Attachment等。
是否是：消息应用程序接口 (MAPI) 控件允许创建邮件功能的 Visual Basic MAPI 应用程序。
如果是怎样安装？以及该控件的位置？

[Jneu]

你的系统装了OUTLOOK没有？！

[fghfgh]

装了！

[fghfgh]

装了

[fghfgh]

请问该dll文件在哪里？我实在是不懂，麻烦你处，请体谅！！

[Jneu]

在添加部件中，而不是引用里。

[fghfgh]

试了，还是不行，提示的信息一样！

[fghfgh]

该段代码如下：
Public Sub ResponseMessageSend(ByVal MailSubject As String, ByVal MailText As String, ByVal CDOSession As MAPI.Session)

Dim oMsg ' Message Object
Dim oFolder ' Current Folder Object
Dim oFolderOutbox ' Outbox for session
Dim oMsgTarget ' Target Msg Object
Dim oRec ' Recipients Container Object
Dim iMsgCount ' Message count

Set oFolderOutbox = CDOSession.Outbox
Set oFolder = CDOSession.GetFolder(EventDetails.FolderID, Null)
Set oMsgTarget = CDOSession.GetMessage(EventDetails.MessageID, Null)
Set oMsg = oFolderOutbox.Messages.Add(CStr(MailSubject), CStr(MailText))
Set oRec = oMsg.Recipients
oRec.Add "", "", 1, oMsgTarget.Sender.Id
oRec.Resolve
oMsg.Send
oMsgTarget.Delete

End Sub



Public Sub MessageSend(ByVal Email As String, ByVal MailSubject As String, ByVal MailText As String, ByVal Outbox As MAPI.Folder)
Dim oMsgB As MAPI.Message
Dim oRecB As MAPI.Recipient

Set oMsgB = Outbox.Messages.Add
oMsgB.Subject = MailSubject
oMsgB.Text = MailText

oMsgB.Recipients.AddMultiple Email, 1
oMsgB.Recipients.Resolve

oMsgB.Update
oMsgB.Send
End Sub

[Jneu]

选择浏览，在系统的SYSTEM\或SYSTEM32下手动添加MSMAPI32.OCX！

[Jneu]

和代码没有关系。

[AFIHA]

up

[Jneu]

???

[fghfgh]

是否是Project-->Companment－－>Controls里面添加，列表里就存在！我也选中了。但还是不行，还是出现以下问题：
Compile error:Can't find project or library

[fghfgh]

我想这个问题如果解决不了，我也会给你加分！！！
万分感谢！！！

[Jneu]

你用一个新工程添加试试。

[fghfgh]

出现以下问题：
user-defined type not defined！
我也在Project-->Companment－－>Controls的列表里选中了！
错误行：MAPI.Session

[Jneu]

你MAPISession 控件的名称是MAPI吗？

[Jneu]

'必须先登录邮箱。
On Error Resume Next
'打开邮件对话
MAPISess.DownLoadMail = False
MAPISess.LogonUI = False
MAPISess.SignOn

[fghfgh]

程序里是直接引用MAPI，并没有定义！

[sisi21]

jneu到http://www.csdn.net/expert/topic/324/324643.shtm看一下吧？谢谢了！

[Jneu]

放两个控件在窗体上再试试。