Emailing from excel with vba - error 429 on Windows 10 pcs

[mjd]

Hello,

My firm uses a number of macros to send excel files to business partners via outlook. This works wonderfully on Win 7 computers. We recently started deploying Windows 10 PCs, and we're getting error 429 on the following line:

 Set OutApp = CreateObject("Outlook.Application")

The full code snippet is:

    Dim OutApp As Object    Dim OutMail As Object


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


    On Error Resume Next
   ' Change the mail address and subject in the macro before you run it.
    With OutMail
        .SentOnBehalfOfName = "trading@myfirm.com"
        .To = "me@myfirm.com"
        .CC = ""
        .BCC = ""
        .Subject = "Trade Allocations:" & " " & ActiveWorkbook.Name
        .Body = "Hello," & vbNewLine & vbNewLine & "Please see attached for prime broker trade details." & vbNewLine & vbNewLine & "Trade Ops" & vbNewLine & "trading@myfirm.com"
        .Attachments.Add ActiveWorkbook.FullName
            ' You can add other files by uncommenting the following line.
            '.Attachments.Add ("C:\test.txt")
            ' In place of the following statement, you can use ".Display" to
            ' display the mail.
            '.Send
           If Left(ActiveWorkbook.Name, 5) = Format(Date, "mm-dd") Then
           .Send
            Else
        .Display
        End If
    End With
    On Error GoTo 0


    Set OutMail = Nothing
    Set OutApp = Nothing

This issue is consistent across all Windows 10 PCs. Has anyone encountered issues with using this function in Windows 10?

Thanks,
Mike