Excel Datei speichern, Email an mehrere Empfänger verschicken

Liebe Community,
ich bin neu hier und habe eine Frage.
Zuerst einmal möchte ich mich kurz vorstellen, arbeite bei einer Papierverdelungsfirma, welche Beschichtungen aufträgt.

Ich habe ein Exelsheet, welche auf Sharepoint liegt und von verschiedenen Personen eingesehen bzw. verändert werden kann. Mein Ziel ist es, sobald die Exceldatei gespeichert wird eine Email an einen Verteilerkreis geschickt wird. Gepeichert ist die Datei als .xlsm mit einem VBA-Code im Anhang. Wenn ich als Ersteller die Datei öffne und anschließend speichere bekommen meine Kollegen eine entsprechende Mail. Wenn jedoch jemand anderes ("Kollege1" bis "Kollege8") die Datei öffnet und speichert, wird keine Nachricht verschickt. Könnt ihr hier vielleicht helfen?

Hier einmal der VBA Code:

Private Sub MailSenden()
Dim olAppication As Object
Dim objEMail As Object
Dim Name As String

Set olAppication = VBA.CreateObject("Outlook.Application")
Set objEMail = olAppication.CreateItem(0)

Name = ThisWorkbook.FullName

With objEMail
.To = "kollege1@abc.xx;kollege2@abc.xx;kollege3@abc.xx;kollege4@abc.xx;kollege5@abc.xx;kollege6@abc.xx"
.CC = "ich@abc.xx;kollege7@abc.xx;kollege8@abc.xx"
'Betreff
.Subject = "Musterfächer DIN A6"
'Nachricht
.Body = "Lieber Benutzer(in), in der Datei Musterfächer DIN A6 wurde eine Änderung vorgenommen und neu gespeichert"
.Attachments.Add Name
.display
End With
SendKeys "%s", True
SendKeys "^{ENTER}", True

Set objEMail = Nothing

End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
MailSenden
End Sub


Vielleicht verwende ich ein falsches Skript?

Ich bin euch dankbar für jede Hilfe.