山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

如何用VB来调用OutLook Express 呢？

楼主YuLimin（阿敏总司令：简单就是美—钻石闪闪您快结贴！）2001-12-20 22:02:09 在 VB / 基础类提问

急！
我想得到操作的方法与对象和属性，有详细的设计程序代码更好！谢谢！！！问题点数：20、回复次数：10Top

1 楼sonicdater（事过境迁，除了技术，我什么都没有了）回复于 2001-12-20 22:14:11 得分 2

Set OE = CreateObject(Outlook.Application)
Top

2 楼YuLimin（阿敏总司令：简单就是美—钻石闪闪您快结贴！）回复于 2001-12-20 22:18:24 得分 0

没有这个对象啊，怎么办？？？我有安装Office2000中的OutLook Express 6与OutLook 2000Top

3 楼pandawind（熊猫）回复于 2001-12-20 22:20:44 得分 2

VB有自带的ACTIVEX控件,好象是MAPI控件,(记不清了)MSDN上有例程Top

4 楼guaguagua（呱呱）回复于 2001-12-20 22:21:21 得分 2

少了个引号吧？恐怕应该是
Set OE = CreateObject("Outlook.Application")
不过我也不知道这样出来的究竟是OUTLOOK还是OUTLOOK EXPRESSTop

5 楼YuLimin（阿敏总司令：简单就是美—钻石闪闪您快结贴！）回复于 2001-12-20 22:24:21 得分 0

谢谢你，可是它的对象与属性如何查看呢？？？急！！！
Set OE = CreateObject("Outlook.Application")Top

6 楼sonicdater（事过境迁，除了技术，我什么都没有了）回复于 2001-12-20 22:28:53 得分 10

查关于 OUTLOOK 的 VBA 的帮助。
Top

7 楼pandawind（熊猫）回复于 2001-12-20 22:29:36 得分 2

MAPI控件分为MAPImessage和MAPIsession控件,MAPIsession建立和outlook或oe的连接,
MAPImessage负责发消息Top

8 楼YuLimin（阿敏总司令：简单就是美—钻石闪闪您快结贴！）回复于 2001-12-24 13:05:08 得分 0

'终于搞定：例子如下：在Notes中使用的：
'谢谢大家！
Function CreateNewMail(strSendTo As String,strSubject As String,strBody As String,vAttach() As String) As Integer
On Error Goto ErrHandle
Dim vOutLookApp As Variant
Dim vOutLookNameSpace As Variant
Dim vOutLookFolder As Variant
Dim vOutLookItem As Variant
Dim i As Integer

Set vOutLookApp = CreateObject("Outlook.Application")
If vOutLookApp Is Nothing Then
Print "请先安装MicroSoft OutLook邮件系统！"
Messagebox "请先安装MicroSoft OutLook邮件系统！",0 + 64,coApplication
Exit Function
End If
Set vOutLookNameSpace = vOutLookApp.GetNameSpace("MAPI")
Set vOutLookFolder = vOutLookNameSpace.GetDefaultFolder(4) '打开发件箱
vOutLookFolder.Display
Set vOutLookItem = vOutLookApp.CreateItem(0)

With vOutLookItem
.To = strSendTo '收件人
'.CC = strSendTo '抄送
.Subject = strSubject '邮件主题
.Body = strBody '邮件内容
For i = 0 To Ubound(vAttach())
If vAttach(i) <> "" Then '附件文件不能为空！
If Dir(vAttach(i)) <> "" Then '附件文件不在则不附加！
.Attachments.Add(vAttach(i)) '邮件附件所在的全路径！
End If
End If
Next
End With
vOutLookItem.Display
Exit Function

ErrHandle:
Set vOutLookItem = Nothing
Set vOutLookFolder = Nothing
Set vOutLookNameSpace = Nothing
vOutLookApp.Quit
Set vOutLookApp = Nothing
End Function

调用如下：
Sub Click(Source As Button)
Dim strSendTo As String
Dim strSubject As String
Dim strBody As String
Dim vAttach() As String

strSendTo = "YuLimin@163.net"
strSubject = "test"
strBody = "Hello Every One"
Redim vAttach(2) As String
vAttach(0) = "C:\Temp\test.txt"
vAttach(1) = "C:\Temp\test1.txt"
vAttach(2) = "C:\Temp\test2.txt"
If CreateNewMail(strSendTo,strSubject,strBody,vAttach()) Then Print "邮件创建成功！"
End SubTop

9 楼xuxia（旋风）回复于 2001-12-24 13:15:42 得分 2

先引用MICROSOFT INTERNET TRANSTER
DIM IE AS NEW INTERNETEXPLORER
IE。NAVIGATE “MAIL TO：XU·263。NET“，1
不是0就是1，你试试。0好像是不重新开一个窗口，1好像是重新开一个窗口Top

10 楼YuLimin（阿敏总司令：简单就是美—钻石闪闪您快结贴！）回复于 2001-12-25 21:30:18 得分 0

我的例子用创建OLE对象来进行，灵活度高一些吧，大家有没有更好的办法呢？Top