Outlook 2016 Befehlparameter funktioniert nicht mehr

Hallo zusammen,

bislang konnten wir immer mit der untenstehenden Sendto-Verknüpfung Emails mit Anhang verschicken (da die mitgebrachte Funktion von Windows nicht funktioniert".

Bekomme auch eine Fehlermeldung (s. Anlagen).

Vielleicht hat jemand ein Tipp oder kennt sich mit den Startparametern aus.

Danke schonmal im Vorraus.

With CreateObject("Outlook.Application").CreateItem(0)  
	For Each itm In WScript.Arguments
		.Attachments.Add itm
	Next
	.Display
End With