前提：引用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 "收件人邮箱地址","邮件标题","邮件正文","附件(可选)","抄送(可选)","密件抄送(可选)"