E5续订之VBA调用Outlook API

xiaoque

本帖最后由 xiaoque 于 2020-2-22 23:36 编辑

不知道用Excel VBA调用Outlook客户端发邮件，算不算调用了Outlook API，发段代码给各位试试

Sub SentEmail()
    Dim OLApp As Outlook.Application
    Dim OLMail As Object
    Dim MyCell As Range
    Dim MyContacts As Range
    Set MyContacts = Sheets("Email").Range("A1:A5")
    Set OLApp = New Outlook.Application
    Set OLMail = OLApp.CreateItem(0)
    OLApp.Session.Logon
    With OLMail
        .BCC = ""
        For Each MyCell In MyContacts
            .BCC = .BCC & MyCell.Value & ";"
        Next MyCell
        .Subject = "邮件主题"
        .Body = "邮件内容"
        .Display
    End With
    Set OLMail = Nothing
    Set OLApp = Nothing   
End Sub


VBA里选择Microsoft Excel 对象，然后添加模块，然后在模块里添加上面代码，添加完代码后，在VBA菜单栏选择：工具-引用，然后选择Microsoft Outlook 16.0 Object Library，确定





然后命名工作表名为：Email，在表A1至A5列添加邮箱地址





在工作表中添加控件，选择SentEmail过程

点击控件按钮，调用Outlook客户端发邮件





最后把上面设置好的EXCEL文件另存为：.xlsm格式的“启用宏的工作薄文件”。

一位不知名网友

还要上图

xiaoque

图上完了

xiaoque

office365怎么找不到VBA

hotsky

hotsky 发表于 2020-2-22 19:07

office365怎么找不到VBA
Alt+F11

xiaoque

xiaoque 发表于 2020-2-22 19:08

Alt+F11
按了, 就是没反应, 试了几个方法了, 我在怀疑是不是office365没有这个功能啊

hotsky

本帖最后由 cherbim 于 2020-2-22 19:14 编辑

感觉不算，它只是唤醒outlook邮箱，具体操作还是outlook邮箱干的活
不过微软说的是90天内需要证明是开发者才能自动续订，所以怎么算是开发者，微软是咋判定的？怎么保持用户活跃度？也没个准确信息

cherbim

本帖最后由 xiaoque 于 2020-2-22 19:55 编辑

hotsky 发表于 2020-2-22 19:11

按了, 就是没反应, 试了几个方法了, 我在怀疑是不是office365没有这个功能啊 ...

有的，我就是用Office 365来操作的

xiaoque

cherbim 发表于 2020-2-22 19:11

感觉不算，它只是唤醒outlook邮箱，具体操作还是outlook邮箱干的活
不过微软说的是90天内需要证明是开发者 ...
不清楚了，可以配合oneindex使用试试