excel vba中使用OUTlook发送附件

调用microsoft outlook 14.0 object library工程

Private Sub sendmail()

On Error Resume Next
Dim objOutlook As New Outlook.Application
Dim objMail As MailItem

Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.To = "123@qq.com" '"收件人"
.CC = " 123@qq.com " '"抄送人"
.Subject = "测试" '"邮件主题"
.HTMLBody = "测试" '正文
.Attachments.Add "\\192.128.1.14\" & Range("f6").Value & ".xlsm" '添加附件
End With
objMail.Send ''发送
End Sub