我新写了一个用mapi发邮件的例子,大家一起参考
Dim MAPISession1 As New MSMAPI.MAPISession
Dim MAPIMessages1 As New MSMAPI.MAPIMessages
MAPISession1.SignOn()
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose()
'MAPIMessages1.MsgIndex = -1
MAPIMessages1.RecipAddress = "tiang@icc.co.jp"
MAPIMessages1.MsgSubject = "Love your site"
MAPIMessages1.MsgNoteText = "Your MAPI tutorial is great."
MAPIMessages1.AttachmentPathName = "c:/file.txt"
MAPIMessages1.Send()
MAPIMessages1.Send(True)
MAPISession1.SignOff()
这个是用MAPI写的.可以弹出outlook express窗口.并可加附件的.点发送就出去了.
但是前提是,要加进去MAPI的com组件.
地址我提供给大家
http://www.vector.co.jp/soft/dl/win95/util/se342080.html
是一个日本网站.下载之后运行.之后MAPI这个组件就出现了.因为我们用的VB.NET都是express版的,组件不全的原因. 这个做过之后.还不行,出错说MAPI没有在注册表里注册. 下载msmapi32.ocx 文件.放在C:/WINDOWS里面和system32里面,具体放在哪里好用我不太清楚.总之都放了.
在dos窗口运行 regsvr32 c:/C:/WINDOWS/msmapi32.ocx c:/C:/WINDOWS/system32/msmapi32.ocx
再运行上面的代码,就没有问题了.
相信这个做完了,可以解决大家的许多问题.
下面的是直接发送到送信箱的代码,差不太多,但是有点细节需要主意.
Dim MAPISession1 As New MSMAPI.MAPISession
Dim MAPIMessages1 As New MSMAPI.MAPIMessages
MAPISess