Error 429 en Macro para archivo contenido en un servidor

Tengo un archivo en un servidor que contiene la macro que agrego más abajo, y al ejecutar esta macro me arroja el error 429 en tiempo de ejecución.

Lo que hace la macro (entre otras cosas) es adjuntar su resultado a un documento que se debe adjuntar al mail, ¿cómo lo puedo solucionar?

El problema se produce solo al ejecutar el archivo desde el servidor, al ejecutarlo directo desde el pc funciona bien, pero necesito que se ejecute desde el servidor.

Dejo la macro:

Sub correo5b()
'Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
punt = InStrRev(ThisWorkbook.Name, ".")
arch = Left(ThisWorkbook.Name, punt - 1)
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'ACÁ SE PRODUCE EL ERROR
Set Dam = CreateObject("outlook.application").createitem(0)
Dam.To = Range("S8")
Dam.CC = Range("T8")
Dam.BCC = Range("U8")
Dam.Subject = Range("V8")
Dam.Body = Range("W8")
Dam.Attachments.Add ruta & arch & ".pdf"
Dam.Display
End Sub