Сбой первой строки кода в функции wsf:
Set objMessage = CreateObject ("CDO.Message")
Сбой приведенной выше строки кода на моей машине, а не на ком-либо еще.