用excel2016 vba outlook 发送邮件，怎么加载这个类，网上都是十年前的解决方法

首先没有工具栏的引用了，所以网上的方法都没用，我在开发人员工具找到了这个看起来比较像的microsoft oulook view control,但是不好使啊，有没有知道怎么解决的

https://blog.csdn.net/chenxianping/article/details/70821116

VBA：外部创建Outlook对象，改善邮件

代码

Sub 发送Outlook邮件()
    Rem 使用外部引用，就不存在查找勾选的问题了，而且到了别的电脑依然能用
    Dim otlMail As Object
    Set otlMail = CreateObject("Outlook.Application")    '****关键：引用Outlook对象****

    Dim aimMail
    Set aimMail = otlMail.CreateItem(olMailItem)
    With aimMail
        .Display
        .To = "这里写收件人邮箱地址@XXX.com"
        .CC = "这里写抄送人邮箱地址@XXX.com"
        .Subject = "这里写主题文字"
        .Attachments.Add "E:\Zhuomian_CJ\ZZZ\邮件附件.docx"    '这里写附件完整路径
        
        .Importance = 1 '这里是标记邮件重要程度
        
        .DeleteAfterSubmit = False
        .Send
'        .Close (2)
        
    End With
    otlMail.Quit
    Set otlMail = Nothing
End Sub