Configurar botón de envío de una planilla

Tengo la siguiente Macro asociada a un botón que envía la planilla por mail

Function CDO_Mail_Small_Text(rutaAdjunto As String) As Boolean
If (Range("O18") = "" Or Range("O18") = "0") Then
MsgBox "Solicite que incluyan su mail para poder enviar el pedido", vbCritical + vbOKOnly, "Error"
CDO_Mail_Small_Text = False
Exit Function
End If
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant

Set iMsg = CreateObject("CDO.message")
Set iConf = CreateObject("CDO.configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With iMsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.cesvi.com.ar"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

On Error GoTo ErrorMail
With iMsg
.To = "[email protected]"
.From = Range("O18")
.Subject = "Pedido semanal - " & Range("C18")
.TextBody = "Te envio el pedido de la semana"
'.Attachments.Add (rutaAdjunto)
End With
iMsg.AddAttachment (rutaAdjunto)
iMsg.Send
CDO_Mail_Small_Text = True
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Exit Function
ErrorMail:
MsgBox "Hubo un error al enviar el mail (" & Err.Description & ")", vbOKOnly, "Pedido Semanal"
CDO_Mail_Small_Text = False
Exit Function
End Function

El problema es que la planilla se envía a varios destinatarios, y algunos usuarios les da el siguiente error

Quizá sea porque están en diferentes redes y la otra red no tenga los permisos, ¿hay manera de bloquear esos permiso para que lo puedan enviar con dicho botón?