Outlook mail errors out Server Execution Failed

[ChuckDrago]

One of our field guys is unable to send it automated expenses via a macro controlled Excel Worksheet. His colleagues do without a hitch. IT has not been able to diagnose the problem.
The person is running a W10 laptop, using MS Office 2010. The code is shown below (the error is caused by the line Set OutApp = CreateObject("Outlook.Application.14"))

Dim OutApp As Object
    Application.DisplayAlerts = False
    Dim OutMail As Object
    Dim FName As String
    FName = ActiveWorkbook.Name
    ActiveWorkbook.SaveAs ("C:\temp\" & FName)
    Set OutApp = CreateObject("Outlook.Application.14")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = MailTo & ";"
        .CC = CcTo
        .BCC = ""
        .Subject = Subj
        .Body = OutMsg & Chr(13) & Chr(13) & Sender
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    Application.DisplayAlerts = True
End Sub

Any suggestions will be much appreciated, as usual.
Thanks,
Chuck

 

[DanteAmor]

Buenos dias Dante,
Your proposed solution threw errors on the Dim statements OutApp and OutMail aas well as on the statement Set OutApp. The error message reads "User-defined type not defined". Please advise?
Thanks a bunch!
Chuck

Buenos días!

you must do the steps of the note.

 

[ChuckDrago]

Dante,

Please see the References the application has checked (they were those since inception).

Falta algo mas?
Chuck

 

[DanteAmor]

This reference is missing:

Microsoft Outlook xx.x Object Library

Search and check

 

[ChuckDrago]

Aaartgh#@$%#!!! I always thought that MS Office would encompass ALL apps under MS, including Outlook!
Found it, checked it and sent test forms to field people with problems. Will keep you posted.
Thank you, Dante . Muy agradecido

 

[DanteAmor]

Of course, hopefully it works for everyone.