来自 excel 的电子邮件在 window 2013 年第 8 期中无效

Question

我使用以下代码并且运行良好。我已经更新到 Surface Pro 并且知道我的宏停止工作了。

我认为它有一些想法可以做这行吗设置 OutApp = CreateObject("Outlook.Application")

使用 window 8 我认为它不再使用 outlook

有没有其他人遇到过这个问题

完整代码如下

Private Sub CommandButton21_Click()
 Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = "help@hiall.com.au"
        .CC = ""
        .BCC = ""
        .Subject = "Inspection"
        .Body = "Inspection n"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Answer 1

您PC上安装的Outlook版本是多少？您检查过 Outlook 中的信任中心设置了吗？

总的来说，您的代码是正确的，我没有发现任何异常...How to automate Outlook from another program 文章描述了自动化 Outlook 所需的步骤。

请注意，Office 2010 的 Click2Run 版本不支持自动化。另外，您可能会发现 You receive run-time error 429 when you automate Office applications 文章很有帮助。

来自 excel 的电子邮件在 window 2013 年第 8 期中无效

Email from excel not working in window 8 2013 issue

excel

vba

windows-8

outlook

surface