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