我这几天也在研究这方面，发送功能已经成功了，发上来看看能否有帮助
以下是代码，用前先调用一下：
Function outLook(esubject As String, emailadd As String, para As String)
Dim myOlApp As Object '定义对象变量
Dim myNamespace As Object '定义对象变量
'Dim emailadd, para, esubject As String
Set myOlApp = CreateObject("OutLook.Application") '创建OutLook应用程序对象
Set myNamespace = myOlApp.getNamespace("MAPI") '获取MAPI命名空间
Set myFolder = myNamespace.getDefaultFolder(6) '获取默认的文件夹
Set myitem = myOlApp.CreateItem(0) '创建新邮件
'邮件正文内容
' para = para + "已新增文件XXX，请注意"
'
' '收件人的email地址。
' emailadd = "XXXXXXXXX@163.com;"
'
'
' esubject = "新增更改单：XXXX，注意接收！！"
With myitem
.To = emailadd '发送邮件地址
'.cc = ecc
.Subject = esubject ' 邮件的主题
.Importance = olImportanceHigh '邮件的为重要等级
.Body = para '将邮件正文内容指定para变量内容
.Send '发送
End With
Set myOlApp = Nothing
Set myitem = Nothing
MsgBox "邮件已发送！！！！！"
End Function
