调用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