vba 发邮件

vba 发送邮件 ，outlook有一个程序正在试图以您的名义发送电子邮件

1、工具->引用->microsoft Outlook 14.0 Object Library    当然 你的outlook 版本可能比14版本的低，这个没有关系

Sub SendEmail(biaoti, name, zhuti, path, file)  'biaoti 邮件标题，name 收件人，zhuti邮件主题内容，path file 为附件的路径   文件名


Dim Subject As String
Dim SendTo As String
Dim Body As String
Dim Attachment As String
Subject = biaoti
SendTo = name
Body = zhuti
Attachment = path & "\" & file


Dim Outlook As Variant
Dim Item As Variant
Set Outlook = CreateObject("Outlook.Application")
Set Item = Outlook.CreateItem(0)
Item.Subject = Subject
Item.To = SendTo
Item.Body = Body
Item.Attachments.Add Attachment
Item.Send
End Sub

发送过程中outlook 会弹出安全提示

取消提示操作， outlook ->文件->选项->信任中心->编程访问->从不想我发出可疑警告