我想在vb中通过引用Outlook object library来连接到outlook ,但在我的“引用”中没有该对象库,可系统中已安装有outlook express 2000.后来我通过复制msoe.dll,在“引用”中出现一个“microsoft outlook express 5.0 type library”,我选中它,运行下面的程序,出现错误“用户定义类型未定义”。请问各位高手是啥原因?没有Outlook object library,那儿有下载的?各位,帮帮忙吧!急!急!急!
Public Function SendMail(strTo As String, _
strSubject As String, _
strBody As String, _
strFileName As String _
) As Boolean
Dim oOutlookApp As New Outlook.Application
Dim oItemMail As Outlook.MailItem
Set oItemMail = oOutlookApp.CreateItem(olMailItem)
On Error GoTo errHandle
With oItemMail
'.Recipients
.To = strTo
.Subject = strSubject
.Body = strBody
.Attachments.Add (strFileName)
.Importance = olImportanceHigh
.Sensitivity = olPersonal
.Display
End With
SendMail = True
Exit Function
errHandle:
SendMail = False
End Function
Public Function SendMail(strTo As String, _
strSubject As String, _
strBody As String, _
strFileName As String _
) As Boolean
Dim oOutlookApp As New Outlook.Application
Dim oItemMail As Outlook.MailItem
Set oItemMail = oOutlookApp.CreateItem(olMailItem)
On Error GoTo errHandle
With oItemMail
'.Recipients
.To = strTo
.Subject = strSubject
.Body = strBody
.Attachments.Add (strFileName)
.Importance = olImportanceHigh
.Sensitivity = olPersonal
.Display
End With
SendMail = True
Exit Function
errHandle:
SendMail = False
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货