调用Outlook发送邮件

时　间:2018-07-15 09:37:32
作　者:易勋   ID：35404  城市：上海
摘　要:通过调用Office中的Outlook组件，使用Outlook的默认账户来发送邮件。
正　文:

前提：引用Microsoft Outlook xx(具体版本号) Object Library;配置Outlook的默认账户

函数：

Public Function OutlookSendEmail(ToAddress As String, Subject As String, Body As String, Attachment As String = "", Optional CC As String = "", Optional BCC As String = "")
    Dim objOutlook As outlook.Application
    Dim objMail As MailItem
    
    Set objOutlook = New outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
    
    With objMail
        .To = ToAddress        '收件人
        .CC = CC      '抄送
        .BCC = BCC      '密件抄送
        .Subject = Subject        '标题
        .Body = Body           '正文
        If Attachment <> "" Then .Attachments.Add Attachment  '附件
        .Send                  '发送
    End With
	
    MsgBox "发送成功！"

End Function

OutlookSendEmail "收件人邮箱地址","邮件标题","邮件正文","附件(可选)","抄送(可选)","密件抄送(可选)"